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X. PURPOSE 

1.1 INTENT. 

F810 READER FUNCTION X 

TESTS ABILITY TO... 

1. ADDRESS THE DEVICE UNDER TEST* 

2. ISSUE SENSE START 1-0. 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0 AND BY ENABLING 
THE SYSTEM MASK. 

5. PROPERLY STORE THE CSW (CHANNEL STATUS WORD!. 

6. PROPERLY SET AND SUPPRESS THE INCORRECT LENGTH i 
INDICATOR. 

7. BREAK COMMAND CHAINING WITH UNUSUAL COMMAND SEQUENCE. 

8. REJECT ALL INVALID COMMANDS ISSUED TO THE DEVICE. 

9. ISSUE THEI-0 INSTRUCTIONS SIO, TIO, AND HIO 

WHILE THE DEVICE AND CHANNEL ARE IN VARIOUS STATES OF < 
PENDING OR STACKED STATUS. 

* XOW ISSUE 1-0 INSTRUCTIONS TO A NOT READY DEVICE. 

* XI. ISSUE 1-0 INSTRUCTIONS TO AN OFF LINE DEVICE. 

* t 12. TEST END OF FILE. 

* MANUAL INTERVENTION ROUTINES,’ UNDER CONTROL OF SENSE 
SWITCHES 5 AND 8. 

F811 READER FUNCTION 2 

TESTS ABILITY TO... 

X. ISSUE DIAGNOSTIC WRITE TO THE PUNCH ASSOCIATED WITH 
THE TEST READER UNDER VARIOUS CONDITIONS. 

2. DEVELOP DATA CHECK IN THE READER SENSE BYTE BY 
FILLING THE READ BUFFER WITH COLUMN BINARY DATA 

1 WITH THE DIAGNOSTIC WRITE COMMAND. 

3. ISSUE VALID COMMANDS TO TME READER. 

4. COMMAND CHAIN AND DATA CHAIN COMMANDS. 

5. BREAK COMMAND CHAINING AND DATA CHAINING WITH 
WRONG LENGTH RECORD. 

6. ISSUE 1400 COMPATIBILITY COMMANDS WHICH ACTIVATE 
THE PROVISIONAL FEED HARDWARE IN THE READER. 

F812 READER FUNCTION 3 

TESTS ABILITY TO... 

X. READ ALL VALID EBCDIC CHARACTERS AND INDICATE 
ANY ERRORS. 

ALSO ALLOWS... 

2. PUNCHING THE DATA CARDS NEEDED IN .THE READ ROUTINE. THIS IS 
UNDER CONTROL OF SENSE SWITCH 9. 


2. PREREQUISITES 

2.1 : PROGRAM REQUIREMENTS. 


THE EXCLUSIVE CPU FLAG IS ON IN ALL SECTIONS. 

! 

DM MUST HAVE A FOUR BYTE UDT ‘ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL :AND UNIT ADDRESS. 



I UNIT TYPE 


I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 [ 

I I I 

I . | I ^ __J 

ZZ |BIT 0 {BIT 1 I BIT 2 I BIT 3 |BIT 4 |BIT 5 I BIT 6 I BIT T I 
I HEX 8 *|HEX 4 {HEX 2 |HEX l (HEX 8 I HEX 4 1 HEX 2 {HEX X ) 

81 I ICARD: | 151 COL|1400 I I |2 CHNLl 

I {IMAGE { {FEAT. |FEAT. { I {SW ON { 

I I { { I { I {2821 { 


NOTE. THIS PROGRAM‘ISSUES DIAGNOSTIC WRITE COMMANDS TO TEST THE READER 
CIRCUITRY. THIS REQUIRES A 2540 PUNCH (UNIT TYPE 82! 4 BYTE UDT 
ENTRY TO PROVIDE THE PUNCH ADDRESS FOR THE DIAGNOSTIC WRITE 
COMMAND. 

NOTE. WHEN MORE THAN ONE READER/PUNCH IS PRESENT, DM UDT ENTRIES FOR 
THE COMBINATIONS MUST NOT BE MIXED. FOR EXAMPLE, ENTER 
READER 1 / PUNCH X, THEN READER 2 / PUNCH 2. 

2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR LOADING PROGRAM -TEST DEVICE CAN BE LOADER-. 

OUTPUT DEVICE. 

4K OF STORAGE 
CPU 

CHANNEL 

3. USE PROCEDURE 

3.1 ; PROGRAM LOADINGS ? 

STANDARD AS DESCRIBED JN USERS GUIDE. 

3.2 PROGRAM OPERATE. 


**++ 1 +*+**+*+****+++++++++++ NOTE ft**************************** 

* IF 2 CHANNEL SWITCH FEATURE IS INSTALLED, DISABLE THE * 

* UNUSED INTERFACE TO PREVENT NOT READY TO READY STATUS * 

* FROM BEING PRESENTED TO THE OTHER CHANNEL. * 

a************************************************************** 


IF EQUIPMENT OR DATA CHECK TROUBLE IS EXPERIENCED WHILE RUNNING F810 OR 
F811, IT IS SUGGESTED THAT F812 BE RUN TO ANALYZE THE TROUBLE. 


A P$4 RESTART EXECUTED WHILE THE PROGRAM IS OPERATING NORMALLY MAY 
CAUSE A MISLEADING HANG UP MESSAGE. THE HANG UP MESSAGE IS ONLY VALID 
WHEN A PSW RESTART IS INITIATED DURING A SYSTEM HANG UP CONDITION. 


I 
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IF M3RE THAN ;ONB 5 2549 ; IS ’DEFINED-.IN THE DM UDT# Atli -ROUTINES 
IN EACH SECTION HILL BE EXECUTED .ON THE FSft$T;2S4Q:ALL0€ATE0- 
BY ON BEFORE ANT .TESTING OCCURS ON THE NEXT* 

3.2.1 RIPPLE READ-TEST 1F812I . 

' 27 DETAIL CARDS, CONTAINING A RIPPLE PATTERN OF ALL EBCDIC CHARACTERS, 

ARE RELEASED WITH FBI2* 

THE PROGRAM ASSUMES THAT DETAIL CARDS ARE IH THE READER IF -THE CARO. 

READER IS THE LOADER DEVICE, AND PROCEEDS WITH THE TEST# HOWEVER, IF 
THE CARD READER IS NOT THE LOADER DEVICE, k MESSAGE IS ISSUED FOR THE 
OPERATOR TO PLACE DETAIL CARDS IN THE READER -AND. A HALT OCCURS* 

ADDITIONAL DETAIL CARDS MAT .BE GENERATED VIA SECTION SENSE SWITCH 9. 

SENSE SWITCH 9 MUST BE ON AT ■ THE INITIAL EXECUTION 0F-F812. IF 

EXECUTION OF F812 HAS BEGUN, SET SENSE SWITCH 9 ON AND PERFORM A PSW RESTART® 

DUPLICATE SETS OF DETAIL CARDS MAY BE GENERATED VIA SECTION SENSE SWITCH 4® 

THERE ARE TWO WAYS OF READING DUPLICATE SETS OF DETAIL CARDS IN 
ROUTINE 2. NORMALLY ONE SET OF'DETAIL CARDS IS USED® 

* 1. .SECTION SENSE SWITCH 4 ON CAUSES THE ROUTINE TO LOOP® IN THIS LOOP, 

A READ NO FEED !C2! IS DONE, THE DATA IS TESTED, AND THEN A FEED TO 
STACKER RI IS ISSUED® 

2® SECTION SENSE SWITCH 10 ON CAUSES A LOOP ON READ FEED AND STACKER 
SELECT fU.(02U THE DATA.IS TESTED .AFTER EACH START I/O® 

RESETTING THESE SWITCHES CAUSES A NORMAL,TERMINATION* 


3«2*2 SECTION SENSE SWITCHES 


THE SENSE SWITCHES 'SHOWN BELOW ARE. IN THE SENSE SWITCH BYTES OF : THEIR 
RESPECTIVE SECTION PREFACES® THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TINE® THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON* 

NOTE* RESETTING SENSE SWITCH 0 OR 1 .AFTER LOOPING MAY CAUSE ERRORS IN 
THE NORMAL PROGRAM 'RUN® 


1 SENSE 

I SW. 
j NO® 

FUNCTION 

•SECTION 

OR 

ROUTINE 

BYTE 
AND » 

BIT 

j 0 

i 

j 

OFF-PROCEEB . 

ON”*—LOOP ON CURRENT 1-0 COMMAND. 

ALL - 

X0Q4 

0 

i i 

OFF-PRQCEED. 

ON—LOOP ON CURRENT $10, TIO COMMAND. 

ALL 

X004 

1 

1 2 

OFF-TEST BOTH READ DATA AND CHECK READ DATA*' 

ON—BYPASS READ DATA TESTING. 

F812 

RTN 2 

X0G4 

2 

I 4 

1 

OFF-PROCEED ; 

ON—LOOP ROUTINE CURRENTLY BEING EXECUTED. : 

F812 

X004 

4 
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3*2*2 SECTION .SENSE SWITCHES !CONTINUED! 


|5< 

OFF-BYPASS MANUAL !INTERVENTION ROUTINES. 

ON—PERFORM MANUAL iINTERVENTION ROUTINES. 

I 

s 

F810 

I XQ04 : 

! 5 


i ? 

OFF-PROCEED 

ON—PRINT CORRECT RESULTS. 

f 

ALL 

i X004 

1 7 

•© 

! 8 

OFF-BYPASS OFF LINE TESTING 

ON—EXECUTE OFF LINE TEST IF SSW 5 ALSO ON. 

"'"l 

1 

F810 : 

1 X005 
l 0 

o 

S 9 

OFF-BYPASS PUNCHING 21 RIPPLE READ DATA CARDSU 
ON—PUNCH A SET OF 27 RIPPLE READ DATA CARDS. 

1 

F812 
RTN 1 

1 X005 
\ l 

o 

1 10 

OFF-PROCEED WITH RIPPLE READ TEST* 

ON—LOOP READ, FEED, STK SELECT Rl COMMAND. 

1 

F812 
RTN 2 

1 X005 

1 2 

o 


Q 


3*3 PROGRAM HALTS 


o 


F810 IF THE INTERVENTION TESTS ARE EXECUTED -ROUTINE 12-, 

HALTS OCCUR WHEN THE OPERATOR RECEIVES INSTRUCTIONS FROM 

THE PROGRAM* THE OPERATOR SHOULD CARRY OUT THE INSTRUCTIONS Q 

AND THEN INTERRUPT TO CONTINUE. 

F810> THE FIRST ROUTINE ATTEMPTS A TEST I~Q ON BOTH THE READER 0 

AND AND THE ASSOCIATED PUNCH* IF INTERVENTION REQUIRED IS 
F811 DETECTED, A MESSAGE IS ISSUED AND A HALT OCCURS TO ALLOW 

THE OPERATOR TO MAKE THE DEVICE READY. * 0 


F812 > IF THE READER OR PUNCH GO NOT READY, © 

A MESSAGE AND A HALT WILL OCCUR TO ALLOW THE OPERATOR 
TO RECOVER. 

:. 0 

IF ROUTINE 02 IS EXECUTED AND THE TEST DEVICE IS NOT 
THE LOADER, A MESSAGE AND A HALT OCCUR TO ALLOW THE 

OPERATOR TO PLACE DETAIL CARDS INTO THE TEST DEVICE. @ 

IF SECTION SENSE SWITCH 4 IS TURNED ON IN ROUTINE 02, 

AND THE DEVICE BEING TESTED IS THE LOADER, A MESSAGE f 

AND HALT OCCUR TO INFORM THE OPERATOR THAT ONLY DETAIL 
CARDS SHOULD BE USED IN THE TEST. THIS IS TO PREVENT 

FEEDING TEST DECKS. p 


. ’ • , ' i* 

’ c 

€ 
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F810 (CONTINUED) 

- REMOVE BLNKXDS FROM READER- : 

- PUT REMAINING TEST DECKS INTO RDR HPR AND MAKE RDR RDVtEOF ON* ; 

THE ABOVE MESSAGE IS ISSUED AT THE END OF iTHE INTERVENTION ROUTINE 
IF THE LOADER WAS THE DEVICE BEING TESTED. THE BLANK CARDS IN 
STACKER Ri ARE FROM THE END OF FILE TEST AND SHOULD BE RENOVEDt 
TO PREVENT THEM FROM IBEING MIXED IN WITH THE TEST DECKS. 

- REMOVE CDS FROM iSTACKER OF LOADER OEVICE- 

- REMOVE THE REMAINING TEST DECKS.IF ANY, FROM (THE LOADER HPR- 

- DO NOPRO AND PLACE CDS RUN OUT IN FRONT OF REMAINING TEST DECKS- 

- SAVE REMAINING TEST DECKS UNTIL A MSG REQUESTS THEM !TO BE PUT IN HPR-: 

THE ABOVE MESSAGE:IS ISSUED WHEN THE INTERVENTION ROUTINE IS TO BE 
EXECUTED ON THE LOADER DEVICE. IT PREVENTS THE READING OF TEST 
DECKS BY THE ROUTINE. 


F812 

- READ ERR- 

- CARD IN PRESTKR STA^ 

EXPECTED SHO BUF- 

- COL PUNCHES RD RD XU XL PAR ADR TRAN- 

THE ABOVE MESSAGES ARE ISSUED WHEN A READ ERROR IS DETECTED 
IN THE RIPPLE READ ROUTINE IN SECTION F812. THESE MESSAGES 
ARE ISSUED FOLLOWING THE MESSAGES LISTED IN THE 
SAMPLE PRINTOUT IN 4.2.1 OF THIS DESCRIPTION. THE READ ERRORS 
ARE INDICATED FOR EACH COLUMN FOLLOWING THIS HEADING. AN 
EXPLANATION OF THE ABBREVIATIONS IN THIS HEADING FOLLOWS THE 
SAMPLE PRINTOUT EXPLANATION IN 4.2.3 OF THIS DESCRIPTION. 

- 2 DIAG CHK RDS ATTEMPTED -BOTH FAILED- 

THIS MESSAGE IS ISSUED BY THE COMMON START 1-0 ROUTINE WHEN 
A READ ERROR IS DETECTED IN THE RIPPLE READ ROUTINE OF SECTION 
F8I2# AND THE TWO DIAGNOSTIC CHECK READ START 1-0 INSTRUCTIONS 
ARE NOT ABLE TO BE ACCEPTED. THE CHECK READ DATA IS NOT INDICATED 
IF THIS CONDITION OCCURS. 

- DO NPRO.PLACE DETAIL CDS IN RDR. HPR,MAKE RDY.EOF ON- 

THE ABOVE MESSAGE IS ISSUED WHEN EXECUTING THE RIPPLE READ TEST: 

ON A 2540 READER THAT IS NOT USED AS THE LOADER. THIS ALLOWS THE 
OPERATOR TO PLACE A SET OF RIPPLE READ CARDS INTO THE TEST DEVICE* 

- SET SSW 9 ON, DO PSW RESTART IF SET OF DETAIL CDS DESIRED - 

THE ABOVE MESSAGE IS GIVEN AS AN AID TO THE OPERATOR IF A SET OF 
DETAIL CARDS IS NOT ‘AVAILABLE. 

- LOOPING LOADER- KEEP ONLY DETAIL CDS IN RDR- 

THE ABOVE MESSAGE IS ISSUED WHEN THE LOOP ROUTINE SENSE SWITCH 
-SECTION SENSE SWITCH 4- IS ON, AND THE LOADER IS THE TEST DEVICE. 
THE OPERATOR SHOULD BE AWARE OF THE POSSIBILITY OF FEEDING THE 
TEST DECKS THAT ARE STILL : IN THE READER HOPPER. 
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4*2-. STATUS MESSAGES 

4.2'.I , SAMPLE-CORRECT >PRINTOUT ? 


SDO F810R ©8 00U5C-00C4; 

TST03?(H 

:AOR-0018A4 7L1NK-* ; 

ADR 001182 SIO- : 

CAW G01BB8- : 

CCW 02001831.800000204 . 

CCW 00001831 00000030-*-' 

' XC O’ EXP- 
CC 0 ACT- 

XSW'.OOOOIBCS <©8000801 : E2CP- ; 

,CSW'©00018C8 08000001 ACT- : 

CSW '00000000 .'04000000 'EXP- . 
csw -oooooooo '©4000000 ‘.act* . 

$NS 00 EXP- , 

;sns oo act- ;' 

•LOG iOO ‘000000 :000000 :000000- . ' 

'SET- S$ 0 ON - FOR LOOP m SIO$ SS I :BH FOIL T10 --SIO 1L0OP- 


4.2*2 ' ANALYSIS’ OF SAMPLE PRINTOUT 


EXPLANATION 


THIS IS THE HEADER'LINE* PRINTED it. M4 ! IF'» AN t ASTER! SIC '• 
PRECEDES THE -SDO-'. AN. :ERROR 'HAS-'CAUSE© if HE MESSAGE' 

PRINTOUT** IF NO .ASTERISK: IS PRINTED# THE MESSAGE 
-15•-A r >REJSJJLT :OF • ELTHER HAYING THE -CORRECT ; PRINTOUT - 

Switch on or-an ^operator message; is to follow* - 

ALL 'LINES THAT-FOLLOW.THE -SDCH ARE PART :0F (JHA-T - SAME « 
MESSAGE* THE START' OF A NEW MESSAGE IS INDICATED 
BY .ANOTHER -SDO- .PRINTOUT* THE -F810R- TS THE ,SECTION 
TO NUMBER WHERE -R-- .'REPRESENTS THE REVISION LEVEL OF 
THE PROGRAM® THE -08- IS THE PROGRAM 'ROUTINE NUMBER ' 

WHILE THE -OOC- IS THE ADDRESS OF THE DEVICE UNDER TEST® 

-THIS IS THE TEST'NttRBER-ASSOCIATED WITH THE .MESSAGE# 'AT-;THE - 
BEGINNING, OF THE PROGRAM USTING# THERE IS A GIST -OF -TEST - 
NUMBERS* WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE# AND WHAT SHOULD OCCUR* 


TUS e , ntSPLAYS ‘.THE -FIRST *CGW®' THE FIRST BYTE CONTAINS ■ 
ruE^rnMNAMElfODE THE '.NEXT • 3 - BYTES CONTAIN AN ADDRESS IN 

ShICH «ILt BE USED IF OAT* TRANSFER IS PERFORMED. 

TMP mcwy-RYT i CONTAINS FLAGS USED - BY THE .CHANNEL® THE LAST 4 
3 mis ThI MUHT FIELD. ; IF. .CHAINING IS INDICATED IN 

|y?E A! ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

THIS'LINE SHOWS THE CONDITION CODE EXPECTED* BY THE ; 

woman" IN RESPONSE TO ISSUING THE 1-0 COMMAND. . 

THIS LINE SHOWS THE ACTUAL CONDITION CODE SETIN RESPONSE 
TO THE 1-0 COMMAND. * 

.„■> | .up DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM.^* 

I llT B? B?“dESCRIPtIoN OF THE DEVICE STATUS BYTE .PORTION 
OF THE CSW APPEARS IN THE PROGRAM LISTING FOLLOWING 
THE TEST NUMBER DESCRIPTIONS* 

THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN ONE CSW. 

THIS LINE WILL APPEAR IF THE PROGRAM RECEIVED A SECOND CSW. 

THIS LINE SHOWS THE SENSE BYTE EXPECTEDLY THE_PROGRAM. 

® urr csy riy DESCRIPTION OF : THE 2540 SENSE BYTE APPEARS 
IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM. 

THIS LINE DISPLAYS THE CPU AND CHANNEL^LOGOUT AREA ON 

MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY .OTHER SYST • . 

TH1S i tug SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

IF AN ERROR HAD OCCURRED# AND DM SENSE SWITCH 25 WAS ON* 

’ IhALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE^SECTION 
SENSE SWITCHES* TO*INSURE THAT LOOPING OCCURS ON THE 
COMMAND THAT FAILED* THE OPERATOR SHOULD HAVE THE DM 
SENSE SWITCH ON THAT ENABLES HALTING WHEN AN ERROR 
OCCURS* SET 'THE PROPER SECTION SENSE SWITCH ON# ■ 

AND PRESS*fHE EXTERNAL INTERRUPT KEY TO-EXECUTE* 


THIS. LINE SHOWS 'THE ADDRESS FROM^WHICH .THE 1-0 -HANDLER" 
'SUB-ROUTINE WAS .ENTERED*. ALL 1-0'.COMMANDS 'ARE ISSUED V 
FROM,THIS SUB-ROUTINE# SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES* TQ. INSURE THE .SPECIFIC 1-0 OPERATION YOU 
WANT TO LOOK'AT WILL BE THE NEXT ONE PERFORMED# YOU SHOULD 
RESTART THE PROGRAM WITH A SYSTEM RESET# PSW RESTART, AND . 
'ADDRESS' STOP. AT .THE, GIVEN' ADDRESS* _ i % 

.^i^t-NE-^'SHDws • nffi 1 J address of**the start i-o# test j-o* 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE* 

THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 
A START 1-0 COMMAND* IF CCWS ARE CHAINED# THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 
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4.2*1 SAMPLE OF CANO READ ERROR PRINTOUT OF SECTION PBli* 

THE FOLLOWING MESSAGE:!* GIVEN IN SECTION F812 ROUTINE 2* WHEN 
A READ ERROR IS DETECTED. THIS DATA IS PRINTED IMMEDIATELY 
BEFORE LINE 16 OF A MESSAGE TYPE OFtTHE SAME FORMAT AS DESCRIBED 
IN 1 4*2.1 OF THIS DESCRIPTION. 
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4-12.5 PSW RESTART AFTER I/O HANG UP 
• PREVIOUS HANG UP DETECTED- 
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LINE 

MESSAGE 





Dt 

- READ ERR 





02 

- C AR D 

IN PRESTKR 

STA 




05 

* ; 

EXPECTED SHD 



BUP 


04 

- COL i MUNCHES RO i 

RD 

XU XL PAR 

ADR 

TRAN 

05 

- OT 

689 9E 

5E 

0 10 

0 

0 

06 \ 

- ID 

TD19 41 

41 

0 10 

0 

0 

OT : 

- 22 

T5B 4D 

4D 

0 1 0 

0 

0 

OB 

- 55 

068 6E 

6E 

0 10 

D 

0 


4.2*4 ANALYSIS OF CARO READ ERROR PRINTOUT OP SECTION P112. 


LINE 

DI 


02 

01 

04: 


EXPLANATION 

THIS MESSAGE INDICATES THAT A READ ERROR OCCURRED* 

IT MAY BE DUE TO NORMAL READ DATA* DIAGNOSTIC CHECK 
READ INFORMATION* OR BOTH. 

THIS MESSAGE TELLS WHERE THE CARO IN ERROR. IS LOCATED. 
IF LOOPING WITH SENSE SWITCH 10 PRESTKR STA MAY READ 
STACKER Rl* 

THIS IS THE FIRST PART OF THE HEADER WHICH IS USED 
TO EXPLAIN THE DATA OF LINES 05 THRU OB* THIS 
HEADER IS READ VERTICALLY WITH RESPECT TO LINE 04* 

THIS IS THE SECOND LINE OF THE DATA HEADER. AN 
EXPLANATION OF THE HEADER ABBREVIATIONS OF LINES 05 
AND 04 IS AS FOLLOWS- 


COL 

EXPECTED 

PUNCHES 

SHD 

RO 

RD 

XU 


XL i 
PAR 


BUF 

ADR 


TRAN 


- THIS TELLS WHAT CARD COLUMN HAD AN ERROR* 


THIS TELLS WHAT THE EXPECTED CARD PUNCHES 
WERE FOR THE DATA IN THE SHD RD COLUMN* 

THIS IS THE EXPECTED HEX DATA. 

THIS IS THE HEX BYTE WHICH WAS READ FROM 
THE READER FOR THE INDICATED COLUMN* 

THIS IS A BIT IN THE DIAGNOSTIC CHECK RD 
BYTE FOR THE INDICATED COLUMN THAT WILL BE 
A 1 OR A 0. IF 1* IT INDICATES THAT THE X 
UPPER CHECK PLANE WAS LEFT ON. 

THIS IS THE X LOWER CHECK BIT* IF IN ERROR 
IT WILL BE A l* IF NOT IT WILL BE 0. 

THIS 1$ A BIT INDICATING A BUFFER PARITY 
CHECK WHEN I. 


THIS IS A BIT INDICATING A READ BUFFER 
ADDRESS CHECK WHIN l* 

THIS IS A BIT INDICATING A READER TRANSLATE 
CHECK WHEN U 


Date 
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THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED .AFTER A HANG UP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE:IN 
4*2*1* 

4*2*6 UNEXPECTED I/O INTERRUPT MESSAGE IF810 THRU F812U 



♦SDO FB105 02 001254 XXX 

UI3 FROM DEVICE XXXX 
CSV 00000000 04000000 ACT 
LOG 00 000000 000000 000000 


EXAMPLE SHOWS F810 AT REVISION LEVEL 5. 

WHERE XXXX \ IS THE DEVICE ADDRESS OF THE INTERRUPT. 

CPU AND CHANNEL LOG OUT (MODEL 30 ONLYI 


5* COMMENTS 
5*1 LOOPING 


IN SOME CASES* IT MAY BE OESIRGO TO LOOP ON AN ENTIRE ROUTINE 
RATHER THAN USE THE SECTION SENSE SWITCH LOOPS PROVIDED. ONE 
METHOD OF DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN X04G. WHERE X STANDS FOR THE 4K BLOCK RELOCATION ADDRESS. 
then perform a system RESET^PSW RESTART* and the program WILL 
LOOP ON THE ROUTINE* 

SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS* 
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2540 READER FUNCTION TESTS - SECTION 1 P810 


♦♦♦♦♦♦♦♦♦6666664664468666666646464466644666664466864466488666646666664i 

♦♦6666666666686668666686666646668466484464664648664666868664444#444444! 


* MODIFICATIONS 

4 REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS*. 

* ( 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS. 

* 2. INCREASED TESTING OF THE INTERFACE IS INCLUDED. 

* 3. ALL ERROR MESSAGES HAVE BEEN ORGANIZED INTO A COMMON FORMAT 

4 TO ENABLE A CLEAR DEFINITION OF CONDITIONS AT THE TIME OF 

4 ERROR DETECTION. 

4 4. TESTING THE HALT 1-0 INSTRUCTION HAS BEEN ADDED. 

4 5. INVALID COMMAND TESTING HAS BEEN EXPANDED. 

* 6. TESTING PREVIOUSLY REQUIRING MUCH OPERATOR INTERVENTION* 

4 SUCH AS NOT READY* ETC., WILL NOT BE EXECUTED UNLESS 

* 7. OFF^LINETTESTING HAS BEEN ADDED AND IS EXECUTED ONLY IF 

4 SENSE SWITCHES 5 AND 8 ARE ON. 

* 

4 E.C. PREREQUISITES 
4 MACHINE ... NONE 

4 PROGRAM ... NONE 

4 USE DESCRIPTION F8104 AT EC 130498* DATEO 15 JUN 67 OR LATER. 

♦♦♦♦♦♦♦4444444444444444.64844464644464444464646444444444444444444444444! 

XF8103 START 4096 
USING 4*15 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦66#6666464866666464*46*466*646466666646644666666666466666 

♦ TEST NUMBER DESCRIPTION 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦446*48448**44844444:*4464*846*444444484448444444444448484 


6 TEST 
♦ 

♦ 

4 

♦ 

6 . 

♦ 

♦ 

4 0010 
4 


DESCRIPTION 


♦4*664444444*4 

* ROUTINE 01 

♦6666668666666 

OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUEO TO A READY TEST DEVICE. 

EXPECTED RESPONSE 
EXPECT COND. CODEC 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE^BUSY. 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADORESS USED. THE DM UDT ENTRY COULD BE IN ERROR* THE 
DEVICE MAY BE OFF LINE* OR IF THE 2821 TWO CHANNEL SWITCH 
FEATURE IS INSTALLED* THE PARTITIONING SWITCH FOR THIS 

,.;“15Sn!! , .S. 0 !”iSi..i»«... ™ 

DETERMINE THE CAUSE. UNIT CHECK MIGHT BE OUE TO NOT READY 
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 
WAS PENDING IN THE CHANNEL. DEVICE OR CONTROL UNIT BUSY 
COULO INDICATE DEVICE OR CONTROL UNIT IS RESERVED TO THE 
OTHER INTERFACEvIF THE 2 CHANNEL SWITCH FEATURE IS PRESENT 
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0020 - OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO THE PUNCH THAT IS HOUSED IN 
THE SAME PHYSICAL BOX AS THE TEST READER. 

•THIS MUST BE DONE BECAUSE THE PUNCH IS USED TO ISSUE 
DIAGNOSTIC WRITE COMMANDS DURING THE TEST- DIAGNOSTIC 
WRITE TO THE REAOER MUST BE ISSUED TO THE PUNCH. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 

POSSIBLE FAILURE CAUSES 

REFER TO POSSIBLE FAILURE CAUSES GIVEN FOR TEST 0010. 


♦ ************** 

4 ROUTINE 02 

♦ ************** 

6 0030 - OPERATION ATTEMPTED 

4 A SENSE START 1-0 IS ISSUED TO READY DEVICE. 

4 EXPECTED RESPONSE 

4 EXPECT COND. CODE 0 (COMMAND ACCEPTED) 

4 POSSIBLE FAILURE CAUSES 

8 1. CONDITION CODE 2 COULO BE DUE TO A PENDING CHANNEL END* OR 

4 A BUSY CHANNEL. 

8 2. IF CONDITION COOE 1 WAS SETt THE CSW MUST BE INSPECTED TO 

8 DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 

4 A DEVICE END WAS PENDING IN THE DEVICE. 


0040 - OPERATION ATTEMPTED 

A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 
SENSE IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 
FROM THE PREVIOUS SENSE I/O COMMANO. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 

2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 
THE DEVICE FAILED TO PRESENT ENDING STATUS. 


0050 - OPERATION ATTEMPTED 

ANOTHER TIO IS GIVEN. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0. DEVICE SHOULO BE CLEAR OF PENDING 
INTERRUPTS. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW COULD INDICATE 
A NOT READY DEVICE. CHANNEL OR DEVICE END INDICATES THE 


OATE 05MAY65 10AUG65 22FEB66 15JUN67 
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* PREVIOUS TIO FAILEO TO CLEAR THEM. 

♦ 

♦ ************** 

* ROUTINE 03 

* ************** 

* . 

* 0060 • OPERATION ATTEMPTED 
4 

* A SENSE START 1-0 IS ISSUED AND THE SYSTEM ENABLED FOR 1-0 

* INTERRUPTS. 

* 

♦ EXPECTED RESPONSE 

* . 

* EXPECT CHANNEL END DEVICE END TOGETHER. 

* 

« POSSIBLE FAILURE CAUSES 

4 . 

4 l # FAILURE TO RECEIVE CHANNEL AND DEVICE END INDICATES THAT 

4 ENABLING THE CHANNEL FOR 1-0 INTERRUPTS FAILED TO BRING IN 

4 THE DEVICE STATUS. 

4 ■ 

4 goto - OPERATION ATTEMPTED 
* 

4 TEST 1-0 IS ISSUED. 

* 

4 EXPECTED RESPONSE 

4 

4 EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 

4 INTERRUPTS. 

4 

4 0 

4 ************** 

4 ROUTINE 04 

* *************4 
4 

4 0080 - OPERATION ATTEMPTED 
4 

4 A NOP SIO IS ISSUED TO READY DEVICE. 

4 . 

* EXPECTED RESPONSE 
4 

4 EXPECT COND. CODE 1 WITH CHANNEL END DEVICE END STORED IN 

4 THE CSW. NO INTERRUPT SHOULD OCCUR. 

4 

* ********4*4444 

4 ROUTINE 05 

* ************44 
4 

4 0090 - OPERATION ATTEMPTED 
4 

4 A DIAGNOSTIC READ IS ISSUED WITH COUNT OF T9. 

4 

4 EXPECTED RESPONSE 

4 

4 . CONDITION CODE 0 SHOULD BE SET ON THE START 1-0. WHEN THE 

4 CCW COUNT IS EXAUSTEDt THE DEVICE SHOULD TRY TO SEND ANOTHER 

4 BYTE. THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT TO BE 

4 ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL 

4 AND DEVICE END TIME. 

4 . 

4 . 

4 0100 ~ OPERATION ATTEMPTED 
4 

4 A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 81. 

4 

4 EXPECTED RESPONSE 

4 . 

4 5 CONDITION CODE 0 SHOULD BE SET ON THE START 1^0. WHEN THE 


DEVICE HAS SENT ALL ITS DATA, THE CCW COUNT IS NOT EXAUStED. 
THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT TO BE SET ON 
IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL AND 
DEVICE END TIME« ANO A RESIDUAL COUNT OF ONE. 


OHO - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH A CCW COUNT LESS THAN THE 
NORMAL DEVICE RECORD LENGTH. 

EXPECTED RESPONSE 

CONDITION CODE 0 SHOULD BE SET ON THE START 1*0. WHEN THE 
CCW COUNT IS EXAUSTED, THE DEVICE SHOULD REQUEST ANOTHER BYTE. 
THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT TO BE SET 
ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT CHANNEL 
AND DEVICE END TIME. 

WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2560 READER, THE 
CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 
(COLUMN BINARY) CIRCUITRY, 160 BYTES MUST EE TRANSFERRED TO 
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 


0120 - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 161. 

EXPECTED RESPONSE 

CONDITION CODE 0 SHOULD BE SET ON THE START I-G. WHEN THE 
DEVICE HAS RECIEVED ALL ITS OATA, THE CCW COUNT.IS NOT 
EXAUSTED. THIS SHOULD CAUSE THE INCORRECT LENGTH RECORD BIT 
TO BE SET ON IN THE CHANNEL STATUS BYTE OF THE CSW STORED AT 
CHANNEL AND DEVICE END TIME, AND A RESIDUAL COUNT OF ONE. 

WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER, THE 
CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 
(COLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 

************** 

ROUTINE 06 


0130 - OPERATION ATTEMPTED 

A READ NO FEED COMMAND IS COMMAND CHAINED TO TWO MORE READ NO 
FEED COMMANDS. THE SYSTEM IS ENABLED TO RECIEVE INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START !~0. UNUSUAL COMMAND 
SEQUENCE SENSE BIT SHOULD BE SET AT CHANNEL AND DEVICE END 
TIME OF THE SECOND CCW IN THE CHAIN. THIS SHOULD BRING UP 
UNIT CHECK AND BREAK THE CHAIN. THE CSW SHOULD CONTAIN THE 
ADDRESS OF THE FIRST CCW ♦ 16. 

0140 ~ OPERATION ATTEMPTED 

A NO OP COMMAND IS ISSUED. 

EXPECTED RESPONSE 
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2540 READER FUNCTION TESTS ~ SECTION l F8I0 


* ************** 

* 

* 0200 - OPERATION ATTEMPTED 

* 

* , 

* ISSUE INDIVIDUALLY ALL COMMANDS THAT ARE CONSIDERED INVALID 

* TO THE READER* EACH INVALID COMMAND IS FOLLOWED BY THE 

* EXECUTION OF A DIAGNOSTIC CHECK READ COMMAND TO RESET THE 

* SENSE LATCHES IN THE READER. 

* 

* EXPECTED RESPONSE 

♦ 

* EXPECT CONDITION CODE It STATUS STORED WITH UNIT CHECK IN THE 

♦ DEVICE STATUS AND COMMAND REJECT IN THE SENSE BYTE FOR THE 

* INVALID COMMAND CCW. 

♦ 

♦ 

* 0210 - OPERATION ATTEMPTED 

♦ 

* ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND 

* START 1-0, TO RESET THE READER SENSE LATCHES. 

* 

* EXPECTED RESPONSE 

* 

* EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ 

* WHICH FOLLOWS EACH INVALID COMMAND START I-C, AND A SENSE 

* BYTE WITH NO BITS ON. 

* 

* ************** 

* ROUTINE 09 

* ************** 

* 

*********************************************************************** 

* ROUTINE 09 IS BYPASSED WHEN CORRECT PRINTOUTS ARE BEING OUTPUT 

* BECAUSE THE TEST IS DEPENDENT UPON DEVICE BUSY WITHOUT STACKED 

* INTERRUPTS. 

*********************************************************************** 

* 

* 0220 - OPERATION ATTEMPTED 

* 

* A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 

* ENABLED FOR l INTERRUPT. 

* 

* EXPECTED RESPONSE 

* 

4 COND. CODE 0 SHOULD BE SET ON THE START 1-0. INTERRUPT DUE 

* TO CHANNEL END SHOULD OCCUR. 

♦ 

* 0230 - OPERATION ATTEMPTED 

♦ 

* A TEST 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, BUT 

* DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 

* TO CLEAR THE DEVICE END WHEN IT OCCURS. 

4 

* EXPECTED RESPONSE 

* . 

* COND. CODE 1 SHOULD BE SET ON THE TEST 1-0. THE DEVICE BUSY 

* BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 

4 SHOULD NOW OCCUR. 

* 

* 0240 - OPERATION ATTEMPTED 

* 

* A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 

* ENABLED FOR 1 INTERRUPT. 

* 

* EXPECTED RESPONSE 

* 

* COND. CODE 0 SHOULD BE SET ON THE START I-«0. INTERRUPT CUE 
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I 








TO CHANNEL END SHOULD OCCUR* 

OPERATION ATTEMPTED 

A START 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, 
BUT DEVICE END HAS NOT OCCURRED YET* THE SYSTEM IS THEN 
ENABLED TO CLEAR THE DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE START I-O* THE DEVICE BUSY 
BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 
SHOULD NOW OCCUR* 


OPERATION ATTEMPTED 

A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I~<0. INTERRUPT 
DUE TO CHANNEL END SHOULD OCCUR* 

OPERATION ATTEMPTED 

A HALT 1-0 IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, BUT 
DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 
TO CLEAR DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE l SHOULD BE SET ON THE HALT IH3. A CSW WITH NO 
BITS ON SHOULD BE STORED. INTERRUPT DUE TO DEVICE END SHOULD 
NOW OCCUR* 

************** 

ROUTINE 10 
************** 

* 

* 0280 - OPERATION ATTEMPTED 

♦ 

♦ A READ AND FEED COMMAND -02- IS ISSUED AND THE SYSTEM IS 

♦ ENABLED FOR l INTERRUPT. 

♦ 

♦ EXPECTED RESPONSE 
*> 

♦ COND. CODE 0 SHOULD BE SET ON THE START I-€* INTERRUPT DUE 

4 TO CHANNEL END SHOULD OCCUR. 

♦ . 

* 0290 - OPERATION ATTEMPTED 

♦ 

*. AN INVALID COMMAND -DC- IS ISSUED TO A DEVICE WITH A PENDING 

* DEVICE END* 

* 

♦ EXPECTED RESPONSE 

* , 

* COND* CODE 1 SHOULD BE SET ON THE START !-<0* CSW STORED 

* SHOULD CONTAIN DEVICE END AND OEVICE BUSY* NO SENSE BITS 

4 SHOULD BE ON* 

* 

4 POSSIBLE ERROR CAUSES 

* 

♦ IF DEVICE END IS RETURNED ALONE, THE CIRCUITRY THAT BLOCKS 

* BUSY FOR TEST 1-0 SHOULD BE INVESTIGATED TO SEE IF.IT IS ALSO 

♦ BLOCKING BUSY FOR START I-O. 

* - 
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♦ ROUTINE 11 

4 ************** 

* 

* • 

4 0300 - OPERATION ATTEMPTED 

4 . 

4 A READ AND FEED IS ISSUED TO A READER CONTAINING A BLANK CARD* 

* NO!INTERRUPTS ARE CLEARED. 

4 ■ 

4 EXPECTED RESPONSE 

4 

* ■ COND* CODE 0 SHOULD BE SET ON THE START I-Q, AND A CARD SHOULD 

4 FEED INTO STACKER 1. 

4 

* 

4 0310 - OPERATION ATTEMPTED 
4 

4 ANOTHER READ AND FEED IS ISSUED TO PENDING CHANNEL END. 

4 

4 EXPECTED RESPONSE 

4 

* EXPECT COND. CODE 2 BECAUSE CHANNEL END OF PREVIOUS READ FEED 

« WAS NOT CLEARED. 

4 - 
4 

4 0320 - OPERATION ATTEMPTED 

* . 

4 A HALT 1-0 IS ISSUED TO A PENDING CHANNEL END* 

4 

* EXPECTED RESPONSE 

4 . 

4 EXPECT COND. CODE 0 

4 ■ 

4 0330 - OPERATION ATTEMPTED 
4 , 

* A TEST 1-0 IS ISSUED TO A PENDING CHANNEL END. 

4 

4 EXPECTED RESPONSE 

4 . 

* EXPECT COND. CODE l AND CHANNEL END FROM PREVIOUS READ FEED 

4 TO BE IN CSW* 

4 . 

4 • 

4 0340 - OPERATION ATTEMPTED 
4 

4 A HALT 1-0 IS ISSUED TO A PENOING DEVICE END* 

4 . 

4 EXPECTED RESPONSE 

4 

4 COND* CODE 1 SHOULD BE SET AND A CSW WITH NO BITS ON STOREO* 

4 . 

4 

4 0350 - OPERATION ATTEMPTED 
4 

4 A READ AND FEED START 1-0 IS ISSUED TO A PENDING DEVICE END. 

4 

* EXPECTED RESPONSE 

* 

*i COND* CODE 1. CSW SHOULD CONTAIN DEVICE BUSY WITH DEVICE END* 

4 

4 

4 0360 - OPERATION ATTEMPTED 

4 . 

4 A HALT 1-0 IS ISSUED TO A READY DEVICE* 

4 ■ 
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2540 READER FUNCTION TESTS - SECTION 1 F810 


* 

* 

* 0370 

* 

♦ 

♦ 

* 

♦ 

♦ 0380 

* 

* 

4 

4 

* 0390 - 

* 

* 

♦ 

* 0400 

♦ 

* 

4 , 


EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ANO A CSW WITH NO BITS ON STORED. 

- OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED. 

^EXPECTED RESPONSE 

COND. CODE 0. DEVICE SHOULD HAVE NO;PENDING STATUS. 

************** 

ROUTINE 12 
************** 

- OPERATION ATTEMPTED 

A NOP SIO IS ISSUED TO A NOT READY DEVICE- 
EXPECTED RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OP 1. A SENSE IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 


OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A NOT READY DEVICE. 

EXPECTED RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 


- OPERATION ATTEMPTED 

ISSUE A HALT 1-0 TO NOT READY DEVICE. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULO BE SET AND A CSW WITH NO BITS ON STORED. 


* 0410 

* 


- OPERATION ATTEMPTED 

A TEST 1-0 TO A DEVICE THAT JUST WENT PROM NOT READY TO READY. 
EXPECTED RESPONSE 

EXPECT DEVICE END ALONE, WITH A CONDITION CODE 1. 


♦ 0420 

* 

* 

4 - 
* 

* 

* 0430 

* 


OPERATION ATTEMPTED 

ISSUE 5 READ, FEED, STACKER SELECT R1 COMMANDS TO ENABLE 
TESTING END OF FILE IN THE NEXT TEST. 

EXPECTED RESPONSE 

CONDITION CODE 0 FOR EACH START 1-0 AND SEPARATE CHANNEL 
AND DEVICE ENDS FOR EACH IN STATUS. 


- OPERATION ATTEMPTED 

ONE READ, FEED, STACKER SELECT Rl START 1-0 TO TEST END 
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124252 125580 125421 130498 


i ID F810**3 
PAGE 5 


« 


i 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2540 READER FUNCTION TESTS - SECTION 1 F810 

♦ OF FILE. 

4 

4 EXPECTED RESPONSE 

4 EXPECT UNIT EXCEPTION IN STATUS DUE TO NO MORE CARDS IN 

4 THE READER AND READY STILL UP. AFTER UNIT EXCEPTION IS 

4 ACCEPTED BY THE CHANNEL# READY DROPS. CONDITION CODE 1 

4 IS EXPECTED DUE TO UNIT EXCEPTION PENDING IN THE READER. 

4 0440 - OPERATION ATTEMPTED 
4 

4 ISSUE A TEST 1-0 TO THE READER. 

4 EXPECTED RESPONSE 

4 EXPECT CONDITION CODE 1 AND UNIT CHECK ALONE IN THE CSW. 

4 A SENSE IS ISSUEO AND INTERVENTION REQUIRED SHOULD BE IN THE 

4 SENSE BYTE. READY SHOULD HAVE DROPPED ON THE READER DUE TO 

4 UNIT EXCEPTION BEING PRESENTED TO THE CHANNEL. 

4 POSSIBLE ERROR CAUSES 

4 

4 I« THERE MAY HAVE BEEN MORE THAN 5 CARDS IN THE READER FOR 

4 THE EOF TEST 0430. 

4 

4 2. IF THERE WAS NO ERROR INDICATION IN TEST 0430, UNIT 

4 EXCEPTION MAY HAVE BEEN PRESENTED TO THE CHANNEL FROM THE 

4 READER BUT READY ERRONEOUSLY DID NOT DROP. 

4 

4 0450 - OPERATION ATTEMPTED 

4 ■ A NOP SIO IS ISSUED TO A NOT AVAILABLE DEVICE. IOFF LINE) 

4 EXPECTED RESPONSE 

4> COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL) 

4 

4 0460 - OPERATION ATTEMPTED 
4 

4 A TEST 1-0 IS ISSUEO TO A NOT AVAILABLE DEVICE. (OFF LINE) 

4 

4 EXPECTED RESPONSE 

4 

4 , COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL) 

4 

4 0470 - OPERATION ATTEMPTED 

4 A HALT 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 

4 EXPECTED RESPONSE 

4 COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL). 

4 

4 

4 0480 - OPERATION ATTEMPTED 

4 

♦ A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 

4 

4 EXPECTED RESPONSE 

4 EXPECT DEVICE END ALONE, WITH A COND. CODE 1. 

4 

*4444*4*44444444444446444*44444444*44444444444444444444644444444444*444 
*444444444444444444 *6**44************* 
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25*0 READER FUNCTION TESTS - SECTION 

1 

F81G 


! 


4 SECTION PREFACE 4*4444*66**64646.6666.666*6**6*66.6*641 SECTION PREFACE 4 

, 

4 


• 7 

UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

j 


6***446444444644444 

46444444464*4*44464 

4 



FILE WAS ON. 

001000 

F8103000 

SECNO DC 

XL4*F8103000* 

PROGRAM«SECTION AND REVISION NOS. 

* 

******4*444*4444444*4444444*44444*4*444*4444444444444**4*4444*44*4***** 

001004 . 

00000000 

SNSW DC 

XL4*00* 

SECTION SENSE SWITCHES 

♦ . 

44*64444*444464444644444644444444644446444*444444444446*446464*44****4* 

001008 

0000 

DC 

XL2*00* 


* 

******************************************* *4***********$************** 

00100A 

0000 

I CM DC 

XL2* 00* 

INTERRUPTION CONDITION MASK 

* 

* 



PARAMETERS USED TO ENTER 

00100C 

00 

SDMF DC 

XL1*00* 

SECTION DM FLAGS 

* 

* 



THE 1-0 HANDLER ROUTINE 

i 00100D 

02 

NIOU DC 

XL 1 * 02 * 

NUMBER OF UNIT TABLE ENTRYS 

♦ . 

*********************************************************************** 

1 00100E 

CO 

FLAGl DC 

X*CO* 

EXCLUSIVE CPU 

♦ 

* 


BAL 

Rll,lSIO LINK TO 1-0 HANDLER 

00100F 

00 

FLAG2 DC 

X*00* 

I/O INT ARE ERR, EXT INT TO PROG 

♦ 

♦ 


OC 

XL2*0000* CONTROL SWITCHES 

001010 

0104000000 

INPSW DC 

X*0104000000* 

DISABLED* SPVSR STATE, NO PGM MASK 

♦ 

* 


DC 

X*0014* TEST NO. IN DEC EXPRESSED IN HEX 

f 001015 

0017FC 

OC 

AL3t RQUTQ1) 

ADR OF 1ST ROUTINE PREFIX 

* 

* 


DC 

X # FO« EXPECTED CONO. CODE 

001018 

0000000000000000 

EXOPSW DC 

XL8*0* 

SECTION OLD EXTERNAL PSW 

* 

* 


DC 

X*00* EXPECTED SENSE DATA 

001020 

0000000000000000 

SVOPSW DC 

XL8* 00* 

CLEAR ALL OLD PSWS 

* . 

* 


DC 

AL2(ADR-BASE+REG) ADDR. OF EXPECTED CSW IF NEEDED 

001028 

0000000000000000 

PGOPSW DC 

XL8* 00* 

PROGRAM OLD PSW 

♦ 

**************************************************************** # ^ ###]># 

001030 

0000000000000000 

MCOPSW DC 

XL8*00* 

MACHINE CHECK OLD PSW 

* 

*********************************************************************** 

j 001038 

0000000000000000 

IOOPSW DC 

XL8* 00* 

I/O OLD PSW 


* 



1-0 HANDLER CONTROL SWITCHES 

j 001040 

0000000000000000 

CSW DC 

XL8* 00* 

CHANNEL STATUS WORD 

♦ 

4 



2 BYTE PARAMETER FOLLOWING BAL 

001048 

00000000 

CAW DC 

XL4* 00* 

CAW 

4 

444444444444444444*444444444444444***4*44**4*4******4**44*44*44*4**4*** 

00104C 

000000000000000000 OC 

XL12*00* 

RESERVED FOR DM USE 

4 

4 

SWITCH 

DESCRIPTION 

j 001055 

000000 





* 

0 

,-— 

OFF - ISSUE AN 1-0 COMMAND 

001058 

0004000000 

EXNPSW DC 

X*0004000000* 

EXTERNAL NEW PSW 

4 

4 



ON - DO NOT ISSUE AN 1-0 COMMAND 

00105D 

000000 

SRET DC 

XL3 *0* 

ADR OF EXT INTRPT ROUTINE 

* 

4 

1 

“— 

OFF - ENABLE 

j f 001060 

0000000000000000 

SVNPSW DC 

XL8* 00* 

SUPERVISOR NEW PSW 

4 

4 



ON - DO NOT ENABLE 

001068 

0000000000000000 

PGNPSW DC 

XL8•00* 

PROGRAM NEW PSW 

* 

* 

2 


OFF - EXPECT NO INTERRUPT 

i 001070 

0000000000000000 

MCNPSW DC 

XL8* 00* 

MACHINE CHECK NEW PSW 

4 

* 



ON - EXPECT AN INTERRUPT 

001078 

01040000 

IONPSW DC 

XL4* 01040000* 

1/0 NEW PSW 

4 

4 

3 


OFF - DO NOT EXPECT 2 INTERRUPTS 

j 00107C 

00001226 

DC 

AL4(IRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 

,4 j 

* 



ON - EXPECT 2 INTERRUPTS 

! 001080 


DS 

96C 

96 BYTE REG DUMP AREA FOR DM USE 

* 1 

* 

4 

, -r- 

OFF - EXPECT NO CSWS 

0010E0 

81 

UNIT1 OC 

X* 81* 

UNIT TYPE - 2540 READER 

1 

* 



ON - EXPECT A CSW 

0010E1 

00 

U10P DC 

X*00* 

OPTIONAL FEATURES BYTE 

* 

4 

5 


OFF - DO NOT EXPECT 2 CSWS 

0010E2 

8000 

U1ADDR DC 

X* 8000 • 

FLAGS AND CHAN/UNIT ADDRESS 

* j 

* 



ON - EXPECT 2 CSWS 

1 0010E4 

82 

UNIT2 DC 

X • 82* 

UNIT TYPE - 2540 PUNCH 

1 

4 

6 

; 

OFF - ALWAYS TRY TO ISSUE SENSE 

0010E5 

00 

U20P DC 

X»00* 

OPTIONAL FEATURES BYTE 

| 

4 . 



ON - SENSE ON UNIT CHECK ONLY 

1 0010E6 

8000 

U2ADDR DC 

X* 8000* 

FLAGS AND CHAN/UNIT ADDRESS 


4 , 

8 

■- 

OFF - NOT EXECUTING INVALID COMMANO 


**********444***4***4*444446464444*****4**4*4*********4****:t4*4**4***44 

* OPTIONAL FEATURE BYTE DEFINITION 

************************444**444*******4****44***************4******4** 

* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT 5 * BIT 6 * BIT 7 * 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 * HEX 2 * HEX 1 * 

* * ASCII * CARD * * 51 * 1400 * * * 2821 * 

* * * IMAGE * * COL RD* COMP * 4 * 2 CHN * 

* * * * * * * * * SW« * 

********4***************444**4*******************4*******4***********4* 

* 2540 READER SENSE BYTE 

*4*44444*4444444*44*4*444444*«44***4*4**44444**4*4444**444«4*4*****44** 
« BIT MEANING 

* 0 COMMAND REJECT 

4 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 

* 7 NOT USED 

4*44444444444444*4*****44444444444444444444444*4444444***4«4***444****4 

* 2540 READER STATUS BYTE 

44*444444444444**4444**4444**4444*44*444444*4444444444*44*4444444*4*444 

* BIT 

* 0 
♦ 

♦ . 

* 1 

♦ 2 

♦ 3 

♦ 4 

* 5 

* 6 


MEANING 

ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 
SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 
A 1400 COMPATIBILITY READ. 

STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

DEVICE BUSY 

CHANNEL END 

DEVICE END 

UNIT CHECK 


* ON - EXECUTING INVALID COMMAND 

♦ . 

*44**444444444*444444*4***4*4*44444**44*44*4*4*4444444444**444444444444 

*4***44**4444*»***4*********4**************4*44444444*4im<*44*44*444**** 

* SWITCHES USED BY 1-0 HANDLER 
*444*4*444*44***4*****4**********4**4***********4*******4«*4*********** 

DESCRIPTION 

NO HANGUP ON INTERFACE 
HANGUP OCCURRED 
NO CSWS STORED 
ONE CSW STORED 
SECOND CSW NOT RECEIVED 
SECOND CSW RECEIVED 
DID NOT ENABLE 
ENABLED ONCE 
DID NOT ENABLE TWICE 
ENABLED TWICE 
NO SENSE DATA RECEIVED 
SENSE DATA RECEIVED 

NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
NO ERROR DETECTED 
AN ERROR WAS DETECTED 
4**44444444*4*44444**«*****4**444*4444444444444444444444444444444444444 

* REGISTERS USED IN, 1^0 HANDLER 

44444464446444444444*444**4*444444444444446444444*444644646444464466444 
REG COMMENTS 

5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED* 



USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 
USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 


DATE 

EC 
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22FEB66 

125621 
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™ * 

0 

10 ; 

MUST CONTAIN CCW AOORES& UPON ROUTINE>ENTRY 








0 

11 

MUST BE USED AS LINK 

REG TO THIS ROUTINE 








*> 

12 

MUST CONTAIN DEVICE AOORESS 








*********************************************************************** 

0010E8 

0000 





1SW 

DC 

XL2 9 0 9 









*********************************** 44 ** 4 ******************************* 








*********************************************************************** 








4 . 


* 1-0 HANDLER SUB-ROUTINE * 








*********************************************************************** 

0010EA 

92 

9E 

F 

1AC 



IHXO 

MVI 

ISSUE,X 9 9E * 

SET UP FOR HALT 1-0 

0010EE 

92 

C8 

F 

661 




MVI 

I0PTi+25,X 9 C8 9 

MOVE -H- TO OPTION MSG. 

0010F2 

92 

C8 

F 

5C8 



- 

MVI 

IOADDR+12,X 9 C8 9 


0010F6 

92 

9E 

F 

15E 




MVI 

ILGOP,X 9 9E• 


0010FA 

47 

FO 

F 

122 




BC 

UNC,IEYEQH 

BR. UNCONDITIONAL 

0010FE 

92 

90 

F 

1 AC 



IT 10 

MVI 

ISSUE»X 9 9D 9 

SET UP FOR TEST 1-0 

001102 

92 

90 

F 

15E 




MVI 

IL00PfX 9 9D* 


001106 

92 

E3 

F 

661 




MVI 

IGPT1+25,X 9 E3 9 

MOVE -T- TO OPTION MSG* 

00110A 

92 

E3 

F 

5C8 




MVI 

IOADDR+12fX®E3 9 


00110E 

47 FO 

F 

122 




BC 

UNCfIEYEQH 

BR. UNCONDITIONAL 

001112 

92 

9C 

F 

1 AC 



ISXO 

MVI 

ISSUE.X 9 9C 9 

SET UP FOR START 1-0 

001116 

92 

9C 

F 

15E 




MVI 

ILOOP »X 9 9C 9 

. 9 

00111A 

92 

E2 

F 

661 




MVI 

I0PTl+25fX 9 E2 9 

MOVE.-S- TO OPTION MSG* 

00111E 

92 

E2 

F 

5C8 




MVI 

IOADDR+12,X 9 E2 9 


001122 

02 

01 

F 

644 

B 

002 

IEYEQH 

HVC 

ITSTN0+5C 2)*2(RID 

SAVE TEST NUMBER 

001128 

90 

AB 

F 

698 




STM, 

RlOvRll.ISLAVE 

SAVE REG 10 AND REG 11 

00112C 

90 

89 

F 

588 




STM 

R8.R9.ISAVE 

SAVE REGS 8 AND 9 

001130 

D2 

00 

F 

6A5 

F 

003 


MVC 

RTSVI13 » SECNO+3 

SAVE RT NO. FOR HANGUP. 

001136 . 

50 

AD 

0 

048 



IRETRY 

ST 

R10.HCAWCR13) 

STORE COMMAND ADDRESS. 

00113A 

07 

07 

0 

040 

0 

040 


XC 

HCSWI8.R13),HC5W(R13) 


001140 

07 

OB 

E 

080 

E 

060 


XC 

LOGOUT!12»R14).LOGOUT C R14 ) 

001146 . 

91 

80 

8 

000 




TM 

O(Rll),X 9 80 9 

CHECK CONTROL SWITCH FOR NO.1-0 

00114A 

47 

10 

F 

IF6 




BC 

ALL.INOW 

BR. IF ON 

00114E 

91 

CO 

F 

004 




TM 

SNSW,X*C0 9 


001152 

47 

80 

F 

19A 




BC 

NONE.JOHN 









*********************************************************************** 








* . 


SENSE SWITCH LOOPS 








*********************************************************************** 

001156 

91 

80 

F 

004 



ITRY1 

TM 

SN5W*X 9 80 9 

CHECK SECTION SENSE SWITCH 0 

00115A 

47 

80 

F 

166 




BC 

N0NE.ITRY2 

BR. IF OFF 

00115E 

9C 

00 

C 

000 



ILGOP 

SIO 

OIR123 

SIO, TIO, OR HIO 

001162 

47 

FO 

F 

156 




BC 

UNC.ITRY1 

BR. UNCONDITIONAL 

001166 

91 

40 

F 

004 



ITRY2 

TM 

SNSW,X 9 40 9 

CHECK SECTION SENSE SWITCH 1 

00116A 

47 

80 

F 

186 




BC 

NONE.IHI 

BR. IF OFF 

00116E 

90 

00 

C 

000 



IHANG 

TIO 

0IR12) 

TEST 1-0 

001172 

47 

70 

F 

156 




BC 

NCC0.ITRY1 

BR. IF NOT CGND. CQOE 0 

001176 

91 

40 

F 

004 




TM 

SN$W,X 9 40 9 

CHECK SECTION SENSE SWITCH 1 

00117A 

47 

80 

F 

186 




BC 

NONE,IHI 

BR. IF OFF 

00117E 

9C 

00 

C 

000 




SIO 

01R123 

START 1-0 

001182 

47 

FO 

F 

16E 




BC 

UNC.IHANG 

BR. UNCONDITIONAL 

001186 

58 

9E 

0 

198 



IHI 

t 

R9,WTIR14) 

PICK UP DM WAIT FACTOR. 

00118A 

88 

90 

0 

003 




SRL 

R9. 3 

CUT IT DOWN TO 1.25 SECS. 

00118E 

90 

00 

C 

000 



GREG 

TIO 

(HR 12) 

TEST 1-0 TO DEVICE* 

001192 

47 

80 

F 

19 A 




BC 

CCO.JOHN 

BR IF AVAILABLE. 

001196 

46 

90 

F 

18E 




BCT 

R9.GREG 

LOOP UNTIL TIME OUT. 

00119A 

D7 

01 

F 

0E8 

F 

0E8 

JOHN 

XC 

lSWt 2),X SW 

ZERO THE 1-0 HANDLER SWITCHES. 

0011 AO 

96 

80 

F 

0E8 




01 

* ISW,X 9 80 9 

TURN ON THE HANG SWITCH. 

0011A4 

92 

E7 

F 

610 




MVI 

IACSNS+5.C a X c 

MOVE AN X INTO ACTUAL SENSE BYTE. 

0011A8 

92 

E7 

F 

5B7 




MVI 

IACTCC+5.C•X < 

MOVE IN A -X- 

0011AC 

9C 

00 

C 

000 



ISSUE 

SIO 

0IR12) 

1-0 COMMAND- SIO, TIO, OR HIO 

OOUBO 

47 

80 

F 

1F2 




BC 

CCO.IZERO 

BR. IF CGNO. CODE 0 

0011B4 : 

47 

40 

F 

ICC 




BC 

CC1.I0NE 

8R. IF COND. CODE 1 

001188 

47 

20 

F 

1C4 




BC 

CC2.ITW0 

BR. IF COND. CODE 2 

0011BC: 

92 

F3 

F 

5B7 




MVI 

IACTCC+5,X 9 F3« 

INDICATE COND. CODE 3 

OOUCQ 

47 

FO 

F 

1F6 




BC 

UNC,1NOW 

BR. UNCONDITIONAL 
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0011C4 1 

92 

F2 

F 

5B7 



1TW0 

MVI 

IACTCC+5,X 9 F2 * 

INDICATE COND. CODE 2 

001ICS 

47 

FO 

F 

1F6 




BC 

UNC,INOW 

BR. UNCONDITIONAL 

0011CC 

92 

FI 

F 

5B7 



IONE . 

MVI 

; IACTCC+5,X # F1• 

INDICATE COND. CODE 1 

001100 

D2 

07 

F 

67E 

D 

o 

<* 

o 


MVC 

ICSW1(8),MCSW(R13) 

SAVE CSW 

001106 

96 

40 

F 

0E8 




01 

ISW,X*40 c 

INDICATE 1 CSW 

0011DA 

91 

80 

B 

001 




TM 

l(Rll),X 9 80 # 

SEE IF.INVALID CMOS TEST. 

001IDE 

47 

80 

F 

IF6 




BC 

NONE,INOW 

BR IF NOT. 

0011E2 

91 

08 

F 

682 




TM 

ICSW1+4»X *08* 

SEE IF CHANNEL END IN STATUS. 

0011E6 

47 

10 

F 

1F6 




BC 

ALL,INOW 

BR IF YES. 

0011EA 

96 

40 

B 

000 




01 

Of RID , X # 4G f 

DO NOT ALLOW ENABLING FOR INTERRUPT. 

0011EE 

47 

FO 

F 

1F6 




BC 

UNC,INOW 

BR. UNCONDITIONAL 

0011F2 

92 

FO 

F 

587 



HERO 

MVI 

IACTCC+5,X*F0 • 

INDICATE COND. CODE 0 

0011F6 

94 

7F 

F 

0E8 



INOW 

N! 

ISW,X 9 7F• 

TURN OFF HANG UP SWITCH 

0011FA 

91 

40 

B 

000 




TM 

OfKIU tX 9 40 9 

CHECK CONTROL SWITCH FOR NO ENABLE 

0011FE 

47 

10 

F 

29A 




BC 

ALL,ISEN 

BR. IF ON 

001202 

96 

10 

F 

0E8 




01 

1SW*X 9 10 9 

INDICATE ENABLED CNCE 

001206 

58 

9E 

0 

198 



IWAIT 

L 

R9.WTIR14) 

LOAD DM WAIT FACTOR 

00120A 

88 

90 

0 

003 




SRL 

R9.3 

ADJUST 

0012QE 

96 

80 

F 

0E8 




01 

I$W,X 9 80® 

TURN CN HANG UP SW 

001212 

80 

00 

F 

6A3 




SSM 

MSKl 

ENABLE 

001216 

46 

90 

F 

216 




BCT 

R9»* 

WAIT 

00121A 

80 

00 

F 

6A4 




SSM 

MSK2 

DISABLE 

0G121E 

94 

If 

F 

0E8 




NI 

ISW.XDF® 

TURN OFF HANG SW 

001222 

47 

FO 

F 

29A 




BC 

UNC,ISEN 

BR. UNCONDITIONAL 








*********************************************************************** 








* 


ALL 1-0 

INTERRUPTS RETURN HERE 








*********************************************************************** 

001226 

49 

CO 

F 

03A 



IRETRN 

CH 

R12,IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

00122A 

47 

60 

F 

248 




BC 

UNEQ,IUIQ 

BR. IF UNEQUAL 

00122E 

94 

7F 

F 

0E8 




NI 

ISW,X 9 7F* 

RESET HANG UP SW 

001232 

91 

40 

F 

0E8 




TM 

ISW,X 9 40* 


001236 

47 

10 

F 

278 




BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

00123A 

02 

07 

F 

67E 

F- 

040 


MVC 

ICSW1(8),HCSW(R15I 

SAVE CSW 1 

001240 

96 

40 

F 

0E8 




01 

ISW,X 9 40 9 

INDICATE 1 CSW STORED 

001244 

47 

FO 

F 

282 




BC 

UNC,INT3 

BR. UNCONDITIONAL 

001248 

D2 

07 

F 

590 

F 

@40 

tUIO 

MVC 

WORK!8).HCSWtRlS) 


00124E 

OA 

DO 






SVC 

X 9 DD* 

CONVERT ADDRESS 

001250 

0002 






DC 

AL2I2) 

2 BYTES OF 1-0 OLD PSW. 

001252 

003 A 






DC 

AL2U00PSW+2-SECN0) 

FROM HERE. 

001254 : 

06B8 






DC 

AL2IIUNEX+17-SECN0) 

TO HERE 

001256 

OA 

DO 






SVC 

X 9 D0 9 

PRINT UNEXPECTED INTERRUPT DEVICE 

001258 

64 







DC 

X 9 64* 

ADDRESS 

001259 

15 







DC 

X 9 15® 


00125A 

F6A7 






DC 

AL2!1UNEX-SECN0+REG) 


00125C 

D2 

02 

F 

SEE 

F 

5E7 

* 

MVC i 

- IBLAH+113 3 vXCSW 

MOVE -CSW- TO MESSAGE 

001262 

92 

1A 

F 

430 




MVI 

ICNT,X 9 1A 9 

ADJUST COUNT 

001266 

02 

02 

F 

604 

F 

•607 


MVC t 

IBLAH+23C3)tIACT 

MOVE -ACT- TO MESSAGE 

00126C 

45 

90 

F 

426 




BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

001270 

96 

02 

F 

0E8 




01 

ISW*X 9 02 9 

INDICATE UIO 

001274 

47 

FO 

F 

500 




BC 

UNC,ILOGED 

BR. UNCONDITIONAL 

001278 

D2 

07 

F 

686 

F 

040 

ISV2 

MVC 

ICSW2(8),HCSW(R153 

SAVE CSW 2 

00127E 

96 

20 

f 

0E8 




01 

ISW,X 9 20 9 

INDICATE 2 CSWS STORED 

001282 

91 

10 

8 

000 



INT3 

TM 

0(R11),X 9 10 9 

CHECK CTRL SW FOR 2 INTR EXPECTED 

001286 

47 

80 

F 

29 A 




BC 

NONE,!SEN 

BR. IF NOT 

00128A 

91 

08 

F 

0E8 




TM 

ISW,X # 08 9 


00128E 

47 

10 

F 

29A 




BC 

ALL,ISEN 

BR. SF ALREADY ENABLED TWICE 

001292 

96 

08 

F 

0E8 




01 

ISW,X 9 08 9 

INDICATE ENABLED TWICE 

001296 

47 

FO 

F„ 

206 




BC 

UNC,IWAIT 


00129A 

91 

02 

B 

000 



ISEN 

TM 

0(R1D,X 9 02 9 

CHECK CONTROL SWITCH FOR SNS ON UC 

00129E 

47 

80 

F 

2C2 




BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

0012A2 

91 

40 

F 

0E8 




TM 

ISW»X 9 40 9 

SEE IF 1ST CSW IN. 

0012A6 

47 

80 

F 

318 




BC 

NONE,IBSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

0012AA 

91 

02 

F 

682 




TM 

1CSW1+4,X 9 02® • 

CHECK FOR UNIT CHECK 

0012AE 

47 

10 

F 

2C2 




BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

0012B2 

91 

20 

F 

0E8 




TM 

ISW,X 9 20 9 

CHECK FOR SECCNO CSW 

001286 

47 

80 

F 

318 




BC 

NONE,ISSN 

BR. IF NOT TO BYPASS SENSE 

0012BA 

91 

02 

F 

68A 




TM 

ICSW2+4,X 9 02* • 

CHECK FOR UNIT CHECK 

0012BE 

47 

80 

F 

318 




BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

DATE 

05MAY65 


10AUG65 

22FEB66 ISJUN67 


ID P810t*3 

EC 

124252 


125580 

125621 130498 
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DATE 

EC 


K.J 


Vi' 


Q.a 


0012C2 

58 

9E 

0 

198 < 

100SNS L 

R9tVT(RI4l 1 

LOAD DM WAIT FACTOR 

! 

0012C6 

88 

90 0 002 

SRL 

R9»2 

CUT IT DOWN TO 2.3 SECS. 

1 

0012CA 

41 

80 

F 

690: 

LA 

R8«lSENSE 

LOAD SENSE COMMANO ADDRESS 

\ 

0012CE 

50 

8D 

0 

048 * 

ST 

R8,HCAW(R13) 

STORE IN CAW 

| 

001202 

9C 

00 

C 

000 

SIO 

0IRI2I 

ISSUE SENSE 

i 

001206 „ 

47 

70 

F 

366 

BC 

NCCO*INDER 

BR. IF NOT ACCEPTED 

i 

0012DA 

90 

00 

C 

000 

ITIOLP TIO 

0CR12I 

TEST 1*0 

1 

00120E 

47 

40 F 

302 

BC 

CCltlLOKE 

BR. IF CSW STORED 

I 

0012E2 : 

46 

90 

F 

2DA 

1TIC BCT 

R9,ITIOLP 


i 

0012E6 

47 

FO 

F 

318 

BC 

UNC*IBSN 

BR. UNCONDITIONAL 

{ 

0012EA 

91 

40 

F 

0E8 * 

1N0EXI TM 

ISW,X®40* 


j 

0012EE 

47 

10 

F 

366 

BC 

ALL.INDER 

BR. IF CSW STORED 

i 

0012F2 

47 

FO 

F 

36A 

BC 

UNCtIDUNCK ‘ 

BR. UNCONDITIONAL’ 

1 

0012F6 

91 

20 

F 

0E8 

IN0EX2 TM 

» 1SW,X®20® 



0012FA 

47 

10 

F 

366 

BC 

ALL*INDER 

BR. IF CSW 2 STORED 

s 

0012FE 

47 

FO 

F 

36A 

BC 

UNCtIDUNCK 

BR. UNCONDITIONAL 

| 

001302 

95 

OC 

D 

044 

ILOKE CL1 

HC$W*4CR13I*X«0C« - 

CHECK FOR CE DE ONLY 


001306 

47 

70 

F 

2E2 

BC 

NCCQtITIC 

BR. IF NOT 


00130A 

96 

04 

F 

0E8 ' 

01 

I$W,X®04® 

INDICATE SENSE DATA RECIEVED 


00130E 

05 

00 

F 

610 B 005 

CLC 

iacsns+scu •simi 

COMPARE FOR EXPECTED SENSE 


001314 

47 

60 

F 

366 

Sc 

UNEQtINDER 

BR. IF UNEQUAL 


001318 

05 

00 

F 

5B7 B 004 

. IBSN CLC i 

IACTCC+5(1)«4(R11I 

COMPARE FOR EXPECTED COND.CODE 


00131E 

47 

60 

F 

366 

BC 

UNEQtINDER 

BR. IF UNEQUAL 


001322 

91 

OB 

B 

000 

TM 

O(Rll)»X > 08* 



001326 

47 

80 

F 

2EA 

BC 

NONE*INOEXl ; 

BR. IF NO CSW EXPECTEO 


00132A 

91 

40 

F 

0E8 

TM 

ISW,X®40® 


I 

00132E 

47 

80 

F 

366 

BC 

NONE.INOER 

BR. IF NO CSW RECIEVED 


001332 

48 

8B 

0 

006 

LH 

R8«6(R11I 

LOAD CSW ADDR 


001336 

40 

80 

F 

33E 

STH 

R8t1CCSW1+4 

STORE IN COMPARE INSTR. 

f 

00133A 

05 

07 

F 

67E F 67E 

1CCSW1 CLC 

ICSW1(8)t XCSW1 

COMPARE FOR EXPECTEO CSW 


001340 

47 

60 

F 

366 

BC 

UNEQtINDER 

BR. IF UNEQUAL 


001344 

91 

04 

B 

000 

TM 

O(Rll) *X # 04*. 


« 

001348 

47 

BO 

F 

2F6 

BC 

NONE*INOEX2 

BR. IF NO CSW 2 EXPECTED 


00134C 

91 

20 

F 

0E8 

TM 

ISW,X®20® 


i 

001350 

47 

80 

F 

366 

BC 

NONE*INDER 

BR. IF NO CSW 2 RECIEVED 


001354 

41 

88 

0 

008 

LA 

R8t 8CR8) 

UPDATE TO SECOND CSW 


001358 

40 

80 

F 

360 

STH 

R8tICCSW2+4’ 


| 

00135C 

05 

07 

F 

686 F 686 

ICCSW2 CLC 

ICSW2C8)tICSW2 

COMPARE FOR EXPECTEO CSW 2 

| 

001362 

47 

80 

F 

36A 

BC 

EQtlDUNCK 

BR. IF EQUAL 


001366 

96 

01 

F 

0E8 

INOER 01 

ISW.X'Ol® 

INDICATE AN ERROR 


00136A 

92 

64 

F 

3B2 

10UNCK MVI 

.. IFLAG1,X®64* 

SET UP FOR ERROR PRINTOUT 


00136E 

92 

CO 

F 

53E 

MV1 

IFLAG2,X®C0« 



001372 

91 

01 

F 

0E8 ‘ 

TM 

ISW,X*01® 

CHECK FOR A DETECTED ERROR 


001376 

47 

10 

F 

38A 

BC 

ALLtlOUTIT 

BR. IF ERROR DETECTED 

1 

00137A 

91 

01 

F 

004 : 

TM 

SNSW« X*Ol 1 

CHECK SECTION SENSE SWITCH 7 

: 

0Q137E 

47 

80 

F 

55A 

BC 

NONE«ILEAVE 

BR. IF OFF 


001382 

92 

24 

F 

382 

MVI 

IFIAG1,X®24» 

SET UP FOR CORRECT PRINTOUT 


001386 

92 

80 

F 

53E 

MVI 

IFLAG2*X®iO« 



00138A 

91 

80 

F 

6A6 

IQUTIT TM 

SWCHt X* 80* 

SEE IF*IN INTERVENTION TESTS. 

| 

00138E 

47 

10 

F 

3A2 

BC 

ALLtSPRT 

BR IF YES. 


001392 

95 

40 

F 

610 

CL1 

IACSNS*5,X®4®« ■ 

SEE IF INTERVENTION REQUIRED. 

? 

001396 

47 

80 

F 

570 

BC 

EQtROYM 

BR IF YES. 


00139A 

91 

01 

F 

682 

TM 

ICSWl*4,X®01® 

SEE IF UNIT EXCEPTION. 


00139E 

47 

10 

F 

570 

BC 

ALLtRDYM 

BR IF YES. 

1 

0013A2 

02 

01 

F 

644 8 @02 

SPRT MVC 

ITSTNQ+5C21«2fRll) 

MOVE TEST NO. TO PRINT AREA. 

! 

0013&8 ’ 

OA 

DO 



SVC 

X®DD * 

CONVERT TEST NUMBER 

f 

0013AA 

0002 



OC 

AL2C2I 



0013AC 

0644 



OC 

AL2UTSTN0*3~$ECNQI 



0013AE 

0644 



DC 

AL2IITSTNO*5-SECN0J 



001380 

OA 

DO 



SVC 

X®DO® 

PRINT TEST NUMBER 


0013B2 

64 




IFLAG1 DC 

* X®64* - 



0013B3 

09 




DC 

X®09» 



0013B4 

. F63F 



DC 

AL2UTSTN0*SECN0*REGI 

: 


0013B6 

41 

80 0 

004 

LA 

R8.4 

ADJUST LINK ADDRESS FOR PRINTOUT 

i 

0013BA 

IB 

88 



SR 

R11 «R8 


1 

0013BC 

50 

80 

F 

500 

ST 

RU« ILINK+S 



D013C0 

OA 

DO 



SVC 

X®DD® 

CONVERT LINK AOORESS 


0013C2 

0003 



DC 

AL2C3I 




05NAT65 
124252 


10AUG65 

125580 


22FEB66 

125621 


15JUN6? 

130498 
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0013C4 * 

0013C6 

0013C8 ' 

0013CA 

0013CB 

0013CC : 

0013CE 

0013D2 

001306 

00130A 

00130C 

0013DE 

O013E0 

00I3E2 

0013E4 

0013E5 

0013E6 

0013E8 

0013EC 

0013F0 

00I3F4r 

0013F6 , 

0013F8 

0013 F A 

0013FC 

0013FE 

0013FF 

001400 

001402 

001408 • 

00140C 

001412 

001416 

00141A 

00141E 

001422 

001426 

001428 

00142A 

00142C 

00142E 

001434 i 

00143A 

00143C 

00143D 

00143E 

001440 

001442 

001448 ‘ 

00144A 

00144B 

00144C 

00144E 

001450 

001451 

001452 

001454 

00145A 

00145E 

001462 

001466 . 

00146C 

001470 

001474 

001478 

00147C 

001482 

001486 


DATE 

EC 


. _ O 
0 0 0 0 


05DI 
05D0 
OA DO 
AO 
10 

F5CB 
41 BB 

91 80 
47 10 
OA DO 
0003 
06A0 
05CI 
OA DO 
AO 

OF 
F5BC 
95 9C 
47 60 
50 AO 
OA OD 
0003 
05E1 
05E0 
OA DO 
AO : 

OB 
F50B 
D2 02 

92 16 
D2 07 
45 90 

91 CO 
47 80 
41 AA 
47 FO 
OA DO 
0008 
0590 
0590 : 
02 07 
02 07 
OA DO 
AO 

1A 

F5ED 
07-F9 
02 00 
OA 00 
AO : 

OA 

F5A8 

OA DO 

AO 

OA 

F5B2 

02 02 

92 1A 
91 08 

47 80 
02 02 

48 8B 

40 80 

41 88 
40 80 
02 07 
45 90 
91 40 


0 004 
B 000 
F 454 


F 1AC 
F 442 
F 5E0 


F SEE 
F 430 
F 590 
F 426 
A 004 
F 442 
0 008 
F 40C 


F 5F2 
F 5FB 


F SEA 
A 000 


DC 

AL2tILINK+6*S£CN0) 


DC 

AL2ULINK+5-SECN0) 


SVC 

X®00* . 

PRINT LINK ADDRESS 

DC 

X , AO # 

DC 

X»10» . 


DC 

AL2(ILINK-SECN04RE8I 


LA 

R11«4(R11I 


TM 

OCRllf,X*BO v 


BC 

ALL*IOCSW 

BR. IF NO 1*0 COMMAND ISSUED 

SVC 

X # DO f . 

CONVERT 1*0 ADDRESS 

DC 

AL2C3I 

OC 

AL2«I0ADR*SECN0J 


OC 

AL2II0ADDR*5*$ECN0I 


SVC 

X®DO® 

PRINT 1*0 ADDRESS 

DC 

X® AO* 

DC 

X*OF* - 


DC 

AL2CIGADDR-SECNQ+REGI 


CLI 

ISSUE»X*9C* 

COMPARE FOR SIO COMMAND 

BC 

UNEQtICCOUT 

BR. IF NOT 

ST 

R10tICAW+5 

STORE CCW ADDR. 

SVC 

X*DD* 

CONVERT CAW 

DC 

AL2I3I 


OC 

AL2C1CAW+6-SECN0I 


OC 

AL2UCAW+5-SECN01 


SVC 

X®DQ® 

PRINT CAW 

OC 

X* AO* 


DC 

X* OB* 


DC 

AL2CICAW-SECNO+REG) 


MVC 

1BLAH+1C 31 * ICCW 

MOVE *CCW* TO MESSAGE 

MVI 

ICNTtX*16* 

ADJUST COUNT 


ICWOUT MVC WORK!8),0(R10) 


ICOUT 


F 590 
F 598 


F 5A0 B 004 


BAL 

R9 f ICOUT 

TM 

4CR10)tX*CO* 

BC 

NONE,ICCOUT 

LA 

R10,8(R10) 

BC 

UNC,ICWOUT 

SVC 

X*DD* 

DC 

AL2I8) 

DC 

AL2<WORK-SECNO) 

DC 

AL2C WORK**SEGNO} • 

MVC 

18LAH+5C 81,WORK 

MVC 

IBLAH+.14f 8) ,W0RK48 

SVC 

X*00* . 

DC 

X* AO* 

DC 

• X®1A* • 

DC 

AL2(IBLAH-SECN04REGI 

BCR 

UNC,R9 


ICNT 


ICCOUT MVC 1EXPCC+5I1)«4(R11I 


MOVE CCW TO WORK AREA 
BR. TO OUTPUT CCW 
CHECK FOR ANY CHAIN FLA6S 
BR. IF NONE 
UPDATE TO NEXT CCW 
BR. UNCONDITIONAL 
CONVERT 


MOVE TO MESSAGE 
PRINT 

RETURN VIA REG 9 


F 5EE 
F 430 
B 000 
F 486 
F 604 
0 006 
F 480 
0 008 
F 4 BO 
F 590 
F 426 
F 0E8 


F SET 


F 60A 


F 590 


IOCSW 


ID 101 


SVC 

X®DO* 

PRINT EXPECTS 

DC 

X®AO* 


DC 

X®OA* 


DC 

AL2IIEXPCC-SECN04REGI 


SVC 

X*DO* 

PRINT ACTUAL 

DC 

X®AO* 


DC 

X®OA* 


DC 

AL 2 CIACTCC-SECN04REG1 


MVC 

1BLAH+1I3)tICSW 

MOVE -CSW- TO 

MVI 

1CNT,X»1A* 

ADJUST COUNT 

TM 

0(Rin,X®08* 


BC 

NONE,IDIDI 

BR. IF NO CSW 

MVC 

IBLAH+23C3),IEXP 

MOVE.*EXP* TO 

LH 

R8.6IRU) 


STH 

R8,ICHNG144 


LA 

R8,8IR8I 


STH 

R8,ICHNG2+4 


MVC 

WORK!8),WORK 

MOVE EXPECTEO 

BAL 

R9,ICOUT 

BR. TO OUTPUT 

TM 

« 1SW,X*40* 



05MAY65 
124252 


10AUG63 

125580 


22FEB66 

125621 


15JUN67 • 
130498 
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00148A 

47 60 

F 

49E 



BC f 

• NONE*IMORST * 

BR. IF NO CSW STORED 

001566 

41 BB 0 006 

IUP LA 

R11*6(R11) 



00148E 

D2 02 

F 

604 

F 

607 

MVC : 

I8LAH+23C3)«IACT 

MOVE -ACT* TO MESSAGE 

1 DO356A 

98 89 F 588 

LM 

• R8,R9«1 SAVE 

RESTORE REGS 8 AND 

9 

001494 

02 07 

F 

590 

F 

67E 

MVC 

WORKt 8)•ICSW1 

MOVE ACTUAL CSW TO WORK AREA 

! 00156E 

> 07 FB 

BCR 

UNC*R11 

RETURN VIA REG 11 


00149A 

45 90 

F 

426 



BAL 

R9»ICOUT 

BR. TO OUTPUT ACTUAL CSW 



*********************************************************************** 

00149E 

91 04 

B 

000 



IMORST TM 

0(R11)*X*04 9 




* INTERVENTION REQUIRED MESSAGE 


0014A2 

47 80 

F 

4B6 



BC 

NQNE.IDID 

BR. IF NOT EXPECTING 2 CSWS 



t********************************************************************** 

0014A6 

D2 02 

F 

604 

F 

60A 

MVC 

IBLAH+23!3) «!EXP 

MOVE--EXP— TO MESSAGE 

001570 

OA DO 

RDYM SVC 

X*DO* 

PRINT -MAKE OEVICE 

REAOY- 

0014AC 

02 07 

F 

590 

F 

590 

ICHNG2 MVC 

WORKt81.WORK 

MOVE EXPECTED CSW TO WORK AREA 

001572 

2410 

DC 

X* 2410* 



0014B2 

45 90 

F 

426 



BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

001574 

FFEB 

DC 

AL21MDR-SECNO+REG) 



0014B6 

91 20 

F 

0E8 



IDID TM 

ISW»X 9 20 a 


001576 

OA DA 

SVC 

X *DA 9 

.-HALT- 


0014BA 

47 80 

F 

4CE 



BC 

NONE*IPAS 

BR.. IF NO SECONO CSW STOREO 

001578 

9D 00 C 000 

TIO 

0<R12> 

TEST 1-0 


0014BE 

02 02 

F 

604 

F 

607 

MVC 

IBLAH+23t3)*IACT 

MOVE-ACT- TO MESSAGE 

00157C 

OA DO 

SVC 

X # DO* 

PRINT A BLANK. 


0014C4 

02 07 

F 

590 

F 

686 

MVC 

WORKt 8)«ICSW2 

MOVE CSW TO WORK AREA 

00157E 

8001 

DC 

X • 8001 9 



0014CA 

45 90 

F 

426 



BAL: 

R9*ICOUT 


001580 

FFEB 

DC 

AL2(MDR-SECNQ+REG) 



0014CE 

02 00 

F 

612 

B 

005 

IPAS MVC 

IEXSNS+5Cl)*5tRllI 

MOVE EXP SENSE TO MESSAGE 

| 001582 

47 FO F 136 

BC 

UNC,IRETRY 

BR TO CONTINUE. 


001404 

91 04 

F 

0E8 



TM 

ISW.X 9 04 9 






001408 

47 80 

F 

4F8 



BC 

NONE*IPASS 

BR. IF NO SENSE DATA RECIEVEO 

1 


♦ 1-0 HANDLER WORK AREA. 



00140C 

OA 00 





SVC 

X*DO f 

CONVERT EXPECTED SENSE 



*****«$***** 


00140E 

0001 





DC 

AL2C1I 


001586 


CNOP 

0,8 



0014E0 

0612 





DC 

AL2UEXSNS+5-SECN0) 


001586 

07 00 

BCR 

0,0 



0014E2 

0612 





DC 

AL2CIEXSNS+5-SECN0) 


001588 

0000000000000000 

ISAVE DC 

XL 8 * 0 6 



0014E4 

OA 00 





SVC 

X«DO* 

PRINT EXPECTED SENSE 

001590 


WORK DS 

24C 



0014E6 

AO 





DC 

X 9 A0 9 


0015A8 

40C 3 C34040E740C5 E7 

IEXPCC DC 

C* CC X EXP 9 



0014ET 

OB 





DC 

X , OB* 


0015B1 

D7 


* 



0014E8 

F60D 





DC 

AL2(fSXSNS-SECNO+REG) 


0015B2 

40C3C34040E740C1C3 

IACTCC DC 

C» CC X ACT 9 



0014EA 

OA 00 





SVC 

X 9 DD 9 


0015B8 

E3 





0014EC 

0001 





DC 

AL2C11 


0015BC 

40C1C4D940E7E7E7E7 

IOADDR DC 

C» ADR XXXXXX XIO 9 



0014EE 

061D 





DC 

AL2tIACSNS+5-SECNQ1 


0015C5 

E7E740E7C9D6 





0014FO 

061D 





oc ; 

AL2II AC SN S* 5-* SEC NO) 


0015CB 

00 

DC 

X 4 00* 



0014F2 

OA 00 





SVC 

X 9 D0 9 

PRINT ACTUAL SENSE DATA 

0015CC 


CNOP 

0,4 



0014F4 

AO 





DC 

X 9 A0 9 



0015CB 

ORG 

1 



0014F5 

OB 





DC 

X 9 OB 9 


0015CB 

40C1C4D940E7E7E7E7 > . 

ILINK DC 

C* ADR XXXXXX LINK 9 



0014F6 

F618 





DC 

AL2tIACSNS—SECNO+REG) 


0015D4 ! 

E7E740D3C9D5D2 





0014F8 

95 30 

E 

181 



IPASS CLI 

SYSM0D(R14)*X 9 30 9 

CHECK FOR MODEL 30 

0015DB 

00 

DC 

x*oo e . 



0014FC 

47 60 

F 

52C 



BC 

UNEQ*ICUIO 

BR IF NOT. 

0015DC 


CNOP 

0,4 



001500 

02 OB 

F 

590 

E 

080 

ILOGED MVC 

WORKt12)*L0G0UTCR14) 

MOVE LOG OUT ^TO WORK AREA 


00150B 

ORG 




001506 

OA DO 





SVC 

X*DD # 

CONVERT 

0015DB 

40C3C1E640E7E7E7E7 

ICAW DC 

C» CAW XXXXXX 9 •• 



001508 

000 C 





DC 

AL2C12) 


0015E4 

E7E740 





00150A 

0590 





DC 

AL21 WORK—SECN01 


0015E7 

C3E2E6 

ICSW DC 

C«CSW« 



00150C 

0590 





OC 

AL2t WORK—SECNO) 


0015EA 

C3C3E6 

ICCW DC 

c«ccw» 



00150E 

02 01 

F 

628 

F 

590 

MVC 

I0L0G+5t21*W0RK 

MOVE LOG OUT TO MESSAGE 

0015ED 

40C3E2E640E7E7E7E7 

IBLAH DC 

C* CSW XXXXXXXX XX 9 



001514 : 

02 05 

F 

62B 

F 

592 

MVC 

I0L0G48t6)*W0RK42 


0015F6 

E7E7E7E740E7E7 





00151A 

02 05 

F 

632 

F 

59A 

MVC . 

I0L0G+15t61 *W0RK+10 


0015FD 

E7E7 E7 E7 E7 E740C5E7 

DC 

C«XXXXXX EXP 9 



001520 

02 05 

F 

639 

F 

5A2 

MVC 

10L0G422(6)*W0RK418 


001606 

07 




• 

001526 

OA 00 





SVC 

X 9 D0 9 

PRINT LOG OUT 

001607 

C1C3E3 

IACT DC 

C * ACT 8 



001528 

AO 





DC 

X 9 A0 9 


00160A 

C5E7D7 

IEXP DC 

C * EXP 9 • 



001529 

1C 





oc 

X 9 1C 9 


00160D 

40E2D5E240E7E740C5 

IEXSNS DC 

C* SNS XX EXP 9 



00152A 

F623 





OC 

AL2CIQLOG-SECNO+REG) 

! 

001616 

E7D7 





00152C 

91 02 

F 

0E8 



ICUIO TM 

ISW*X*02* 

SEE IF UIO. 

001618 * 

40E2D5E240E7E740C1 

IACSNS DC 

C* SNS XX ACT 9 



001530 

47 80 

F 

53C 



BC 

NONE*IOPOUT 

BR. IF NOT UIO i 

001621 

C3E3 





001534 1 

94 FO 

F 

0E8 



NI 

ISW*X 9 FD• • 

RESET UIO SWITCH 

001623 

4003D6C740E7E740E7 

IOLOG DC 

C # LOG XX XXXXXX X* 



001538 

47 FO 

.F 

206 



BC 

UNC»IWAIT 

BR. UNCONDITIONAL 

| 00162C 

E7E7E7E7E740E7 





00153C 

OA DO 





IOPOUT SVC 

1 X 9 D0 9 

PRINT LOOP OPTIONS 

[ 001633 

- E7E7E7E7E740E7E7E7 

DC 

C*XXXXX XXXXXX 9 



00153E 

CO 





IFLAG2 DC 

X 9 C0 9 


j 00163C 

E7E7E7 





00153F 

36 





OC 

X* 36* 


00163F 

40E3E2E340E7E7E7E7 

ITSTNO DC 

C* TST XXXX 9 



001540 

F648 





oc 

AL2tIOPT1-SECNO+REG1 


001648 

40E2C5E340E2E240F0 

IOPTl DC 

C» SET SS 0 ON FOR 9 



001542 

OA DO 





SVC 

X 9 D0 9 

SPACE A LINE j 

001651 . 

40060540C6D6D9 





001544 

AO 





OC 

X 9 A0 9 


001658 • 

4003D606D740D6D540 

DC 

C» LOOP ON XIO* SS* 


■ j*- 

001545 

01 





OC 

X 9 0l 9 

. . - ■ '■ , ' ‘ ■ i 

001661 . 

E7C9D66B40E2E2 





001546 

F5CB 





oc 

AL2tILINK-SECNO+REG) 

■ ■ ■ ■ . . ■ i 

001668 

40F140D6D540C6D6D9 

DC 

C* 1 ON FOR TIO SI* 



001548 

50 AO 

0 

048 



ST 

RIO.HCAWtRIB) 

STORE CAW 

001671 . 

40E3C9D640E2C9 





00154C 

91 CO 

F 

004 



TM 

SNSW.X'CO* 

CHECK SECTION SENSE SWITCH 0 AND 1 

001678 

D64003D6D6D7 

DC 

C»0 LOOP 9 



.001550 : 

47 50 

F 

156 



BC 

ANY*ITRYl 

BR. IF. ANY ON 

00167E 

0000000000000000 

ICSW1 DC 

XL8• 0* . 



001554 ! 

. 91 80 

F 

0E8 



TM 

ISW*X 9 80 9 


001686 . 

0000000000000000 

ICSW2 DC 

XL8*0 9 



001558 

07 15 





BCR 

ALL *R5 

RETURN VIA REG 5; IF HANG UP 

001690 

04 00161D 0000 0001 

ISENSE CCW 

X* 04* * IACSN$+5*X 9 00* 

>1 


00155A 

91 08 

8 

000 



i ILEAVE TM 

0(Rin*X 9 08« . 


001698 

0000000000000000 

ISLAVE DC 

XL8 *0 9 

REGISTER SAVE AREA 


Q0155E 

47 80 F 

566 



BC 

NONE*1UP 

BR. IF NO CSW EXPECTED 

0016A0 

0011AC 

IOADR DC 

AL3(ISSUE1 



001562 

41 BB 

0 

002 



LA 

R11*2(R11 ) 

UPDATE LINK ADDRESS FOR RETURN 

- j 

0016A3 

FE 

MSK1 DC 

X*FE 9 



DATE 

05MAY65 


10AUG65 

22FEB66 15JUN67 


to mo*s 1 

DATE 

05MAY65 10AUG65 22FEB66 15JUN67 



It F8!0r3 

EC 

124252 


125580 

125621 130498 


M« 9 j 

EC 

124252 125580 125621 

130498 
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0016A4 

01 


MSK2 

DC 

X*Ol* 


0016A5 

00 


RTSV . 

DC 

x*oo* 

SAVE RT NO, FOR HANGUP, 

0016A6 

00 


SWCH 

OC 

x*oo* 


0016A7 

40E4C9D640C6D9D6D4 

IUNEX 

DC 1 

C* UIQ FROM DEVICE* 


0016B0 

40C4C5E5C9C3C5 





00I6B7 

40E7E7E7E7 


OC 

C* XXXX* 





ft***^****************#******##***************************#************ 


, 


♦ 


INITIALIZE ROUTINE 




*3Mt*********«***********4^*****#*************************4******4t****** 

G016BC 

IB DO 


1N1T 

SR 

R13fR13 

ZERO REG 13 

0016BE 

91 40 E 

196 


TM 

406CR14)»X*40• 

CHECK FOR FORCED PROBLEM STATE 

0016C2 

47 80 F 

6C8 


BC 

NONE,NITWIT 

BR. IF NOT 

0016C6 

18 DF 



LR 

R13»R15 

SET UP FOR PROBLEM STATE 

0016C8 

58 CO F 

0E4 

NITWIT 

L 

R12,UNIT2 

PUT PCH UNIT TABLE IN 12, 

0016CC 

54 CO F 

73C 


N 

R12,M0050 

AND OUT ALL BUT ADDRESS. 

0016 DO 

50 CO F 

E1C 


ST 

R12,PCH 

SAVE IT. 

0016D4 

58 CO F 

OEO 


L 

R12,UNIT1 

PUT RDR UNIT TABLE INTO 12. 

0016D8 

54 CO F 

73C 


N 

R12,M0D50 

AND OUT UNUSED BITS 

0016DC 

50 CO F 

E18 


ST 

R12,RDR 

SAVE IT . 

0016E0 

92 00 F 

E22 


MVl 

LDSW,X*00 * 

ZERO THE LOADER SW BYTE. 

0016E4 

IB 66 



SR 

R6,R6 

ZERO REG 6. 

0016E6 

43 6E 0 

1B9 


IC 

R6,DMI0L(R141 

PUT LENGTH OF OMIO TABLE INTO 6. 

0016EA 

4A 6E 0 

1BC 


AH 

R6,DMPTR(R14I 

ADD OFFSET ADDRESS TO LENGTH. 

0016EE 

1A 6E 



AR 

R6,R14 

ADD BASE REG VALUE. 

0016F0 

4B 60 F 

£20 


SH 

R6,H2 

SUBTRACT 2 FROM IT TO POINT TO ADDR. 

0016F4 

49 C6 0 

000 


CH 

R12,0(R6) 

SEE IF READER. IS LOADER. 

00I6F8 

47 60 F 

700 


BC 

UNEQ,BLOOP 

BR IF NOT. 

0016FC 

96 80 F 

E22 


01 

LDSW,X*80* 

TURN ON LOADER SW. 

001700 

91 80 F 

0E8 

BLOOP 

TM 

ISW»X*80* 

CHECK FOR HANG UP 

001704 

47 10 F 

720 


BC 

ALL,HANGUP 

BR. IF DETECTED 

001708 

92 40 F 

740 


MVI 

RDAR,C * » 

CLEAR WORK AREA. 

00170C 

02 9E F 

741 F 740 


MWC 

RDAR+U1591,ROAR 


001712 

92 00 F 

6A6 


MVI 

SNCH,X*00* 

ZERO INTERV SWITCH. 

001716 . 

92 03 F 

oio ; 


MVI 

CCW,X*03* 

PUT A NOOP INTO CCW. 

Gwl71A 

41 AO F 

010 


LA 

RIO.CCW 


0017IE 

07 F4 



BCR 

UNC.R4 

RETURN VIA REG 4 

001720 

02 00 F 

003 F 6A5 

HANGUP 

MVC 

SECN0+3I1 ) ,RTSV 

RESTORE RT NO. 

001726 

OA 00 



SVC 

X*DO* 

PRINT 

001728 

64 



OC 

X*64* 

-PREVIOUS HANGUP DETECTED- 

001729 

1A 



OC 

X* 1A* 


00172A 

F7E0 



DC 

t2(HUNG-SECNG*RE6& 


00172C 

96 01 F 

0E8 


01 

ISW,X*01* 

TURN ON ERROR SWITCH. 

001730 

45 50 F 

2C2 


BAL 

R5,IOOSNS 

BR. TO OUTPUT AVAILABLE-INFO 

001734 

92 00 F 

0F8 


MVI 

ISW,X«00* 

RESET HANGUP SWITCH 

O01738 

47 FO F 

700 


BC 

UNC,BLOOP 


00173C 




CHOP 

0,4 


00173C 

00003FFF 

M0D50 

DC 

X*00003FFF< 


001740 



ROAR 

DS 

160C 


0017E0 

40D7D9C5E5C906E4E2 

HUNG 

DC 

C* PREVIOUS HANG U 9 


0017E9 

4GC8C1D5C740E4 





0017F0 

0740C4C5E3C5C3E3C5 


DC 

C*P DETECTED* 


0017F9 

C4 






0017FA 




CHOP 

0,4 


0017FA 

07 00 


BCR 

0,0 





ft********************************************************************** 




* ROUTINE 01 

- ISSUE A TEST 1-0 TO 

AN AVAILABLE AND IDLE DEVICE. 






EXPECT CONDITION CODE 0- 




^^i*#^^#^*********************************************************** 

0017FC 

01 


R0UT01 

DC 

X*01» 

ROUTINE NUMBER 

0017FD 

000820 



DC 

AL3(R0UT02~SECN0$ 

ADDRESS OF NEXT ROUTINE 

001800 

45 40 F 

6BC 


BAL 

R4,INIT 

BR. TO INITIALIZE 

001804 

45 BO F 

OFE 

START 

BAL 

Rll.ITIO 

BR TO ISSUE TEST 1-0. 

001808 

0200 



DC 

X* 0200* 

CTRL SWITCHES 

00180A 

0010 



DC 

X*0010* 

TEST NUMB E R 

00180C 

FOOD 



DC 

X»F000* 

EXP CONO. CODE AND SENSE 

00180E 

58 CO F 

E1C 

GTN 

L 

R12,PCH 

PUT PCH ADDR INTO REG 12. 

001812 

45 BO F 

OFE 


BAL 

Rll,ITIO 

BR TO ISSUE TEST 1-0 

001816 

0200 



DC 

X*0200* 

CTRL SWITCHES 


DATE 

05 MAY 65. 

10AUG65 

22FEB66 

15JUN67 

10 F8104 

EC 

124252 

125580 

125621 

130498 

PAGE 10 
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2540 READER FUNCTION TESTS ~ SECTION 1 P810 ' 


ROUTINE 05- ISSUE A DIAGNOSTIC CHECK REAO -C6- WITH A SHORT CCW 

COUNT* EXPECT INCORRECT LENGTH RECORD TO BE INDICATED* 
ISSUE SAME COMMAND WITH A LONG CCW COUNT. EXPECT SAME 
INDICATION. ISSUE DIAGNOSTIC WRITE WITH A SHORT, THEN 
A LONG CCW COUNT. EXPECT SAME INDICATIONS. 
******6*#**************4********************************************** 


001890 

001891 

001894 

001898 

00189C 

0018AO : 

0018A2 

0018A4 ‘ 

0018A6 

0018A8 

0018AC 

0018BO 

0018B2 

0018B4 

0018B6 

0018B8 

0018BC 

001SCO 

0018C4 

0018C6 

0018C8 

0018CA 

0018CC 

001800 

0018D4 

0018D6 

0018D8 

0018DA 

0018DC 

00180E 

0018DE 


05 

0008E0 
45 40 F 
41 AO F 
45 BO F 
2A00 : 
0090 . 
FOOO 
FDTO 
41 AO F 
45 BO F 
2A00 
0100 
FOOO 
F078 • 

41 AO F 
58 CO F 
45 BO F 
2A00 : 
0110 
FOOO 
FD80 
41 AO F 
45 BO F 
2A00 
0120 
FOOO ; 
FD88 
OA D6 


DC X , FOOO* 

DC AL2CWSCSW-SECN04REG) 

LA RIOtWRLG 

BAL RlltlSIO 
DC X i 2A00 i 

DC X«0120« 

DC X , FOOO* 

DC AL 2 (WLC SW-SECN04REG1 

SVC X*D6® 

CNOP Ot4 

BCR 0»0 


EXP COND. CODE AND SENSE 
EXP SHRT WRITE CSW. 

LOAD ADDR OF LONG WRITE CCW. 
BR. TO ISSUE LONG REAO 
CONTROL SWITCHES 
TEST NUMB E 
EXP COND. CODE AND SENSE 
EXP LONG WRITE CSW. 

ROUTINE EXIT 


********************************************************************** 

ROUTINE 06 - A READ NO FEED COMMAND IS COMMAND CHAINED TO TWO MORE 

READ NO FEED COMMANDS. THE SYSTEM IS ENABLED TO RECEIVE 
INTERRUPTS. COND. CODE 0 SHOULD BE SET CN THE SIO. 
UNUSUAL COMMAND SEQUENCE SENSE BIT SHOULD BE SET AT 
CHANNEL AND DEVICE END TIME OF THE SECOND CCW IN THE 
CHAIN. THIS SHOULD BRING UP UNIT CHECK AND BREAK THE 
CHAIN. THE CSW SHOULD CONTAIN THE ADDRESS OF THE FIRST- 
CCW IN THE CHAIN ♦ 16. 

A NOP IS NOW ISSUED, FOLLOWED BY A SENSE. EXPECT NO 
UNIT CHECK, BUT SENSE BIT SHOULD STILL BE SET. ISSUE 
A DIAGNOSTIC CHECK READ FOLLOWED BY A SENSE. EXPECT 
SENSE BIT TO BE RESET. 

A FEED AND STACKER SELECT POCKET 1 IS COMMAND CHAINED TO 
TWO MORE FEED COMMANDS. THE SYSTEM IS EN1BLED FDR 
INTERRUPTS. COND. CODE 0 SHOULD BE SET ON THE SIO. 
COMMAND REJECT SHOULD BE SET ON INITIAL SELECTION OF THE 
SECONO FEED COMMAND. THIS SHOULO BRING UP UNIT CHECK 
AND BREAK THE COMMAND CHAIN. THE ADDRESS OF THE FIRST 
CCW IN THE CHAIN ♦ 16 SHOULD BE IN THE CSW. DEVICE 
STATUS SHOULD CONTAIN UNIT CHECK ALONE. A RESIDUAL 
COUNT OF 2 - THE COUNT IN THE REJECTED CCW - SHOULD BE 
IN THE C$W. 

A NOP IS NOW ISSUEO, FOLLOWED BY A SENSE. EXPECT NO 
UNIT CHECK, BUT SENSE BIT SHOULO STILL BE SET. ISSUE 
A DIAGNOSTIC CHECK READ FOLLOWED BY A SENSE. EXPECT 
SENSE BIT TO BE RESET. 

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED LAST IN THIS ROUTINE 
TO RESET THE SENSE LATCHES BEFORE ENTERING THE NEXT ROUTINE. 


05NAY65 10AUG65 

124252 125580 


22FEB66 15JUN6? 

125621 130498 


ID F810-3 
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2540 READER FUNCTION TESTS ~ SECTION 1 F810 


F/N 840186 
FAGE 12A 


1 


♦ • COMMAND REJECT! IN THE SENSE BYTE. EACH INVALIO COMMAND 

4 ISSUED IS FOLLOWED BY A DIAGNOSTIC CHECK READ -C 6 - TO 

4. v 4 > RESET THE COMMAND REJECT LATCH. OPTIONAL FEATURE 

4 r. ; COMMANDS WILL BE ISSUED AS INVALIO COMMANDS. IF THE 

4 V FEATURE IS NOT DEFINED IN THE DEVICE UDT ENTRY IN CM. 

*****#***£************************************************************« 


001980 

08 

R0UT08 DC 

X*08* 

ROUTINE NUMBER 

001981 

000 A78 

DC 

AL3IR0UT09—SECNO) 

ADDRESS OF NEXT ROUTINE 

001984 

45 40 F 6 BC 

BAL 

R4#INIT 

BR TO INITIALIZE. ! 

001988 

41 30 0 079 

LA 

R3«121 

PUT THE NO. OF VALID CMOS IN REG 3. 

00198C 

42 30 F A73 

BY2C STC 

R3.SAVCNT 

SAVE NO. OF VALID COMMANDS. 

001990! 

18 66 

SR 

R 6 «R 6 

ZERO REG 6 . 

001992 

92 00 F A74 

MVI 

CMDBYT*X®00 * 

PUT ZERO INTO COMMAND BYTE. 

001996 

41 40 F 9FA 

SIV LA 

R4 9 VALCOM 

PUT ADDR. OF VALIO CKDS INTO REG 4. 

00199A 

43 30 F A73 

IC 

R3.SAVCNT 

PUT CMD COUNT INTO REG 3. 

00199E 

43 60 F A74 

iC 

R 6 .CMD 8 YT 

PICK UP THE CMO BYTE ! 

0019A2 

95 FF F A74 

ADD1 CLI 

CMDBYT.X*FF 9 

SEE IF LAST CMD. 

0019A6 

47 80 F 9F8 

BC 

EQ,FINIS 

8 R IF YES. I 

0019 A A 

41 66 0 001 

LA 

R 69 1IR61 

ADD l TO THE COMMAND BYTE. 

0019AE 

42 60 F A74 

STC 

R 6 .CMDBYT 

SAVE IT. 

0019B2 

91 OF F A74 

TM 

CMDBYT.X* OF 9 

SEE IF NO BITS ON IN BITS 4 THRU 8 . 

0019B6 

47 80 F 9A2 

BC 

NONE 9 ADDI 

BR IF NONE ON. { 

0019BA 

05 00 F A74 4 000 

TOT CLC 

CMDBYTf1).0!R4) 

SEE IF CMD BYTE IS VALID. 

0019C0 

47 80 F 996 

BC 

EQtSIV 

BR IF YES. i 

0019C4 1 

41 44 0 001 

LA 

R4t KR4I 

ADD 1 TO VALID CMOS ADDR. ; 

0019C8 

46 30 F 9BA 

BCT 

R3.T0T 

BRANCH UNTIL ALL VALID CMOS CHKED. 

0019CC 

41 AO F EOO 

LA 

R10»INVCCW 

PICK UP ADDR. OF CCW. 

0019D0 

42 60 F EOO 

STC 

R 69 1NVCCW 

PUT INV CMD BYTE INTO CCW. j 

0019D4 

92 38 F 9DC 

MVI 

CS,X*38* 

INITIALIZE CTRL SWITCHES. 

0019D8 

45 BO F 112 

BAL 

RII 9 ISIO 

BR TO ISSUE SIO. 

0019DC 

3880 

CS DC 

X*3880* 

CTRL SWITCHES 

0019DE 

0200 

DC 

X*0200* . 

TES T NU MB E R I 

001960 

F180 

DC 

X*F180* . 

EXP COND. CODE AND SENSE. 

0019E2 

FDB 8 

DC 

AL2(UC—SECNO+REG! 

ADDRESS OF CSW. 

0019E4 ‘ 

41 AO F D 68 

LA 

RIO 9 DCRD 

PICK UP ADDR OF DIA 6 CHK READ CCW. 5 

0019E8 

45 BO F 112 

BAL 

RlivISIO 

BR TO START 1-0. j 

0019EC 

2800 

DC 

X*2800* 

CTRL SWITCHES 1 

0019EE 

0210 

DC 

X*0210* 

T EST NUMB ER 

0019F0 

FOOO 

OC 

X*F000* 

EXP COND. CODE AND SENSE. ! 

0019F2 

FE08 

DC 

AL2 C DCRC5W-SECNO+REGI 

EXP CSW ADDRESS. 

0019F4 : 

47 FO F 996 

BC 

UNCvSIV 

BR TO CHECK ALL INVALIO CMOS. j 

0019F8 

OA 06 

FINIS SVC • 

X*D 6 * 

ROUTINE EXIT T 



*********************************************************************** 



* VALID 

COMMAND BYTES 

1 



*********************************************************************** 

0019FA 

04142434 

VALCOM DC 

X*04142434* 


0019FE 

44546474 

OC 

X* 44546474 * 


001 A 02 

8494A484 

DC 

X*@494A484* 


001A06 

C4D4E4F4 

OC 

X*C4D4E4F4 • 


OOIAOA 

02060A0E 

DC 

X*02060A0E * 


001 AO E 

I2161A1E 

DC 

X*12161A1E • 


001A12 

42464A4E 

OC 

X*42464A4E * 


001A16 

52565A5E 

DC 

X*52565A5E• 


001A1A 

82868A8E 

DC 

X*82868A8E • 


001A1E 

92969A9E 

DC 

X*92969A9E * 


001A22 

C2C6CACE 

DC 

X*C2C6CACE* 


001A26 

D2D6DADE 

DC 

X*D2D6DADE * 


001A2A 

23272B2F 

DC 

X*23272B2F * 


001A2E 

3337383F 

DC 

X*33373B3F * 


001A32 

63676B6F 

DC 

X*63676B6F * 


001 A3 6 

73777B7F 

DC 

X*73777B7F • 


001 A3A 

A3A7A8AF 

OC 

X*A3A7ABAF • 

. ] 

001A3E 

B3B7BBBF03 

DC 

X*B3B7BBBF03 * 


001A43 

081828384858687888 

DC 

X*081828384858687886 * 

COMMANDS THAT ANSWER 

001A4C 

98A8B8C8DBE8F8 

OC 

X* 98A8B8C8D8E8F8* 

AS TICS. 

001A53 

22262A2E 

COLBIN DC 

X*22262A2E * 


* 001A57 

32363A3E 

DC 

X*32363A3E * 

' . i 

001A5B 

62666A6E 

OC 

X*62666A6E« 

S 


001A5F 

72767ATE 

OC 

X*72767A7E• 

001A63 

A2A6AAAE 

OC 

X*A2A6AAAE* 

001A67 

B2B6BABE 

OC 

X*B2B6BABE* 

001A6B 

E2E6EAEE 

OC 

X*E2E6EAEE• 

001A 6 F 

F2F6FAFE 

OC 

X*F2F6FAFE* 

001A73 

00 

SAVCNT DC 

X*00* 

001A74 

00 

CMOBYT DC 

x*oo* 

001A76 


CNQP 

0,4 

001A76 

07 00 

BCR 

0*0 


************************•*******«**♦******«♦**«***•****♦♦*«♦*««**$$**$# 
4 ROUTINE 09 - ISSUE A READ ANO FEED COMMAND -02-. CLEAR CHANNEL END. 

4 ISSUE TIO BEFORE DEVICE END OCCURS. EXPECT COND. CODE 

4 1, WITH DEVICE BUSY ONLY IN THE CSW. REPEAT FOR START 

4 1-0. EXPECT SAME RESULTS. REPEAT FOR HALT 1-0. EXPECT 

4 COND. CODE l WITH A ZEROED CSW STORED. EACH DEVICE END 

« FROM EACH READ AND FEED WILL BE CLEARED BY ENABLING THE 

4 CHANNEL AFTER THE 1-0 OPERATION BETWEEN CHANNEL AND 

4 DEVICE END TIME* IS PERFORMED. THIS ROUTINE WILL BE 

4 BYPASSED IF SECTION SENSE SWITCH 7 IS ON. 

*********************************************************************** 


001 AT 8 

09 



ROUT09 OC 

X*09* 

ROUTINE NUMBER 

001A79 

000ADC 


DC 

AL3CR0UT10-SECNO) 

ADDRESS OF NEXT ROUTINE 

001A7C 

45 40 

F 

6 BC 

BAL 

R4.INIT 


001A30 

41 AO 

F 

008 

LA 

RIO 9 RDFD 

SET UP FOR READ AND FEED 

001A84 ! 

91 01 

F 

004 ' 

TM 

SNSWtX *01• 

CHECK SECTION SENSE SWITCH 7 

001A88 

47 10 

F 

894 

BC 

ALL 9 SOLONG 

BR. IF ON TO BYPASS ROUTINE 

001A8C 

92 02 

F 

DIO 

MVI 

CCW,X*02* 

SET UP PRINT AND SKIP TO 1 

001A90 

45 BO 

F 

112 

BAL 

RlivISIO 

BR. TO ISSUE SIO 

001A94 ! 

2 AO© 



DC 

X*2A00* 

CTRL SWITCHES 

001A96 

0220 



OC 

X*0220* 

TEST NUMBf 

001A98 

FOOO 



DC 

X’FOOO* 

EXP COND. CODE AND SENSE 

001A9A 

FDEO 



OC 

AL2 (NORM-? SECNQ+REG) 

EXP CSW ADDRESS 

001 A9C 

45 BO 

F 

OFE 

BAL 

Rll.lTIO 

BR. TO ISSUE TEST 1-0 

001AAO : 

3 COO 



OC 

X* 3C00* 

CTRL SWITCHES 

001AA2 

0230 



OC 

X* 0230* 

TEST NUMB ! 

001AA4 : 

FiOO 



OC 

X*F100» 

EXP CONO. CODE ANO SENSE 

001AA6 

FDAO 



DC 

AL2CDBIZ-SECN0+REGI 

EXP CSW ADDRESS 

001AA8 

45 BO 

F 

112 

BAL 

RlltISIO 

BR. TO ISSUE SIO 

001AAC 

2A00 



OC 

X*2A00* 

CTRL SWITCHES 

001AAE 

0240 



DC 

X* 0240* 

TEST NUMB! 

001ABO 

FOOO 



DC 

X*FOOO* 

EXP COND. CODE AND SENSE 

001AB2 ~ 

FDEO 



DC 

AL2(NORH-SECNO*REG) 

EXP CSW ADDRESS 

001A84f 

45 60 

F 

112 

BAL 

RII 9 ISIO 

BR. TO ISSUE SIO 

001AB8 

3 COO 



OC 

X* 3C00* 

CTRL SWITCHES 

001ABA 

0250 



DC 

X*0250* 

TEST NUMB1 

001ABC 

FIOO 



DC 

X*F100* 

EXP COND. CODE AND SENSE 

001ABE 

FDAO 



DC 

AL2IDBIZ—SECNQ+REG) 

EXP CSW ADDRESS 

001AC0 

45 BO 

F 

112 

BAL 

RlivISIO 

BR. TO ISSUE START 1-0 

001AC4 

2A00 



DC 

X*2A00* 

CTRL SWITCHES 

001AC6 

0260 



DC 

X*0260* 

TE ST NUMBE 

001ACS 

FOOO 



OC 

X*FOOO* 

EXP COND CODE AND SENSE 

001 ACA 

FOEO 



DC 

AL2(NORM—SECNQ4REG) ' 

EXP CSW AODRESS 

OOIACC 

45 BO 

F 

OEA 

BAL 

Rll 9 IHIO 

BR. TO ISSUE HALT 1-0 

001ADO 

3 COO 



DC 

X*3C00* 

CTRL SWITCHES 

001AD2 

0270 



OC 

X*0270* 

T EST NUMB E 

001A04 

FIOO 



OC 

X*F100* 

EXP COND CODE AND SENSE 

001 AD 6 

FDCO 


V 

DC 

AL2(CSW0-SECN0*RE6I 

EXP CSW ADDRESS 

001AD8 

OA D 6 



SVC 

X*D 6 * 

ROUTINE EXIT 

001ADA 




CNOP 

0.4 


001ADA 

07 00 



BCR 

0.0 



*********************************************************************** 
*********************************************************************** 
4 ROUTINE 10 - ISSUE A READ AND FEED COMMAND -02-. CLEAR CHANNEL END 
4 ONLY. ISSUE AN INVALIO COMMAND TO THE DEVICE. EXPECT 

4 COND. CODE l, WITH DEVICE END AND DEVICE BUSY ONLY IN 

4 THE CSW. EXPECT NO SENSE BITS TO BE SET. 

*********************************************************************** 
R0UT10 DC X*10* ROUTINE NUMBER 


DATE 05MAY65 10AUG65 22FEB66 15JUN67 

EC 124252 125580 125621 130498 


ID F8IOr3 

; PAGE 12 


05MAY65 10AUG65 

124252 125580 


22FE866 

125621 


15JUN67 

130498 


ID * F8I0—3 

PAGE 12A 
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001ADD 

000B16 



OC 

AL3IRQUT11-SECN0) 

ADDRESS OF NEXT ROUTINE. 

001AE0 

45 40 

F 

6BC 


BAL ‘ 

R4,IN1T 

GO INITIALIZE 

001AE4 

41 AO 

F 

DOS 


LA 

RlOfRDFD 

SET UP FOR READ AND FEED 

001AE8 

45 BO 

F 

112 


BAL 

RlttlSIO 

GO TO 1-0 HANDLER- 01AG WRITE 

001AEC 

2A00 




DC 

XL2"2A00" 

CONTROL SWITCHES 

001AEE 

0280 




DC 

X"0280" 

T E S T N U M B E R 

001AFO 

FO 




DC 

X"FO" 

CONDITION COOE EXPECTED 

001AF1 

00 




DC 

X"00" 

SENSE DATA EXPECTED 

001AF2 

FDEO 




DC 

AL2(NORM-5ECNO+REGJ 

ADDRESS OF CSW 

001AF4 

92 OC 

F 

DIO 


MVI 

CCW,X"OC" 

SET UP FOR INVALID COMMAND 

001AF8 

58 4E 

0 

198 


L 

R4,WTIR14) 

LOAD WAIT FACTOR 

001AFC 

88 40 

0 

004 


SRL ! 

R4,4 

ADJUST WAIT FACTOR 

001B00 

46 40 

F 

BOO 


BCT 

R4,* 

WAIT 

001B04 

41 AO 

F 

DIO 


LA 

RlOyCCW 


001B08 

45 BO 

F 

112 


BAL 

R11,ISIO 

GO TO 1-0 HANDLER - INVALID COMMAND 

001BOC 

3600 




DC 

XL2 1 3800* 

EXPECTED A CSW 

001BOE 

0290 ; 



<• 

DC 

^X•0290" 

TEST NU MB E R 

001 BIO 

FI 




DC 

X "F1 • 

EXPECTED CONDITION CODE 

001B11 

00 




DC 

X'OO" 

EXPECTED SENSE 

001B12 

FDBO 




DC 

AL2(DBZY—SECN0+REG1 

ADORESS OF CSW 

001B14 

OA D6 




SVC 

X *D6" 

ROUTINE EXIT 





ft********************************************************************** 





111 

ROUTINE 11 

- A READ AND FEED -02- IS ISSUED. NO INTERRUPTS ARE 





* 


CLEARED. THE SAME 

COMMAND IS ISSUED AGAIN. EXPECT 





* 


CONDITION CODE 2 DUE TO PENDING CHANNEL END. ISSUE A 





♦ 


HALT 1-0. EXPECT 

CONDITION CODE 0. ISSUE A TEST 1-0 





* 


EXPECT COND. CODE 

It WITH CHANNEL END IN THE CSW. 





* 


ISSUE A HALT I-G. 

EXPECT COND. CODE 1 WITH A ZEROED 





* 


CSW STORED. ISSUE 

READ AND FEED START 1-0 AGAIN. 





* 


EXPECT COND. CODE 

1 WITH DEVICE END AND DEVICE BUSY 





♦ 


STORED IN THE CSW. 

ISSUE HALT 1-0. EXPECT COND. CODE 1 





♦ 


WITH A ZEROED CSW 

STORED. ISSUE TEST 1-0. EXPECT 





* 


COND. CODE 0. 






ft********************************************************************** 

Q01B16 

ll 



ROUT11 OC 

X"ll" 

ROUTINE NUMBER 

001B17 

000888 



DC 

AL3(ROUT12-SECNO) 

ADDRESS OF NEXT ROUTINE 

001B1A 

45 40 

F 

6BC 


BAL 

R4, INIT 

BR. TO INITIALIZE 

001B1E 

41 AO 

F 

008 


LA 

R10,RDFD 

SET UP FOR READ AND FEED 

001B22 

45 BO 

F 

112 


BAL 

Rll,ISIG 

BR. TO ISSUE SIO 

001826 

4200 




DC 

X*4200" 

CTRL SWITCHES 

001B28 

0300 




DC 

X * 0300" 

TEST NUMB ER 

00182A 

FOOO 




DC 

X"FOOO• 

EXP COND. CODE AND SENSE 

001B2C 

45 BO 

F 

112 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 

001B30 

4200 




DC 

X* 4200" 

CTRL SWITCHES 

001832 

0310 




DC 

X"0310" 

T E S T N U M B E R 

001B34 : 

F200 




DC 

X"F200" 

EXP COND. CODE AND SENSE 

001B36 

58 9E 

0 

198 


L 

R9,WTCR14) 

LOAD WAIT FACTOR 

001B3A 

88 90 

0 

004 


SRL 

R9,4 

ADJUST 

001B3E 

46 90 

F 

B3E 


BCT 

R9,* 

LOOP UNTIL COUNT OF ZERO 

001B42 

45 BO 

F 

OEA 


BAL 

Rll,IHIO 

BR. TO ISSUE HALT 1^0 

001B46 

4200 




DC 

X"4200" 

CTRL SWITCH 

001848 

0320 




DC 

X* 0320" 

T £ S T N U M B E R 

001B4A 

FOOO 




DC 

X"FOOO" 

EXP COND. CODE AND SENSE 

001B4C 

45 BO 

F 

OFE 


BAL 

RlltlTIO 

BR. TO ISSUE TEST.1-0 

001B50 

4 AOO 




DC 

X"4A00" 

CTRL SWITCHES 

001B52 

0330 




DC 

X•0330" 

TEST NUMBER 

001B54 

F100 




DC 

X"F100• 

EXP COND. CODE AND SENSE 

001B56 

FDEO 




DC 

AL2<N0RM-SECN0*REG) 

EXP CSW ADDRESS 

0G1B58 

45 BO 

F 

OEA 


BAL 

Rll,IHIO 

BR. TO ISSUE HALT I-C 

001B5C 

4 AOO 




DC 

X«4A00« 

CTRL SWITCHES 

001B5E 

0340 




DC 

X"0340" 

TEST NUMBER 

00I860 

F100 




DC 

X’FIOO" 

EXP CONO COSE AND SENSE 

001B62 

FDCO 




DC 

AL2(CSW0-SECN0+RE6J 

EXP CSW ADDRESS 

001B64 

45 BO 

F 

112 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 

001B68 

0800 




DC 

X"0800" 

CTRL SWITCHES 

001B6A 

0350 




DC 

X"0350" 

TEST NUMBER 

001B6C 

F100 




DC 

X"F100" 

EXP COND. CODE AND SENSE 

001B6E 

FDBO 




DC 

AL2(DBZY—5ECN0+REG ) 

EXP CSW AODRESS 


DATE 

05MAY65 

10AUG65 

22FEB66 

15JUN67 
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EC 
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001B70 
001B74 
001B76 
001B78 
001B7A 
00187C 
001B80 
001B82 
001B84 
001B86 
001B88 


001888 
001B89 


45 BO F OEA 

4A00 

0360 

F100 

FDCO 

45 BO F OFE 
4200 
0370 
FOOO 
OA D6 


Rll.IHIO 

X"4A00" 

X"0360" 

X*F100* 

AL2(C$W0-SECNQ+REG) 

RlltlTIO 

X"4200" 

X"0370"- 
X'FOOO" 

X "D6 • 

0*4 


BR. TO ISSUE HALT 1^0 
CTRL SWITCHES 
TEST NUMBER 
EXP COND CODE ANO SENSE 
EXP CSW ADDRESS 
BR. TO ISSUE TEST 1-0 
CTRL SWITCHES 
TES T NU MB 
EXP COND CODE ANO SENSE 
ROUTINE EXIT 


12 

OOFFFF 


I********************************************************************** 

* ROUTINE 12 - INTERVENTION ROUTINES 

* THESE ROUTINES ARE BYPASSED UNLESS SECTION SENSE SWITCH 

* 5 IS ON. THE FOLLOWING ACTION OCCURS WHEN THIS PROGRAM 

* IS EXECUTED- 

* 

* NOT READY TESTING. 

* A START 1-0 NOOP CMD IS ISSUED. EXPECTED STATUS IS 

* UNIT CHECK ALONE. CONDITION CODE 1 EXPECTED. 

* A SENSE START 1-0 ISSUED. EXPECT INTERVENTION REQUIREO. 

* IN THE SENSE BYTE. CONDITION CODE 0 FOR START 1-0. 

* A TEST 1-0 IS ISSUED. EXPECTED STATUS IS UNIT CHECK 

* ALONE. EXPECTEO CONDITION CODE IS 1. 

* A SENSE START 1-0 IS ISSUED. EXPECT INTERVENTION 

* REQUIRED IN SENSE. EXPECT CONDITION CODE 0 FOR SENSE 

* START 1-0. 

* A HALT 1-0 IS ISSUED. EXPECT 2ER0 STATUS RETURNED. 

* EXPECT CONDITION CODE 1. 

* END OF FILE TESTING. 

* A TEST 1-0 IS ISSUED. EXPECT CONDITION CODE 1. EXPECT 

* DEVICE END ALONE IN STATUS DUE TO PENDING INTERRUPT 

* • GENERATED BY NOT READY TO READY STATE CHANGE WHEN 

* OPERATOR MADE READER READY FOR EOF TEST. 

* A SENSE START 1-0 IS ISSUED IF UNIT CHECK IS.IN STATUS. 

* 5 READ, FEED, STACKER SELECT R1 COMMANDS ARE ISSUED 

* IN PREPARATION TO RECEIVE UNIT EXCEPTION ON THE NEXT 

* READ* FEED, STACKER SELECT Rl. CONDITION CODE 0 IS 

* EXPECTED FOR EACH COMMAND. EXPECTED STATUS FOR EACH IS 

* CHANNEL END AND DEVICE END SEPERATE. 

* ANOTHER READ, FEED, STACKER SELECT Rl IS.ISSUED. 

* EXPECT UNIT EXCEPTION ALONE IN STATUS. CONDITION CODE 

* 1 EXPECTED. 

* OFF LINE TESTING -8YPASSED UNLESS SSWS 5 AND 8 ARE ON. 

* A START I-0 -NOOP-, A TEST 1-0, AND A HALT 1-0 ARE 

* ISSUED IN SEPERATE TESTS. EXPECT CONDITION CODE 3. 

* NO STATUS EXPECTED BECAUSE NO DEVICE SHOULD BE ABLE TO 

* ANSWER THE ISSUED INSTRUCTIONS. 

* EXIT FROM THIS ROUTINE. 

* A TEST 1-0 IS ISSUED AFTER OPERATOR PREPARE EXIT FROM 

* THIS TEST BY EITHER PLACING BLANK CARDS IN THE READER 

* OR THE NEXT TEST DECKS. CONDITION CODE 1 IS EXPECTED. 

* DEVICE END ALONE IS EXPECTED IN STATUS DUE TO NOT READY 

* TO READY INTERRUPT. 

+*+++***+****++**************+*+*+*+*++**++4**mmmmmm+mm 


ROUT12 DC 
OC 


X" 12 • 

X* OOFFFF * 


001B8C 

91 04 F 

004 

TM 

SNSW,X*04* 

001B90 

47 10 F 

B9C 

BC 

ALL,G007 

001B94 

OA DO 


SOLONG SVC 

X*DO" 

001B96 

04 


DC 

X"04" 

001B97 

OD 


OC 

X" OD" 

001B98 

FE23 


DC 

AL 2(B YPR SS-SECNO+REQ1 

00189A 

OA D6 


SVC 

X"D6" 

001B9C 

45 40 F 

6BC 

G007 BAL 

R4.INIT 

00IBAO 

96 80 F 

6A6 

01 

SWCH,X"80" 

001BA4 

91 80 F 

E22 

TM 

LDSW,X"80" 

001BA8 

47 80 F 

BD8 

BC 

NONE,NRM 

DATE 

05MAY65 

10AUG65 

2£FEB66 15JUN67 


EC 

124252 

125580 

125621 130498 



ROUTINE NUMBER 
LAST ROUTINE 

CHECK SECTION SENSE SWITCH 5 

BR- IF ON 

PRINT -BYPASSED- 


EXIT FROM ROUTINE 
BR. TO INITIALIZE 
TURN ON INTERV SWITCH. 
SEE IF ON LOADER OEVICE 
BR IF NOT. 


ID F810-3 
PAGE 13A 
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t 
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001BAC 

OA DO 


SVC 

X*DO* 

PRINT A BLANK 

001BAE 

8001 


DC 

X 9 800l *■ 


001BB0 

FEA7 


DC 

AL2(RTD1-SECNO+REG) 


001BB2 

OA DO 


SVC 

X*D0* 

PRINT REMOVE CDS: FROM 

001BB4 

2429 


DC 

X* 2429* 

STACKER OF LOADER DEVICE 

001BB 6 

FEAT 


DC 

AL21R TDl-SECNO+REGI 


001BB8 

OA 00 


SVC 

X*D0* 

PRINT REMOVE REMAINING TEST DECKS 

001BBA 

A03C 


DC 

X*A03C• 

FROM THE LOADER HOPPER. 

001BBC 

FEDO : 


DC 

AL2(RTD2-SECNO+REG) 


001BBE 

OA DO 


SVC 

^X*D 0 * 

PRINT RUN CDS OUT OF READER AND 

001BCO 

A040 


DC 

X*A040* 1 

PUT THEM ON FRONT OF REMAINING 

001BC2 

FFOC 


DC 

AL2(RTD3-SECNO+REG) 

TEST DECKS. 

001BC4 

OA DO 


SVC 

X* 00 * . 

PRINT SAVE REMAINING TEST DECKS 

001BC6 

8045 


DC 

X* 8045 * 

UNTIL A MSG REQUESTS THEM. 

001BC 8 

FF4C 


DC 

AL2CRTD4-SECNO+REG) 


001BCA 

47 FO F BOB 5 


BC 

UNCtHLTl 

BR TO HALT 

001BCE 

OA DO 

P5I 

SVC 

X f DO* 

PRINT -PUT 5 CDS IN RDR- 

001BD0 

242 D 


DC 

X*2420* 


001BD2 

FE 6 A 


DC 

AL2CPCIR-SECNO+REG) 


001BD4 

47 FO P C1E 


BC 

UNC,HLTll 

BR TO HALT. 

001BD8 

OA 00 

NRM 

SVC 

X»D0* 

PRINT -MAKE READER NOT READY- 

001BDA 

04 


DC 

X*04* 


001BDB 

16 


DC 

X* 16* 


001BDC 

FE30 


DC 

AL2 C MNR-SECNO+REG) 


001BDE 

OA DA 

HLTl 

SVC 

X*DA • 

HALT TO; PERFORM INTERVENTION 

001BE0 

OA DO 


SVC 

X*DO* 

PRINT A BLANK 

001BE2 

8001 


DC 

X*800l* 


001BE4 

FEA7 


DC 

AL2CRTD1-SECNO+REG) 




****♦*******•****♦♦«♦*•**«*♦♦♦♦**♦♦♦♦**********♦♦*****♦**♦♦♦*♦*#*•***** 



6 . 

NOT 

READY TESTS -ROUTINE 12- 



ft********************************************************************** 

001BE 6 

45 BO F 112 


BAL 

RllfISIO 

BR. TO ISSUE SIO 

001BEA 

0800 


DC 

X* 0800* 

CONTROL SWITCHES 

001BEC 

0380 ; 


DC 

X* 0380* 

TES T NUMB E R 

001BEE 

F140 


DC 

X*F140* 

EXP COND. CODE AND SENSE 

001BF0 

FDB 8 


DC 

AL2CUC-SECN0+REG) 

EXP CSW ADORESS 

001BF2 

45 BO F OFE 


BAL 

RlltITIO 

BR. TO ISSUE TIO 

001BF6 

4800 ; 


DC 

X*4800* 

CTRL SWITCHES 

001BF8 

0390 ) 


DC 

X* 0390* 

T E S T N U M B E R 

001BFA 

F140 


DC 

X*F140* 

EXP COND. CODE AND SENSE 

001BFC 

FDB 8 


DC 

AL2(UC-SECNO+REG) 

EXP CSW ADORESS 

001BFE 

45 BO F OEA 


BAL 

RlltIHIO 

BR. TO ISSUE HIO 

001C02 

0800 


DC 

X* 0800* 

CONTROL SWITCHES 

001C04 

0400 


DC 

X* 0400* 

T EST NU MB ER 

001C06 

F140 


OC 

X*F140* 

EXP COND. CODE AND SENSE 

001C08 

FDCO 


DC 

AL2ICSW0-SECNO+REG) 




. ft********************************************************************** 



♦ » 

END OF FILE TEST -ROUTINE 

12 - 



**************************************************************4*******+ 

001C0A 

D2 07 F E 6 F F E9F 


MVC 

OVLY( 6 )«P5 

MOVE -5- TO MSG. 

001C10 

91 80 F E22 


TM 

LDSWtX*80 e 

SEE IF ON LOADER DEVICE. 

001C14 

47 10 F BCE 


BC 

ALL tP5I 

BR IF YES. 

001C18 

OA DO 


SVC 

X*00* 

PRINT DO NOPRO,PLACE 5 CDS;IN RDR. 

001C1A 

2437 


DC 

X* 2437* 

HPR,MAKE RDY, EOF ON. 

001C1C 

FE60 ; 


DC 

AL2(DQNPR0-SECNO+REG) 

MSG ADDRESS. 

001C1E 

OA DA 

HLTll 

SVC 

X*DA • 

-HALT- 

001C20 

OA DO 


SVC 

X'DO* 

PRINT A BLANK 

001C22 

8001 


DC 

X»8001* 


001C24 

FEAT 


DC 

AL2(RTD1-SECNO+REG) 


001C26 

45 BO F OFE 


BAL 

RlltITIO 

BR TO ISSUE TEST 1-0 

001C2A 

4A00 


DC 

X , 4A00* 

CTRL SWITCHES 

001C2C 

0410 : 


OC 

X‘0410* 

TEST NUMBiER 

001C2E 

FlOO 


DC 

X’FIOO* 

EXP COND. CODE ANO SENSE 

001C30 

FDE 8 


DC 

AL2(DONLY-SECNO+REG) 

EXP CSW ADDRESS. 

001C32 

41 AO F DOB 


LA 

RIOfRDFD 

PUT ADDR. OF RD FD CCW INTO REG 10. 

001C36 

41 60 0 005 


LA 

R6,5 

PUT 5 INTO REG 6 . 

001C3A 

45 BO F 112 

NS 10 

BAL 

RlltlSIO 

BR TO ISSUE START 1-0. 

001C3E 

3C00 


DC 

X* 3C00* 

CTRL SWITCHES 

DATE 

05MAY65 10AUG65 

22FEB66 15JUN67 


ID F810+3 

EC 

124252 125580 
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PA 6 E 14 


001C40 

0420 

001C42 

FOOO 

001C44 

FDEO 

001C46 

46 60 F C3A 

001C4A 

45 BO F 112 

001C4E 

2800 

| 001C50 

0430 

001C52 

F140 

001C54 

FE10 

001C56 

45 BO F OFE 

001C5A 

4800 

001C5C 

0440 

) 0Q1C5E 

F140 

001C60 

FDB 8 

001C62 

91 80 F 005 

001C66 

47 80 F CC 8 

001C6A 

D2 02 F E52 F 

i 001C70 

OA DO 

001C72 

24 

001C73 

14 

001C74 

FE46 

001C76 

OA OA 

001C78 

OA DO 

001C7A 

8001 

001C7C 

F6A7 

001C7E 

45 BO F 112 

001C82 

0200 

001C84 

0450 

! 001C86 

F300 

001C88 

45 BO F OFE 

001C8C 

4200 

001C8E 

0460 

001C90 

F300 

001C92 

45 BO F OEA 

1 001C96 

0200 

001C98 

0470 

001C9A 

F300 

| 001C9C 

D2 02 F E52 F 

001CA2 

OA DO 

001CA4 

24 

i 001CAS 

14 

001CA6 

FE46 

001CA8 

92 AO F CBA 

001CAC 

92 AO F COC 

001CB0 

91 80 F E22 

001CB4 

47 80 F CD 4 

001CB8 

OA DO 

001CBA 

A01C 

001CBC 

FFCF 

001CBE 

OA DO 

001CC0 

A03E 

001CC2 

FF9 1 

001CC4 

47 FO F CEO 

001CC8 

92 04 F CBA 

001CCC 

92 04 F CDC 

001CD0 

47 FO F CBO 

001CD4 

D2 07 F E 6 F F 

001CDA 

OA DO 

001CDC 

A02D 

001CDE 

FE 6 A 

001CE0 

OA DA 

001CE2 

OA DO 

001CE4 

8001 

001CE6 

FEA7 


ESA 


E97 


DC X*0420* TEST- NUMBER 

DC •X*FOOO* - EXP COND. CODE AND SENSE* 

DC AL 2 (NORM-r SECNO+REGI : EXP 1ST CSW ADDR. 

BCT R 6 ,NSIQ BR BACK 5 TIMES. 

BAL Rll 9 1SIO BR TO ISSUE START 1-0. 

DC X*2800 # CTRL SWITCHES 

DC X* 0430* TEST NUMBER 

DC X*F140* EXP COND. CODE AND SENSE. 

OC AL2(UNEX-SECNO+REG) EXP CSW ADDRESS. 

BAL RlltITIO BR TO ISSUE TEST 1-0. 

DC X*4800« CTRL SWITCHES. 

DC X-0440* TEST NUMBER 

DC X«F140« EXP COND. CODE AND SENSE. 

DC AL2CUC-SECNO+REG) 

iM**********^********************************************************** 

4 OFF LINE TESTS -ROUTINE 12- 

****»l*aM^*M^*****+***********Mul**++********************************** 



TM 

SNSW+1,X*80* 


BC 

NONE,SUMF 


MVC 

MUA+1213)»OFF 


SVC 

X*DO* 


DC 

X*24* 


DC 

X • 14 # 


DC 

AL2(MUA-SECNO+REG) 


SVC 

X , DA* 


SVC 

X*DO* 


DC 

X * 8001 • 


DC 

AL 2(R TO 1 — SECNO+REG) 


BAL 

RlltlSIO 


DC 

X»0200« 


DC 

X*0450* 


DC 

X'F300« 


BAL 

RlltITIO 


DC 

X*4200 f 


DC 

X* 0460“ 


DC 

X«F300* 


BAL 

RlltIHIO 


DC 

X• 0200 * 


DC 

X 9 0470* . 


DC 

X , F300* 


MVC 

MUA+12I 3),0N 


SVC 

X , DO* 


DC 

X* 24* 


DC 

X«14» 


DC 

AL2(MUA-SECNO+REG) 


MVI 

F 19 X*AO f 


MVI 

F2,X*A0 # 

NMSG 

TM 

LDSW,X* 80* 


BC 

NONE,NOTD 


SVC 

X*D0* 

FI 

DC 

X* A01C * 


DC 

AL 2(R 5Ct SECNO+REG) 


SVC 

X*D0* 


DC 

X*A03E * 


DC 

AL2CPTDB-SECNO+REG) 


BC 

UNC,HLT2 

SUMF 

MVI 

F1,X* 04* 


MVI 

F2,X*04* 


BC 

UNC s NMSG 

NOTD 

MVC 

OVLYC 8),AB30 


SVC 

X»DO» 

F2 

DC 

X*A02D* 


DC 

AL 2 (PCIR—SECNO+REG) 

HLT2 

SVC 

X*DA* 


SVC 

X • DO • 


DC 

X * 8001• 


DC 

AL2(RTD1-SECNO+REG) 


TEST SSW 8 . 

BR IF OFF. 

MOVE -OFF- TO MSG 

PRINT -PUT READER OFF LINE- 


HALT TO PERFORM INTERVENTION 
PRINT A BLANK 


BR. TO ISSUE SIO 
CTRL SWITCHES 
TEST NUMBER 
EXP COND. CODE AND SENSE 
BR. TO ISSUE TIO 
CTRL SWITCHES 

TEST NUMBE R 

EXP. COND. CODE AND SENSE 
BR. TO ISSUE HIO 
CTRL SWITCHES 

TEST NU MB ER 

EXP COND. CODE AND SENSE 
MOVE -ON - TO MSG 
PRINT -PUT READER ON LINE- 
READY- 


SET UP MSG FLAGS. 

SET UP MSG FLAGS. 

SEE IF ON LOADER. 

BR IF NO. 

PRINT REMOVE THE 5 CDS FROM $TKR. 


PRINT 


BR TO HALT. 

SET UP MSG FLAGS. 

SET UP MSG FLAGS. 

BR TO MSG. 

MOVE -ABOUT 30- TO MSG. 

PRINT -DO NOPRO» PLACE 8 LNK CDS>IN 
HPR, MAKE RDY.EOF ON. 

HALT TO PERFORM INTERVENTION 
PRINT A BLANK 




DATE 

EC 
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124252 


10AUG65 

125580 


22FEB66 

125621 


15JUN67 

130498 


ID F81CH-3 
PAGE 14A 
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P/N «4om 
PAGE 15 


001CEB 
001CEC 
OOICEE 
001CF0 
001CF2 
001CF4 


001CF8 
001000 
001008 
001010 
001D18 
001020 
001028 
001030 
001038 
001040 
001D48 
001D50 
001058 
001060 
001D68 


45 BO F OFE 
OAOO 


03 001740 < 
08 001CF8 < 
02 001740 < 
03 001740 I 
C6 001740 < 
C6 001740 i 
25 001740 
25 001740 
C2 001740 
C2 001740 
C2 001740 
23 001740 
23 001740 
23 001740 
C6 001740 


001D70 
001D74 
001D78 
00107 C 
001080 
001084 
001088 
001D8C 
001090 
001098 
001D9C 
00IDAO 
001DA4 
0010A8 
001DAC 
001DB0 
001DB4 
0010B8 
001DBC 
001DC0 
001DC8 
001OCC 
001000 
001D04 
001008 
001DOC 
001DE0 
001DE4 
001DE8 
001DEC 
001DFO 
001DF4 
001DF8 
001DFC 
001E00 
001E01 
001E04 
001E08 
001E0C 


00001020 
0C400000 
00001D28 
0C400001 
00001D30 
0C400000 
00001D38 
0C400001 

0000000000000000 

00001090 

ocoooooo 
00000000 
10000000 
00000000 
04000000 
00000000 
14000000 
00000000 
02000000 : 
oooooooooooooooo 
00000000 
04000000 
00001698 

ocoooooo 

00000000 

ocoooooo 

00001D10 

08000000 

00000000 

04000000 

00001D48 

OEOOOOOO 

00001060 

02000002 

01 

001740 

00000050 ; 

00001070 

ocoooooo 


05MAY65 10AUG65 

124252 125580 


* NOT READY TO READY^TEST^-R0UTINE^12* 

br* TO ISSUE TIO 

BAL RUtlTIO rT»L SWITCHES 

OC X'OAOO* S TR = s T N U H B E R 

OC X*04BO. J XP cono> cooe >N0 $ENSE 

OC AL2I00NLY-SECH04RE6) EXP CSW ADDRESS 

* CCH AREA...^.*„«««m...**«M*»»»**»***» mm * MM * 


CCW AREA 


NOPTRN 

CCW 


CCW 

RDFD 

CCW 

CCW 

CCW 

RDSH 

CCW 

RDLG 

CCW 

WRSH 

CCW 

WRLG 

CCW 

RNOF 

CCW 


CCW 


CCW 

FNOR 

CCW 


CCW 


CCW 

DCRD 

CCW 


X*03*tRDAR#X*40*tl 
, X*08* tNOPTRNtX*00 * tl 
X*02* fRDAR«X , 00* t80 
X*03* fRDAR*X , OO i tl 
X*C6* f RDARtX*00*»79 
X*C6*tROARtX'OO*t81 


READ AND FEED CCW* 

SHORT COUNT READ CCW* 
LONG COUNT READ CCW. 


X* 25 * # ROAR*X* 00* #159 SHORT COUNT WRITE^CCW. 

LONG COUNT WRITE CCW. 

X*C2* *R0ARtX*60*tl 
X*C2* *R0AR»X*60* tl 
X*C2*tRDAR»X*00*tl 
X*23*tR0AR*X*60* tl 
X*23 t tROARtX*00* t2 
X*23* »RDARtX* 00*,3 

X'CA* ,RDAR,X*00* ,80 2I««»«S************ 


nr AfRDSH+ 8 ) 


RSCSW DC 
OC 

RLCSW DC 
DC 

WSCSW DC 
OC 

WLCSW DC 
OC 

R12CSW DC 
DC 
OC 

OBIZ DC 
DC 
DC 
DC 

DBZY DC 
OC 

UC OC 
OC 

CSWO DC 
DC 
DC 

SNSCSW DC 
DC 

NOPCSW OC 
OC 

NORM DC 
OC 

DONLY DC 
OC 

SEQCSW DC 
OC 

REJCSW DC 
OC 

INVCCW DC 
OC 
OC 

DCRCSW DC 
OC 


A(RDSH-*-8) 

X* 0C400000* 
A(R0LG+8) 
X*0C40000l* 
ACWRSH+8) 

X* 0C400000* 

A(WRLG+8) 
X*0C400001* 
XL8 *0* 
ACR12CSW) 

x*ocoooooo* 

XL4*0* 

X*10000000* 
XL4* 0* 

X*04000000* 
XL4*0* 

X*14000000* 
XL4* 0* 

X*02000000* 
XL8'0* 

XL4*0* 

X*04000000* 
A(ISENSE+8) 
X*OCOOOOOO* 
XL4* 0* 

X*OCOOOOOO* 
ACROFD+8) 

X*08000000* 
XL4* 0* 

X*04000000* 
A(RN0F*16) 
X* OEOOOOOO* 
A(FNOR+16) 
X*02000002 * 
X*01* 
AL31R0AR) 

X*00000050* 
ACDCRD+8) 

X*OCOOOOOO* 


INVALID CCW. 


22FEB66 15JUN67 

125621 130498 
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2540 READER FUNCTION TESTS - SECTION 1 FtlO 


00 IE10 00000000 
001614 01000000 


001E18 00000000 

001E1C 00000000 

001E20 0002 

001E22 00 


001E23 40D9E3D540C2E8D7CI 

001E2C E2E2C5C4 

001E30 40D4C1D2C540D9C5C1 

001E39 C4C5094005D6E3 

001E40 40D9C5C1C4E8 

001646 40D7E4E340D9C5C1C4 

001E4F C50940D6C6C640 

001E56 D3C9D5C5 

001E5A D6C6C6 

001E50 D6D540 

001E60 40C4D640D5D6D7D906 

001E69 6B 

001E6A 40D7E4E340 

001E6F C1C2D6E4E340F3F040 

001E78 C2D3D50240C3C4 

001E7F E240C9D54009C4096B 

001E88 D4CID2C540D9C4 

001E8F E86 BC5D6C64006D5 

001E97 C1C2D6E4E340F3F0 

001E9F 40404040F5404040 

001EA7 40D9C5D406E5C540C3 

001EBO C4E240C609D6D4 

001EB7 40E2E3C1C3D2C50940 

001EC0 D6C640D3D6C1C4 

001EC7 C5D940C4C5E5C9C3C5 

001 EDO : 40D9C5D4D6E5C540E3 

001ED9 C8C540D9C5D4C1 

001EE0 C9D5C9D5C740E3C5E2 

001EE9 E340C4C5C3D2E2 

001EF0 6BC9C640C1D5E86B4Q 

001EF9 C6D9D6D440E3C8 

001F00 C540D3D6C1C4C5D940 

001F09 C8D709 

001F0C 40C40640D5D6D7D9D6 

00IF15 40C1D5C440D7D3 

001F1C C1C3C540C3C4E240D9 

001F25 E4D54006E4E340 

001F2C C9D540C6D9D6D5E340 

001F35 D6C640D9C5D4C1 

001F3C C9D5C905C740E3C5E2 

001F45 E340C4C5C3D2E2 

001F4C 40E2C1E5C54009C5D4 

001F55 C1C9D5C9D5C740 

001F5C E3C5E2E340C4C5C302 

001F65 E240E4D5E3C9D3 

001F6C 40C140D4E2C74009C5 

001F75 D8E4C5E2E3E240 

001F7C E3C8C5D440E3D640C2 

001F85 C540D7E4E340C9 

001F8C D540C8D7D9 

001F91 40D7E4E340D9C5D4C1 

001F9A C9D5C9D5C740E3 

001FA1 C5E2E340C4C5C3D2E2 

001FAA 40C9D5E3064009 

001FB1 C4D940C8D7D940C1D5 

00IFBA C440D4C1D2C540 


UNEX OC XL4MJ0* 

..**,**S c ..*.*^2i«2«o..*..****************************************** 

:»*****»»^t2I**A*.*«..****—*******»*************************’****'' 

RDR DC F*0* 

PCH DC F*0* 

H2 OC X*0002* cytTCHES 

ts ^«*s c *****5;«u****..**.********“********************************** 

BYPASS DC C* RTN BYPASSED* 

HNR DC C* MARE READER NOT* 

DC C* READY* 

MUA DC C* PUT READER OFF « 

DC C*LINE* 

OFF DC C *OFF• 

ON DC C*ON * 

DONPRO DC C* DO NOPROt* 

PCJR DC C* PUT * 

OVLY DC C*ABOUT 30 BLNK CD* 

DC C*S IN RDRtMAKE RD* 

DC C *YtEOF ON* 

AB30 DC C*ABOUT 30* 

P5 DC C* 5 * 

RTD1 OC C* REMOVE CDS FROM* 

DC C* STACKER OF LOAD* 

DC C*ER DEVICE* 

RTD2 DC C* REMOVE THE REMA* 

DC C*INING TEST DECKS* 

DC C*tIF ANY« FROM TH* 

DC C*E LOADER HPR* 

RTD3 DC C* DO NOPRO AND PL* 

OC C’ACE CDS RUN OUT • 

DC C* IN FRONT OF REMA* 

DC C*INING TEST DECKS* ! 

RTD4 DC C* SAVE REMAINING *• 

DC C*TEST DECKS UNTIL* 

DC C* A MSG REQUESTS * 

DC C*THEM TO BE PUT; I* 

DC C*N HPR* 

PTOB DC C* PUT REMAINING T* 

DC C*EST DECKS INTO R* 

DC C*DR HPR AND MAKE « 


DATE 05MAY65 10AUG65 22FE866 J5JUN67 

EC 124252 125580 125621 130498 
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2540 READER FUNCTION TESTS - SECTION X F810 


001FCI 

D9C40940D9C4E86BC5 


OC 

C*ROR ROY f EOF ON* 

001FCA 

D6C640D6D5 




001FCF 

40D9C5D406E5C540C2 

R5C 

DC 

C* REMOVE BLNK CDS* 

001FD8 

D3D5D240C3C4E2 




OOIFDF 

40C6D9D6D440D9C5C1 


DC 

C 1 FROM READER* 

001FE8 

C4C5D9 




001FEB 

40D4C1D2C540C4C5E5 

MDR 

DC 

C* MAKE DEVICE:ROY* 

001FF4 

C9C3C540D9C4E8 







- 


♦ 

EQUATES 





000000 

NEVER 

EQU 

0 


000007 

NCCO 

EQU 

7 


OOOOOF 

UNC 

EQU 

15 


000008 

NONE 

EQU 

8 

■ 

000004 

SOME 

EQU 

4 


00000l 

ALL 

EQU 

i 


000005 

ANY 

EQU 

5 


000008 * 

CCO 

EQU 

8 


000004 

CC1 

EQU 

4 


000002 

CC2 

EQU 

2 


000001 

CC3 

EQU 

1 

. 

000008 

EQ 

EQU 

8 


000004 

LO 

EQU 

4 


000002 

HI 

EQU 

2 


000006 

UNEQ 

EQU 

6 


OOOOOC 

EQLO 

EQU 

12 


OOOOOA 

EQHI 

EQU 

10 


000080 

LOGOUT 

EQU 

X*80* 


000181 

SYSMOD 

EQU 

X # 181f 


OOFOOO 

REG 

EQU 

X , F000 # 


00005A 

WHAT 

EQU 

90 

j 

000000 

RO 

EQU 

0 

j 

000001 

Rl 

EQU 

1 


000002 

R2 

EQU 

2 

( 

000003 

R3 

EQU 

3 

I 

000004 

R4 

EQU 

4 


000005 

R5 

EQU 

5 

i ■ ■" 

000006 

R6 

EQU 

6 

j 

000007 

R7 

EQU 

7 


000008‘ 

R8 

EQU 

8 


000009 

R9 

EQU 

9 

i 

OOOOOA 

RIO 

EQU 

10 

1 

OOOOOB 

Rll 

EQU 

11 


OOOOOC 

R12 

EQU 

12 


OOOOOD 

R13 

EQU 

13 


OOOOOE 

R14 

EQU 

14 


OOOOOF 

R15 

EQU 

15 


000198 

WT 

EQU 

408 


000040 

HCSW 

EQU 

64 


000048 

HCAW 

EQU 

72 


0001AO 

DMSSW 

EQU 

X* 01A0* 


0001B9 

DMIOL 

EQU 

X*01B9* 


0001BC ! 

DMPTR 

EQU 

X'OIBCI 




END 

ROUTOl 


DATE 05MAY6& 10AUG65 22FEB6615JUN67 t 10 F8l<^»3 1 
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2540 READER FUNCTION TESTS - SECTION 1 F810 

POST ASSEMBLY DATA, 


P/N 840186 
*PAGE 16A 


REFERENCES TO DEFINED SYMBOLS, 


2 

19DC 

CS 

19D4 







l 

8 

EQ 

1362, 

1396, 

19A6, 

19C0 




2 

1CBA 

FI 

1CA8, 

ICC 8 






2 

1CDC 

F2 

1CAC, 

1CCC 






2 

1E20 

H2 

16F0 







1 

2 

HI 








1 

4 

LO 








3 

1E5D 

ON 

1C9C 







8 

1E9F 

P5 

1C0A 







1 

0 

RO 








1 

1 

Rl 








1 

2 

R2 








1 

3 

R3 

1988, 

198C, 

199A, 

19C8 




l 

4 : 

R4 

171E, 

1800, 

1824, 

1854, 

1878, 

1894, 

18E4 




1950, 

1984, 

1996, 

19BA, 

19C4* 

19C4, 

1A7C 




1AE0, 

1AF8, 

1AFC, 

IB 00, 

1B1A , 

1B9C 


l 

5 

R5 

1558, 

1730 






1 

6 

R6 

16E4, 

16E4, 

16E6, 

16EA, 

16EE, 

16F0, 

16F4 




1990, 

1990, 

199E, 

19AA, 

19AA, 

19AE , 

1900 




1C36, 

1C46 






1 

7 •' 

R7 








1 

8 

R8 

112C, 

12CA, 

12CE, 

1332, 

1336, 

1354, 

1354 




1358, 

1386, 

13BA, 

146C , 

1470, 

1474, 

1474 




1478, 

156A 






1 

9 

R9 

112C, 

1186, 

118A, 

1196, 

1206, 

120A, 

1216 




126C, 

12C2, 

12C6, 

12E2, 

1412, 

1440, 

1482 




149A, 

14B2, 

14CA, 

156A, 

1B36, 

1B3A, 

1B3E 

4 

10B8 

UC 

19E2, 

1BF0, 

1BFC, 

1C 60 




1 

198 

WT 

1186, 

1206, 

12C2, 

1AF8, 

1B36 



1 

1 

ALL 

114A, 

11E6, 

11FE, 

1236, 

128E, 

12AE, 

12EE 




12FA, 

1376, 

138E, 

139E, 

13D6, 

1558, 

1704 




1A88, 

1B90, 

1C14 





l; 

5 

ANY 

1550 







4 t 

1048 

CAW 








l ; 

8 

CCO 

1192, 

11B0 






l 

4 

CC1 

11B4, 

12DE 






l 

2 

CC2 

UB8 







l 

1 

CC3 








8 

1010 

ccw 

1716, 

171A, 

187C , 

1A8C, 

1AF4, 

1B04 


8 

1040 ; 

csw 








4 

180E 

GTN 








2 

100A 

I CM 








4 ; 

1186 

IHI 

116A, 

117A 






2 

10E8 

ISW 

119A, 

119A, 

11A0, 

UD6, 

11F6, 

1202, 

120E 




121E, 

122E, 

1232, 

1240, 

1270, 

127E, 

128A 




1292, 

12A2, 

12B2, 

12EA, 

12F6, 

130A, 

132A 




134C, 

1366, 

1372, 

I486, 

1486, 

14D4, 

152C 




1534, 

1554, 

1700, 

172C, 

1734 



4 

1566 

IUP 

155E 







16 

1FEB 

MDR 

1574, 

1580 






16 

1E30 

MNR 

1BDC 







16 

1E46 

MUA 

1C6A, 

1C74, 

1C9C, 

1CA6 




2 

1BD8 

NRM 

1BA8 







3 

1E5A 

OFF 

1C6A 







2 

1BCE 

P5I 

1C 14 







4 

1E1C 

PCH 

16D0, 

180E, 

18BC 





1 

A 

RIO 

1128, 

1136, 

13F0, 

140C, 

1416, 

141E, 

141E 




1548, 

171A, 

1828, 

1858, 

1898, 

18A8, 

18B8 




18CC, 

18E8, 

18F8, 

1908, 

1918, 

1928, 

1938 




1954, 

19CC, 

19E4,: 

1A80, 

1AE4* 

1B04, 

1B1E 




1C32 








DATE 05MAY65 10AUG65 22FEB66 15JUN67 

EC 124252 125580 125621 130498 
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P/N 840186 
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1 

8 

RU : 

1122* 

1128, 

1146, 

11DA, 




129A, 

130E, 

1318, 

1322, 




13BA, 

13BC, 

13CE, 

13CE, 




146C, 

149E, 

14CE, 

155A, 




1566, 

156E, 

1804, 

1812, 




185C, 

1868, 

1880, 

189C, 




18EC, 

18FC, 

190C, 

191C, 




1908, 

19E8, 

1A90, 

1A9C, 




1ACC, 

1AE8, 

1B08, 

1B22, 




1B58, 

1B64, 

1B70, 

1B7C, 




1C26, 

1C3A, 

1C4A, 

1C56, 




1CE8 




1 

C 

R12 

115E, 

116E, 

117E, 

1186 , 




120A, 

1578, 

16C8, 

16CC, 




160C, 

16F4, 

180E, 

18BC 

1 

0 

R13 

1136, 

113A, 

113A, 

1100, 




16BC, 

16BC, 

16C6 


l 

E 

R14 

1140, 

1140, 

1186, 

1206, 




16BE, 

16E6, 

16EA0 

16EE, 

1 

F 

R15 

123A, 

1248, 

1278, 

16C6 

16 

IFCF 

R5C 

ICBC 




4 ‘ 

1618 

RDR 

16DC 




1 

fooo ; 

REG 

125A, 

13B4, 

13CC, 

1366, 




1452, 

14E8, 

14F6, 

152A, 




1580, 

172A, 

1840, 

1866, 




18CA, 

180A, 

18F6, 

1906,. 




1946, 

1962, 

19E2, 

19F20 




1ABE, 

1ACA, 

1AD6, 

1AF2, 




1B6E, 

1B7A, 

1B98, 

1BB0, 




1BC8, 

1B02, 

1B0C, 

1BE4, 




1C1C, 

1C24, 

1C30, 

1C 44, 




1C7C, 

1CA6, 

ICBC, 

1CC2, 

4 ! 

1996 

SIV 

19C0, 

19F4 



6 < 

19BA 

TOT 

19C8 




1 

F 

UNC 

10FA, 

110E, 

1162, 

1182, 




1222, 

1244, 

1274, 

1296, 




1422, 

1440, 

1538, 

156E, 




19F4, 

1BCA, 

1BD4, 

1CC4, 

8< 

1E97 f 

AB30 

1C04 




4! 

19A2 

ADD1 

19B6 




4 l 

198C 

BV2C 





8 

10C0 

CSWO 

1A06, 

1B62, 

1B7A, 

1C 08 

4 

1DA0 

OBIZ 

1AA6, 

1ABE 



4 : 

10B0 

OBZY . 

IB 12, 

1B6E 



8 

1D68 

OCRD 

1908, 

1938, 

19E4, 

IE 08 

1 

A 

EQHI 





1 

C 

EQLO 





8 

1D50 

FNOR 

1918, 

10F8 



4 ! 

18B8 

G005 





4 ! 

1B9C 

GO 07 ; 

1B90 




4 : 

U8E 

GREG 

1196 




1 

48 

HCAW 

1136, 

12CE, 

1548 


1 

40 

HCSW 

113A, 

113A, 

11D0, 

123A, 

2 

1BDE 

HLT1 

18CA 




2 

1CE0 

MLT2 

1CC4 




16 

17 EO 

HUNG 

172A 




3 

1607 

IACT i 

1266, 

148E, 

14BE 


6 

1318 

IBSN 

12A6, 

12B6, 

128E, 

12E6 

12 

150B 

ICAW < 

13F0, 

13F8, 

13FA, 

1400 

3 

15EA 

ICCW 

1402 




1 

1430 

ICNT i 

1262, 

1408, 

145A 


3 

15E7 

ICSW 

125C, 

1454 



4 

i486 

10 ID 

14A2 




3 

160 A 

IEXP 

1466, 

14A6 



4 ! 

10EA 

IHIO 

1ACC, 

1B42, 

1858, 

1B70, 

2 

16BC 

INITi 

1800, 

1824, 

1854, 

1878, 




1984,' 

IA7C, 

1AE0, 

1B1A, 

4 ! 

11F6 

INOU V 

114A, 

11C0, 

UC8, 

110E, 


DATE 05MAY65 10AUG65 22FEB66 1SJUN67 

EC 124252 125580 125621 130448 


11EA, 

UFA, 

1282 

1332, 

13440 

13A2 

13D2, 

1442, 

145E 

1562, 

1562, 

1566 

182C, 

1836, 

1842 

18AC, 

18C0, 

1800 

192C , 

193C, 

1958 

1AA8, 

1AB4, 

1AC0 

1B2C, 

1B42, 

1B4C 

1BE6, 

1BF2, 

1BFE 

1C7E, 

1C88, 

1C92 

11AC , 

1226, 

1202 

1600, 

1604, 

1608 

12CE, 

1302, 

1548 

12C2, 

14F8 , 

1500 

1AF8, 

1B36 



1400, 

143E , 

144C 

1540, 

1546, 

1574 

188A, 

18A6, 

1886 

1916, 

1926, 

1936 

1A9A, 

1AA6, 

1AB2 

1B12, 

1B56, 

1B62 

1BB6, 

1BBC, 

1BC2 

1BF0, 

1BFC , 

1C08 

1C54, 

1C60, 

1C74 

1CDE, 

1CE6, 

1CF2 


UCO, 

11C8, 

1166 

12E6, 

12F2, 

12FE 

1582, 

171E, 

1738 


1C00 


1248, 1278# 1302 


1BPE, 1C92 

1844# 1864, 1950 

1B9C 

1166, 11EE 


no F8104-3 I 
PAGE 17 I 


i! 
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2540 READER FUNCTION TESTS - SECTION 1 F810 


4 l 

1DE8 

DONLY 

1C30* 

1CF2 






2 

19 F8 

FINIS 

19 A 6 







1 

100 E 

FLAG1 








1 

100F 

FLAG2 








2 

1C1E 

HLT11 ; 

1BD4 







16 

15ED 

IBLAH 

125Cf 

1266, 

14021 

142E, 

1434* 

143E , 

1454 : : 




1466* 

148E, 

14A6, 

14BE : 



- * • | 

2 

1426 

ICOUT 

126C, 

1412, 

1482, 

149A/ 

\ 1682, 

14CA 

1 

8 

1676 

ICSWl 

11D0, 

11E2, 

123A, 

12AA, 

.133A , 

133 A, 

139A 1 




1494 : 







8 

1686 

ICSW2 

1278, 

12BA, 

135C, 

135C , 

14C4 



• 4 : 

152C 

1CUI0 

14FC 







4 i 

1486 

IDIOI 

1462 







4 ! 

116E 

. IHANG 

1182 







16 

15CB 

ILINK 

; 13BC, 

13C4, 

13C6, 

13CC, 

1546 


i 

< 

4 

1302 

I LORE 

12DE 







4 

115E 

ILOOP 

10F6,. 

1102, 

1116 




1 

4 : 

1366 

1NDER 

12D6, 

12EE, 

12FA, 

1314, 

131E, 

I32E , 

1340 




1350 







5 

1010 

: INPSW 








3 

16 AO 

IOADR 

13DE 







6 

1454 

IOCSW 

13D6 







16 

1623 

IOLOG 

150E, 

1514, 

151A, 

1520, 

152A 



16 

1648 

I0PT1 

10EE, 

1106, 

111A, 

1540 




4 

14F8 

IPASS 

14D8 






: , \ 

8 

1588 

ISAVE 

112C* 

156A 






4 

11 AC 

ISSUE 

10EA, 

10FE, 

1112, 

13E8, 

16A0 



4 ! 

1156 

ITRY1 

1162, 

1172, 

1550 




1 

4 

1166 

ITRY2 

115A 







16 

16A7 

IUNEX 

1254, 

125A 






4 

1206 

IWAIT 

1296, 

1538 





i 

4 

11F2 

IZERO 

1160 






j 

4 

173C 

M0D50 

16CC, 

16D8 






1 

0 

NEVER 







' i 

4 

1D78 

RLCSW 

18B6 







4 

1D70 

RSCSW 

18A6 







4 

1000 

SEGNO 

1130, 

1252, 

1254, 

125A, 

13AC, 

13AE , 

13B4 




13C4, 

13C6, 

13CCt 

13DE, 

13E0, 

13E6, 

13F8 




13FA, 

1400, 

142A, 

142C, 

143E, 

144C, 

1452 




14E0, 

14E2, 

14E8, 

14EE, 

14F0, 

14F6 , 

150A 




150C, 

152A, 

1540, 

1546, 

1574* 

1580, 

1720 i 




172A, 

17FD, 

1821, 

1840, 

1851, 

1866, 

1875 




188A, 

1891, 

18A6, 

18B6, 

18CA, 

18DA , 

18E1 




18F6, 

1906, 

1916, 

1926, 

1936, 

1946, 

194D 1 




1962, 

1981, 

19E2, 

19F2, 

1A79 , 

1A9A, 

1AA6 ! 




1AB2, 

1ABE, 

1ACA, 

1AD6, 

1AD0, 

1AF2 , 

1B12 | 




1B17, 

1B56, 

1B62, 

1B6E , 

1B7A , 

1B98 , 

1BB0 




1BB6, 

1BBC, 

1BC2, 

1BC8, 

1BD2 , 

1BDC, 

1BE4 i 




1BF0, 

1BFC, 

1C08, 

1C1C, 

1C24, 

1C30, 

1C44 




1C 54, 

1C60, 

1C74* 

1C7C, 

1CA6, 

ICBC, 

1CC2 




1CDE, 

1CE6, 

1CF2 





4 

1804 

START 








l 

10 EO 

UNIT! 

16D4 






* ! 

1 

10 E4 

UNIT2 

. 16C8 







4 !■ 

1088 

WLCSW 

18DA 







4 I 

1080 

: wscsw 

18CA 






i 

13 

1E23 

BYPASS 

1B98 







8 

1968 

CHNNOP 

18F8, 

1928, 

1954 





1 

1A74 

CMDBYT 

1992, 

199E, 

19A2, 

19AE , 

19B2 , 

19BA 


4 

1A53 

COLBIN 








4 f 

1E08 

DCRCSW 

1916, 

1946, 

19F2 





10 

1E60 

DONPRO 

1C1C 







5 

1058 

EXNPSW 








8 

1018 

EXOPSW 








6 

1720 

HANGUP 

1704 







11 

1618 

IACSNS 

11A4, 

130E, 

1392, 

14EE, 

14F0, 

14F6, 

1690 

10 

15B2 

IACT CC 

11A8, 

llBC# 

11C4, 

UCC, 

11F2, 

1318, 

1452 

6 

1442 

ICCOUT 

13EC, 

141A 





1 


DATE 05MAY65 10AUG65 22FEB66 15JUN67 i ID F810^3 

EC 124252 125580 125621 130498 ' iPAGE 18 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840186 
PAGE 18A 


2540 READER FUNCTION TESTS - SECTION 1 F810 


6 

133A 

ICCSW1 

1336 





6 

135C 

I CCS VI2 

1358 





6 

147C 

ICHNG1 

1470 





6 

14AC 

ICHNG2 

1478 





6 

140C 

ICWOUT 

1422 





4 

12C2 

IDOSNS 

129E, 

12AE, 

1730 



4 

136A 

IDUNCK 

12F2, 

12FE, 

1362 



10 

15A8 

IEXPCC 

1442, 

144C 




11 

160D 

IEXSNS 

14CE, 

14E0, 

14E2, 

14E8 


6 

1122 

IEYEOH 

10FA, 

110E 




1 

13B2 

IFL AG1 

136A, 

1382 




1 

153E 

IFLAG2 

136E, 

1386 




4 

155A 

HEAVE 

137E 





6 

1500 

ILOGED 

1274 





4 

149E 

IMORST 

148A 





4 

12EA 

IN0EX1 

1326 





4 

12F6 

IN0EX2 

1348 





1 

1E00 

1NVCCW 

19CC, 

1900 




15 

15BC 

IOADDR 

10F2, 

110A, 

111E, 

13E0, 

13E6 

4 

1078 

IONPSW 






8 

1038 

IOOPSW 

1226, 

1252 




2 

153C 

IOPOUT 

1530 





4 

138 A 

IOUT IT 

1376 





4 

1226 

IRETRN 

107C 





4 

1136 

IRETRY 

1582 





8 

1690 

ISENSE 

12CA, 

1828, 

1858, 

1000 


8 

1698 

ISLAVE 

1128 





4 

12DA 

ITIOLP 

12E2 





9 

163F 

ITSTNO 

1122, 

13A2, 

13AC, 

13AE, 

13B4 

1 

80 

LOGOUT < 

1140, 

1140, 

1500 



8 

1070 

MCNPSW 






8 

1030 

MCOPSW 






4 1 

16C8 

NITWIT 

16C2 





4 

1DD8 

NOPCSW 

188A, 

1906* 

1936 



8 

1CF8 

NOPTRN 

1D00 





8 

1068 

PGNPSW 






8 

1028 

PGOPSW 






8 

1D90 

R12CSW 

1D98 





4 

1DF8 

REJCSW 

1926 





1 

17 FC 

ROUT01 

1015, 

IFFB 




1 

1820 

ROUT 02 

17FD 





1 

1850 

ROUT 03 

1821 





1 

1874 

ROUT04 

1851 





1 

1890 

ROUT 05 

1875 





1 

18E0 

ROUT 06 

1891 





1 

194C 

ROUT07 

18E1 





1 

1980 

R0UT08 

194D 





1 

1A78 

ROUT09 

1981 





1 

1 ADC 

ROUT 10 

1A79 





1 

1B16 

ROUT 11 

1ADD 





1 

1B88 

ROUT 12 

1B17 





1 

1A73 

SAVCNT 

198C, 

199A 




4 

1DF0 

SEQCSW 

18F6 





4 

1DD0 

SNSCSW 

1840, 

1866 




2 

1B94 

SOLONG 

1A88 





8 

1060 

SVNPSW 






8 

1020 

SVOPSW 






1 

181 

SYSMOD 

14F8 





2 

10E2 

U1ADDR 






2 

10 E6 

U2ADDR 






4 

19FA 

VALCOM 

1996 





1 

1000 

XF8103 







NO ERROR DETECTED:IN ABOVE ASSEMBLY 
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F810 2540 RD FUNCTION SEC 1 


PERIODS CORRESPOND TO BLANK COLUMNS* 


COLS* 1 

THROUGH 20 

COLS* 21 THROUGH 40 

COLS* 41 THROUGH 60 

COLS* 61 THROUGH 80 

BESD.**.• 

• AA* 

•AAXF81 

03..AAAA.AGC. 

...840 : 

187*130498**81030001 

9 

YQ 

Y9 

YYQY Y8Q 




99 

9 

9999 99Z 



BTXT*AAA* 

• A8* 

•AA8AAA 

AAAAAAAAABOAADAAAAPO 

AAAAAAAAAAAAAAAAAAAA 


9 YQY 

Y9 

Y9 QQY / 

YYYYYYYYY94Y99YYYY9Q 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 

999 

9 

9 9Z9 

999999999 9 9999 Z 

99999999999999999999 

999999999999 

BTXT*AA8* 

• A8. 

•AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAOAAAAAAAAAA 


9 YQ9 

Y9 

Y9YYYY 

yyyyyyyyyyyyyyyyyyyy 

YYYYYYYYY9YYYYYYYYYY , 

YYYYYYYYYYYY 

99 

9 

9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 

BTXT*AAO* 


•AAAAAA 

AAAAADAAAAKW........ 


...........- n tn^nnn& 

9 YQ4 

YQ 

Y9YYYY . 

YYYY99YYYY99 



99- 

99 

9 9999 

9999 9999 



BTXT*AAS* 

* A8* 

•AAAAAA 

BAAAAABF1MBH6/BH5HBF 

10G01SBE1MBE10BT6/BT 

5H60ISB01MB081030005 

9 YQ8 

Y9 

Y90YYY 

OYYYYY-Q Y- - -Q 

8Z 9-Q Y-Q 8- 

Z 9-Q Y-Q 

99 

9 

9 9 9 

9 999 



BTXT*AJQ* 

• A8 * 

•AA10BS 

6/BS5HKA6DABAL6HAI5H 

KA6NOC4NAHPGO.G.PCSA 

SAAAAAGA16A081030006 

9 Y99 

Y9 

Y9 8- 

9 ZQ9QY -QO 0 

Y 0 9 YYZ 9- - 88Y 

8Y-YQYZQ -4 

9 

9 

9 

0 

9 9 9 

09 9 

BTXT*AJ4* 

• A8* 

•AAODGA 

IBAAOOGAIODAOAGOIFA* 

0DGA1FEA0AG01FA.0DGA 

1FDA0AGO1WHF81030007 

9 Y9 

Y9 

Y9 9ZY 

G-Y 9ZY ZQY4YZ R- 

9ZY 0QY4YZ4 R- 9ZY 

0QY4YZ 8RQ 

9 

9 

9 

9 9 

9 9 - 

9 9 

BTXT.AJH* 

• AQ* 

•AAAHHA 

ACEA0AGA1BFA1FPA0Y0Y 

FA0YBX6NBX5GDA0AGA12 

G.10GJ1DB35G81030008 

9 Y90 

Y9 

Y99-0Q 

Y9QY4YZY QZQ Y 9 

-Y - 8- 0QY4YZY 

Z YZY - 0 

9 

9 

9 

9 9 9 

9 - 9 9 

9 9 

BTXT*AJO* 

• AB* 

•AAG016 

B25GG016B15GKG660.F. 

QYAAAAGA16AH68GA16F* , 

AAGO16BO5G0781030009 

9 Y94 

Y9 

Y9Z 

- OZ - 0 9 8- 

-YQ9ZY -9 OZQ , - 

QYZ - 0-8 

9 

9 

9 

- - 

0 9 

09 

BTXT*AJ8. 

• AB* 

•AAOYA* 

AAGA2BFA0YHFAHHAACFA 

0YAA6LFA20AA6MD70YG0 

2 BAOO2 G-2 HD781030010 

9 Y9 

Y9 

Y9 - 

QYZQ Q-Q RQ9—0QY9-Y 

YY OZQ 9YY 0-8 Z 

Q84 8Z Z-8 

9 

9 

9 

09 9 9 9 

9 9 

9 

BTXT.AKA. 

• A8* 

•AAOYA* 

OYGA2HKG660.F.0YG02B 

KG5A0.8EABA2FHB0MN6P 

KB505XBK45KB81030011 

9 Y9Q 

Y9 

Y9 - 

ZQ R 9 8 - Z 0 

9 Q 8QY9Y8908—Z9 Q- 

9 Y -8 8 9 

9 Z 

9 

9 

9 0 

999 99 -9 

9 9 9 

BTXT*AKQ* 

• A8* 

•AA6D6G 

EA4HFB0YG05AKG6F0.FJ 

0YAAAAGA28AH0YGA28FH 

0YG02FABAAGA81030012 

9 Y9Z 

Y9 

Y9 9 9 

ZQ 9-9 Z Y 9 0 -Y 

-QQYZY Q-9 ZQ Q-9 

Z 9-9QYZY 

9 

9 

9 

9 9 

909 9 

09 

BTXT.AKJ. 

• AB* 

•AA2BA* 

0YGA3QAB6BGA2BAJ0YGA 

3QA86BGA3QHFAHHAABAA 

6A4EAHDA0AG08103Q013 

9 Y9Y 

Y9 

Y9 - 

ZY 9-9 OZQ -Y ZY 

9-9 YZY 9RQ9-0QY9ZY 

Q YYZQY4YZ4 

9 

9 

9 

9 9 

9 

9 9 9 - 

BTXT*AKQ. 

• A8* 

•AA30EA 

0AG.3BFA28G03QA.0YGA 

30G034AJ0YGA30G034ED 

00G02SFD0YNA81030014 

9 Y9 

Y9 

Y9 ZQY . 

4YZ 9ZQ QZ 9- ZQ 

ZZ —Y ZQ ZZ —8 

.-ZZ4 -9 Y 

9 

9 

9 9 

9 9 9 

9 9 9 

9 

BTXT*ALA* 

* AS* 

•AA6NAE 

G—30NA5GA0G-3OAHAAGA 

2KA* 0YGA30HCAF*A36NG 

6666G-30ADAA81030015 

9 Y9Q 

Y9 

Y9 -8Q9 

11 Y 0Q9Z Z-9QYZY 

Y- ZY ZZYY9 Y 8 9 

8 8Z Z-9QY 

9 9 

9 

9 90 

9-0 09 

9 9 9 

09 

BTXT*ALH* 

• A8* 

•AAGA26 

AJ0YGA30AHAH.A3-NG6F 

6FGA34FA0YBM3BB056AA 

OYGA38AAOOGA81030016 

9 Y9Z 

Y9 

Y9ZY 

-Y ZY ZZ0Y9 Y 90 

OZY —9 -Z 0-4 8-9 

ZQ Y-9 9IY 

9 

9 

* 9 

9 9 

9 

9 
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F810 2540 RD FUNCTION SEC 1 


BTXT•ALA* * A8* •AA5KBU 3BBA56AA60GA3KE.6NGA 

9 Y9Y Y9 Y9 8-9 0-Y 8-Y OZQ 0- 8ZY 

9 9 9 9 9 9 


BTXT*ALH* 

• A8* 

• AAADLH 

4A50BEACEJE0BGJA5CAC 

9 Y90 

Y9 

Y9Y980 

Q -8QY99 9-8-YQ YZQ 

9 - 

9 

9 9 9- 

0 999 9 990 

BTXT*ALO* 

. A8* 

• AA4J5S 

BEACEJESB0JC5CKB5Q5K 

9 Y9 

Y9 

Y9 Y 8 

8QY99Z988-Y8 Q 9 Y Y 

9 

9 

9 

999 9 9 9 9 9 

i 

BTXT.AMY* 

• A8* 

•AAAHEA 

EAKG525AKG5C5HB0JK5N 

9 Y99 

Y9 

Y9Y99Q 

9Q 9 Q 9 Q -8-Y8 Y 

9 

9 

9 9 

Z 9 9 9 

BTXT*APH* 

* AB* 

•AAAAGA 

4FKB606BHCAF.A4AAHAH 

9 Y9 

Y9 

Y9QYZY 

099 8ZYY9 Y YZ0Y9 

9 

9 

9 09 

9 9 9 

BTXT*AMH* 

:• A8. 

.AA66EA 

4WADAA6A4FKB6D6BKG5A 

9 Y9- 

Y9 

Y9 8ZQ 

9-9QYZY 0 9 9 8 9 Q 

| 9 

9 

9 

09 - 9 

BTXT*AMO* 

• AB. 

•AA6KAE 

AD0YGA48BEAAFKFKB0JC 

1 9 Y9- 

Y9 

Y9 9Q9 

-9 ZY 8QY999998-Y8 

9 

9 

9 0 

999 9 9 

BTXT.ANH. 

. AB* 

•AAADEA 

EAKA6Y5AKE6T5BKE625B 

9 Y99 

Y9 

Y9Y89Q 

9Q 9 9 Q 9 8 - 9 9 Q 

9 

9 

9 99 

9 

BTXT*AN.• 

- • AB* 

•AA6HB0 

JA5C4NAHA00DG41FAA0Y 

9 Y9 

Y9 

Y9 ZB— 

Y9 Y YYZ—4 9Z R-Y 

9 

9 

9 9 

9 9 


BTXT.ANH.*AQ.•AAEAOA B0AAGLG016SAAAAAAAAA 

9 Y9R Y9 Y9QY+Y , 8-Y9QYZ 99YYYYYYYYY 
909 999 9 Z9 999999999 


BTXT*ANQ*.AU*.AA.CC* .X.EXPoCC..X*ACT*ADR 


9 Y90 

Y9 

Y9 


9 

9 

9 


BTXT*ANC* 

• AJ. 

« AA.ADR 

• XXXXXX*L INKA....... 

9 Y9Y 

Y9 

Y9 

Y 

9 9 

9 

9 

9 

BTXT.ANC. 

• A8* 

• AA*CAW 

*XXXXXX*CSWCCM*CSW*X 

9 Y9Q 

Y9 

Y9 


9 9 

9 

9 


BTXT.AOL. 

• AB* 

• AAX* EX 

P.SNS.XX.ACT.LOG.XX* 

9 Y99 

Y9 

Y9 


9 

9 

9 


BTXT.AOC* 

• AS* 

.AAT.SS 

*O.ON*FOR.LOGP.QN.XI 

9 Y98 

Y9 

Y9 


9 

9 

9 



50AA6BGA50KA6DA88EAB i FDFDBOMA67AA8103001T 
-f~9 OZQ 4 9 ZQ98QY9 9Z9Z8-Z8 8ZY 

9 - 0 999 999 

ADAAAAGA4DBEACFJEAB0 JG5DEDIMG-4B81030018 

Y9-YQYZQ R8QY99Y9 8- Y8 Q-G Y l Z 

9 09 9 999 9 90 

B045KG5AJAEA4WA0JDGA 48AKAHG04DBE81030019 

*989 QYYZQ 9-4Y9ZY ZZYY9Z 880 

99 9 999 

G9KA5NADB0JB5QB0JB5B KB505XBK45AH81030020 

9 Y YQ98-Y8 08^Y8 0 9 Y -8 8-9 

90999 9- 9 99 

•A4AKG5A5AEA4HA.0YGA 4FKB606GKG5A81030021 

Y Q 9 Q QZQ 9- ZY Q 9 9 9 9 0 

0 

5AEA4WAJ0YGA4FKB6D6G KG5A6FEA4WKA81030022 

QZQ 9—Y ZY Y 9 9 9 9 Q OZQ 9 Y 

9 9 9 

6EBEAAFNFNB0JC6QEAJA G-5UKC5ASABE81030023 

88QY998988—Y8 9-QZO Z 88 08Y8Q 

9999 9 99 9 Z 9 9 99 

KE615KB0JM6TAB0YGA54 DE0YG02FB00681Q30024 

9 8 08-Y8 9-9 ZY 8 -Q Z 98-49 

9 9 9 9 Z 9 

GNAHAAGA5GACABACAFHI 5HGCB0UAGLBB8103Q025 

99-9QYZY ZZQY9ZQY9-0 09Q8-9CQY8Q 

09 09 09 Z9 9Z999 

. .* «•**»•*•*#**81030026 


•XXXXXX*XIQA*•••••*• *•*•**81030027 

Y 
9 

• ** **«.••**.*•«**••• **********•*81030028 


XXXXXXX.XXXXXXXX.EXP ACTEXP.SNS.X81030029 


XXXXXX* XXXXXX*XXXXXX .TST.XXXX.SE81030030 


OT* SS*1*0N*F0R*TI0*S I0*L00PAAAAA81030031 
8 YYYYY 

99999 


BTXT.AOC*. AB. • AAAAAA AAAAAAAAAOAONAAAAAAA AAAAAAJMFAAA*UI0*FRO M*DEVICE*XXX81©30032 

9 Y90 Y9 Y9YYYY YYYYYYYYY9Y98YYY9YYY YYYYYY9YQ9YY 

999 9999 999999999 9 9999 999 999999 Z 99 


BTXT*AOC«•A8*•AAXLEA .JFGA6HQGH00UD07440F MH005007440FQBAFSLOC MAIBWADKWC-F81030033 

9 Y9Q Y9 Y9 8Q- Z-ZY 9QR4 R4 8 4Q 8R4 8R4 8 .4Q9r>YQ98ZZ 890889Q888 Q 

9 0 9 9 99 9 9 Z 9 t I 91 9 — 09 Z 
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BTXT.A03* 

• A8* 

•AAJAFA 

AG-7AFAFSAA0YGA7JB*? 

9 Y9 

Y9 

Y9Y8 Y . 

YZ Y-YQ9-Y 2Q Y- 

9 

9 

9 9 9 

9 9 2 9 9 

BTXT*APTJ 

• AN* 

*AASFAO : 

YE42BBA0YG07AAA7G... 

9 Y98 

Y9 

Y98-9 

2 -Y 2 YYY8Q 

9 9 

9 

9 

9 99992 

BTXT.APS. 

• A8*i 

•AA.PRE 

VIOUS.HANG.UP.DETECT 

9 Y98 1 

Y9 

Y9 


9 

9 

. 9 


BTXT.AQQ* 

• AS* 

•AAAJOA 

B06ABAH4E.6DAJ6AEA1K 

9 Y99 

Y9 

Y9YY Y 

8 9Y9Y9 2 QZY QZQ 9 

9 

9 

9 99 9 

9 9 9 0 0 

BTXT*AQ4^ 

• A8* 

•AACAHD 

E.6DAJ6AEA1KSAA-0AE0 

9 Y9 

Y9 

Y99Y9R 

2 QZY QZQ 98YY YQ- 

9 

9 

9 9 0 

0 0 999 92 

BTXT«AQH« 

*A8. 

« AA1AEQ i 

B0GAEAHSE.6DAJEQEA1K 

9 Y90 

Y9 

Y9 YQ 

8 9Y9Y98Z QZYQ9ZQ 9 

9 

9 

9 92 

9 9 9 0 Z 0 

BTXT.AQQ. 

• AS* 

•AAEA1K 

SAAAOAEAAJEAEA1KSAAJ 

9 Y94 

Y9 

Y9ZQ 9 

8Y9Q YQYZYQQZQ 98Y9Y 

9 

9 

9 0 

99 9 9Z ZZ 0 99 9 

BTXT*AQ8* 

• AS. 

•AAAJ90 

EA1KHAA*18EQAJEQEA1K 

9 Y9 

Y9 

Y9ZY 4 

ZQ 99Y9 9Q ZYQZZQ 9 

9 

9 

9 

0 9 ZZO 

BTXT* AJA. 

• AS. 

•AAHAAO 

1AEQAJ EQEA1KHAAA0AFH 

9 Y8Q 

Y9 

Y99Y94 

YQ ZYQZZQ 99Y9Y YQ9 

992 

9 

9 9- 

Z Z 0 9 9Z 

BTXT.AJQ. 

.AS. 

•AACAP. 

* AAACAP.AAAAAAJHDAAA 

9 Y8Z 

Y9 

Y99Y9 

YY99Y9 YYY9YY8R8YY9 

99 

9 

9 9 

99 9 999 9990999 

BTXT*AJJ* 

.AS. 

*AABDEG 

BDGA98A0AAB-BDAGBDGA 

9 Y8Y 

Y9 

Y9QR-Q 

QRZY ZZY9Z QR-8QRZY 

99 

9 

9 20 2 

ZO 9 ZO 9Z0 

BTXT.AJQ. 

• AS* 

•AAEA1K 

8ABA1AEHAJEQEA1KYABA 

9 Y8 

Y9 

Y9ZQ 9 

9Y9Y YQOZYQZZQ 99Y9Q 

99 

9 

9 0 

9 Z- Z 0 9 9 

BTXT.AKA* 

• AS* 

•AAKOBF 

BFBFKOBFBFBFBFBFBFKO 

9 Y8Q 

Y9 

Y988Z2 

88RR8800YY—QQ YY 

999 

9 

9 99 

99 

BTXT.AKH* 

* AS* 

* AAHQHH 

HQHHQY8SWSW2626K04WB 

9 Y82 

Y9 

Y9R2R0 

-00 99889988ZZ-8R 

99 

9 

9 0 

99 99 0 

BTXT*AKA* 

• AS* 

•AAAJEH 

AA00GACDBBEAEA1KSABJ 

9 Y8Y 

Y9 

Y92YQ9 

-9 9ZQQ^-9QQZQ 98Y9Y 

99 

9 

9 2 

91 29 0 99 9 

BTXT.AKH. 

* AS* 

•AA4AB4 

1AEJ EA1KSAB-+0AESEA0K 

9 Y80 

Y9 

Y98Y9 

YQY2Q 98Y9 YQ82Q Y 

99- . 

9 

9 99 

9Z 0 99 92 0 9 

BTXT.AKO. 

« A8* 

•AAOAES 

BDEAHFAHH.ADF.CAAJEA 

9 Y8 

Y9 

Y9 YQ8 

—8QQR89—0 Y9Z QY2YQQ 

99 

9 

9 92 

929 9 29 29 


•KF7A7.BA60BCEAAJEAG 4KA0C6NB0MK78103Q034 
Q2 -V 0-9QQZYQQ9 Y 9 08-28 

9 29 29 9 9 9 

.• «•* » ... * •'. * ****** • .81030035 


EDGAAAHJE«6DEA0FBAAA OAHOFMEAOFBA81O30O36 

9Y9Y9YZ QZQ Q9YY0 YR+Q8ZQ Q9Y 

999 002 999 9 29 0 2 9 

BAAA0AEA0FBAA.1AE0EA 0FBAA40AB0GA81030037 

2YYQ Y2Q Q8YY YQ-ZQ Q9YY Y8 9Y 

992 9 0 2 99 9Z 0 2 99 99 9 

EA0FBAA00AB0DAMAE.6D BCEAEA1KHAAA81030038 

2Q Q9YY4 YS 9Y9Q2 Q -90QZG 99YYY 

0 2 99- 99 9 0 29 0 99 

SAAAOAEOAJEJEAIKSAAA 0AEHAJEYH0FM8103D039 

8YYQ YQ+2YQY2Q 9BY9Y YQRZYQ9R4Q8 

999 92- 29 0 99 9 920 Z Z9 

0AEHB0GAFAADE.6DAJE8 EA1KYAAA0BE081030040 

YQ08 9Y9Y882 QZYQ9 ZQ 99Y9Q 9Q 

92 99 99 02 0 9Z2 

HAA+OAFNAJE+EA1KYAA- 0AE8AJ90EA1K81030041 

9Y9 YQ92YQ ZO 99Y9 YQ 2Y 420 9 

9 92 ZO 9 Z -0 

B0GAGAAAE.6DAJ9QEA1K 8AAAOA9HB0AA81030042 

8 9Y9Y8YZ QZY UQ 9 9Y9Q Y R8 YY 

9 9 99 0 0 9 9 09 99 

HABHE.6DAAA1BABCL0BA BDA.9BCABCC-81030043 

9Y8RZ QZQY8ZQQR8Z-Y ; ORZ QZQQRZ 

990 0 Z9 ZZ09 9 ZO Z ZZO 

9KNABD* AGA9FADAAFA9B AJFAB-FAB89D81030044 

0 YQR Y2Y -ZZY9ZQ Q ZYQYZ OY-9 Q 

920 9 9 Z 0 Z9 Z9 9 

0AFHG09FB0DMU4DDMDDD MDDMU4BFBFK081030045 

YQ92 -8 9999ZR2R0- 00 998899 

92 9 0 ~ 99 

BFTXTX3737LPTXCG37LP LPCGCGCHQY8H81030046 

QQ99889988Z288RR8800 YY00QQ99999Z 

99 99 99 00 —00 

F26K0K0BFBFSWK026BFA AAGAAABDE.6D81030047 

R8800YY00QQ YY QQY YY9Y8Y8QZ Q 

0 —00 99 229 99 99999 0 

0AESEA0F4ABA1AEJEA1K SAB.0AESEA1K81030048 

YQ82Q Q8Y9Q YQY2Q 9 8Y9 YQ8ZQ 9 

92 0 299 2 92 0 99 92 0 

4AB01AE0B0GAAAC0E.6D AJEHEAIKSABA81030049 

8Y94 YQ48 9YQY89Z Q 2YQ92Q 98Y9Y 

99 - 92 9 9999 0 Z 0 99 

EA1K8ABA1AEAB0JACHE. 6DAJEHEA1K8A81030050 

ZQ 99Y9Q YQQ8 9Y802 Q2YQ9ZG 9ZY 

0 9 9209 99 0 2 0 9 
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BTXT•ALY*.A 8 *•AACAOA EA1KBACA2AHFAHHAADFA C6EA0KBACJ0AEA0FBACA 1AESEAQKBAC.81030051 

9 Y89 Y9 Y99Y Y ZQ 9ZY9Q YRQ9-0QY9ZQ Q 8 ZQ YZY9Y YZQ Q8Y9Q YQ82Q Y8Y9 

99 9 999 0 999 9 29 0 9 9 9 9 0 2 9 2 92 0 9 9 

BTXT* AL—*• A 8 «> * AAIAEO EA1KHAC +1AEAEA0KBAC- } 1AE0EA0FBAC00AB0KAGG ADODGACDBODEB 1030052 

9 Y 8 Y9 Y9 YQ4 2Q 99Y9 YQQZQ Y8Y9 YQ42Q QZY94 Y 8 9YQQ ^-9 9ZQQQ8~98 

99 9 9 92 0 9 920 099 92 0 2 9 - 99 9Z2 92 9 9 

BTXT*ALH*•A 8 *•AAFT BO E*6DFA60AAFSGACQB0AA FPBOU/FPBCJ4F0B0J.GD 80AEGDGOCF8081030053 

9 Y 8 - Y9 Y9Q98 2 Q-Y 0-YQ9ZYQ 8-Y9 Q08-98Q08-Y8Q-8-Y Q 8 8-YZQ3Z QQ 8 - 

99 9929 0 ZZ9 Z9 9Z 9 92 9 Z9 9Z Z 99 

BTXT.AL0..A8..AAUVF4 GODOBODOFABBBOAAFPEA 1KHACA1*EHEA0FHACA1* EHEA0KHADA1.81030054 

9 Y8- Y9 Y998Q- 2 Q88-99QQ8Q8-Y9Q02Q 99Y9Y Q02Q Q2Y9Q Q02Q Y9Y9Y 

99 9 9 9Z 299 Z2999 ZO 9 2- 029 2- 0 9 9 9 

BTXT.AMH**A8* *AAEOKG FXFGAAFSGACFB0U7F-BB B0AAFPEA0FBADA1AEYAJ EHA-AEEA1K4A81030055 

9 Y89 Y9 Y9Q4 9 Q8QQ-YQ92QQY8-99Q 8Q 8-Y9Q02Q Q8Y9Q YQ ZY Q92 Y9ZQ 98Y 

99 9 9 l III 9199 l 99 9 2 0 2 9 9 9Z 2 90 99 

BTXT*AM*• *A8*•AADJOA ESF-02EA1KYADA1.FAEA OFHAD.l.EHAAOEGADHKB FBFKB0UMFFBB81030056 

9 Y8 Y9 Y99Y Y Q82 Q8ZQ 99Y9Q QQZQ Q2Y9 QO-Y 92YQ 9 QRQ88-99Q28Q 

99 9 9 9 9 2 29 0 9 2 Z9 0 2 9 2- Z 2 2 9 2 99 

BTXT•AMH..A8*.AABOAA FPEA1KBAD43AEA0FBAD- 3AEA0KBAD03AKBFBFNB0 UMFFBJDBBJDD81030057 

9 Y8R Y9 Y98-Y9 QOZQ 99Y9 YZQ QZY9 YZQ Y9Y94 Y 9QRQ88- 99Q2-YQQ-YQQ 

"0 9 99 1 0 9 9 0 Z 9 9099-9ZZ9 2 20 29 

BTXT* AHA*•A8*•AAAAFS GADMBOJM6GBOJ6GAGODS BDDBBDDD60DAKGFXFGB0 JVF4BBB0AAFP81030058 

9 Y8Q Y9 Y9-YQ9 ZYQ 8-Y8QY8-Y8Q-Z Q8 -9QQ-9QQZ QQ 9Q8Q-8- Y8Q-8Q8-Y9Q0 

"0 9 9 2 2 9 9299 9Z 2 ZO Z9 20 2 2 9 9Z 999 2 

BTXT*AMY*•A8**AAEAOF BADA1AEYB0AACAP*.AAA HAM8AAAABAP*AAA4CAP* AAAAFAP*AAAG81030059 

9 Y8 Y9 Y9ZQ Q 8Y9Y YQ 8 YY9Y9 YY9 9Y8 YYY99Y9 YYY 9Y9 YYY9 Y9 YYYB 

99 9 9 0 2 99 9Z 9 99 9 99 99 999 9 999 9 999 9 999 

BTXT.ANJ**A8*.AAFAP* AAAAVAP.AAAGVAP.AAAJ t BAP*—AAABAP.-AAABAP* AAAATAP*-AAA81030060 

9 Y8Y Y9 Y9 Y9 YYYR9Y9 YYYQ9Y9 YYYO Y9 YY9 Y9 YY9 Y9 YYY99Y9 YY9 

999 9 9 9 999 9 999 9 999 9 99 9 99 9 999 9 99 

BTXT.ANM*;* A8** AATAP* AAABTAP.AAACFAP«AAA4 AANJD. AAAANYD* AAAANA D. AAAAN8D* AA61030061 

9 Y8R Y9 Y99Y9 YYY99Y9 YYY9 Y9 YYY YY8Y8 YYYY898 Y9YY8Q 8 YYYY898 Y9 

99 9 9 9 999 9 999 9 999 99999 99999 9 9 999Z 9 99999 9 9 

BTXT*ANA**A8**AAAAAA AAAAAANADAAAAAAAAAAA AAAADAAAAAAAMAAAAAAA BAAAAAAAAAAA81030062 

9 Y8Q Y9 Y9YYYY YYYYYY8Q8YYYYYYYQYYY YYYY9YYYYYYY9YYYYYYY 9YYYYYYYYYYY 

99 9 9 9999 9999999 999999999999 9999 9999999 9999999 99999999999 

BTXT*ANH* * A8*•AAAAAA DAAAAAOHDAAAAAAADAAA AANAHAAAAAAADAAAAANH FAAAAAN-BAAB81030063 

9 Y8 Y9 Y9YYYY / 9YYYYY9-8YYYYYYY8YYY YY8Q9YYYYYYY9YYYYY82 8YYYYY8 9YY9 

99 9 9 9999 99999 999999999999 9999 9999999 999999 9999999 99 

BTXT* AQA*. A8«j • AAAAP* AAA4AAN0DAA AAAAAA AAA AAAAAA A AABA* RTN* BYPA SSED.MAKE.RE81030064 

9 Y8Y Y9 Y99Y9 YYY YY848YYVYYYY9YYY YYYYYYYYY9Y 

999 9 99 999 999-99999999 999 999999999 9 

BTXT•A08.•A8*•AAADER *NOT*READY*PUT*READE R*OFF*LINEOFFON**D0* NOPROT.PUT*A81030065 

9 Y89 Y9 Y9 o 

99 9 9 

BTXT*AGO** AS*•AABOUT .30.BLNK.CDS*IN*RDRT MAKE* RDYTEOF*ONABOUT .30*...5....81030066 

9 Y84 Y9 Y9 8 8 

99- 9 9 

BTXT*AOQ** A8*•AAREMO VE.CDS.FROM i STACKER* OF.LOADER.DEVICE*REM 0Vfi*TMEfcREMA81030067 

9 Y80 Y9 Y9 

99 9 9 
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2540 READER FUNCTION TESTS - SECTION 2 F811 


8112 TITLE 

*********************************************************************** 


* ♦ 

♦ MODIFICATIONS * 

♦ * 

♦ * 

* REVISION LEVEL 2. THIS REVISION OIFFERS FROM VERSION 1 AS FOLLOWS..* 

* 1. THIS SECTION PREVIOUSLY CONTAINED THE RIPPLE READ AND THE * 

* 360 STACKER SELECT TESTS. THIS SECTION NOW EXECUTES A * 

* CONTINUATION OF THE INTERFACE TESTING. * 

* 2. DATA AND COMMAND CHAINING TESTS ARE ATTEMPTED. * 

* 3. 1400 COMPATIBILITY PROVISIONAL FEED TESTING HAS BEEN ADDED * 

* TO THE PROGRAM. * 

* 4. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS AND * 

* COMMON MESSAGE FORMAT. * 

* * 

* E.C. PREREQUISITES * 

* MACHINE • • • NONE * 

* PROGRAM . • • NONE ♦ 

* * 

* USE DESCRIPTION F810* AT EC 130498* DATED 15 JUN 67 OR LATER. * 

* * 


XF8U2 START 4096 
001000 USING **15 

* 

* 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 
*********************************************************************** 
*********************************************************************** 

* TEST DESCRIPTION 

* 

* - 

* ************** 

* ROUTINE 01 

* ************** 

* . 

* 0010 - OPERATION ATTEMPTED 

* A TEST 1-0 IS ISSUED TO THE READER. 

* 

* EXPECTED RESPONSE 

♦ 

♦ COND. CODE 0 SHOULD BE SET ON THE TEST 1-0. 

* 

* POSSIBLE FAILURE CAUSES 

* 

* 1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

* 2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 

* ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 

* DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 

* FEATURE IS INSTALLED, THE PARTITIONING SWITCH FOR THIS 

* INTERFACE MAY BE DISABLED. 

* 3. IF CONDITION CODE 1' IS SET, THE CSW MUST BE INSPECtId TO 

* DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 

* DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 

* WAS PENDING IN THE CHANNEL. 

* 

* 0020 - OPERATION ATTEMPTED 

♦ 

♦ ^ A TEST 1-0 IS ISSUED TO THE PUNCH. 

* 

* EXPECTED RESPONSE 

♦ 

* COND. CODE 0 SHOULD BE SET ON THE TEST 1-0* 

* 
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COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL AND 
DEVICE END INTERRUPT SHOULO OCCUR* 

- OPERATION ATTEMPTED 

A READ AND FEED COMMAND IS ISSUED TO A READER WHICH HAS 
INVALID DATA IN ITS READ BUFFER* THE SYSTEM IS ENABLEO FOR 
TWO INTERRUPTS. 

EXPECTED RESPONSE 

CONDITION CODE 0 SET ON START 1-0. EXPECTED STATUS IS UNIT 
CHECK AND CHANNEL END IN THE 1ST CSW. DEVICE END RETURNING 
AFTER COMPLETION OF FEED CYCLE* 

A SENSE IS PERFORMED AND DATA CHECK IS EXPECTED. 


* 

* . 

* 0090 

♦ 

* 

* 


♦ 

♦ 

♦ 

* 0100 
* 

♦ 

♦ 

* 

* 

♦ 


************** 

ROUTINE 04 
************** 

- OPERATION ATTEMPTED 

A READ* FEED* STACKER SELECT R1 -02“ IS ISSUED. 

EXPECTED RESPONSE 

CHANNEL END SEPARATELY FROM DEVICE END. CONDITION CODE 0. 
PRIOR FEED IN TEST 0080 PUTS VALID BLANKS INTO READ BUFFER 
AND SHOULD ENABLE THIS COMMAND TO FUNCTION WITHOUT ERROR 
STATUS. 


OPERATION ATTEMPTED 
A READ NO FEED -C2- IS ISSUED. 

EXPECTED RESPONSE 

CHANNEL END AND DEVICE END TOGETHER. 1 CSW EXPECTED. 
CONDITION CODE 0. 


♦ 0110 
* 

* 

* . 

* 


* 0120 
* 


- OPERATION ATTEMPTED 

A FEED, STACKER SELECT R1 -23- IS ISSUED. 

EXPECTED RESPONSE 

CONDITION CODE 1 DUE TO THIS COMMAND BEING A COMMAND IMMEDIATE 
ON THE 2540. CHANNEL END IS SEPARATE FROM DEVICE END DUE TO 
FEED CYCLE. 

************** 

ROUTINE 05 
************** 

- OPERATION ATTEMPTED 

DIAGNOSTIC WRITE -25- IS ISSUED TO THE PUNCH TO WRITE VALID 
DATA INTO THE READ BUFFER WITHOUT GOING THROUGH THE READ 
TRANSLATE CIRCUITRY. 

EXPECTED RESPONSE 

CONDITION CODE 0. EXPECT CHANNEL AND DEVICE ENDS TOGETHER 
IN ONE CSW* 


WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER* THE 
CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 
(COLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 


♦ 0130 

♦ 


OPERATION ATTEMPTED 


FEED STACKER SELECT R1 


* . 

* 0140 

* . 

* 

* , 


* . 

♦ 0150 

* 

* . 

* 

* 

* 

* . 

* 


* 

♦ 0170 

* . 

* 


ISSUED TO READER. 


EXPECTED RESPONSE 

CONDITION CODE 1. UNIT CHECK IN STATUS DUE TO 2 FEEDS IN A 
ROW WITH NO INTERVENING READ. FIRST FEED ISSUE IN TEST 0110. 
SENSE BYTE EXPECTED SHOULD HAVE COMMAND REJECT. 

************** 

ROUTINE 06 
************** 

- OPERATION ATTEMPTED 

DIAGNOSTIC WRITE TO THE PUNCH -25- FILLS READ BUFFER WITH 
VALID DATA. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL AND DEVICE ENDS EXPECTED TOGETHER. 

WHEN ISSUING A DIAGNOSTIC WRITE COMMAND TO A 2540 READER* THE 
CCW MUST BE ADDRESSED TO THE ASSOCIATED 2540 PUNCH. 

BECAUSE THE DIAGNOSTIC WRITE COMMAND UTILIZES THE CARD IMAGE 
(COLUMN BINARY) CIRCUITRY, 160 BYTES MUST BE TRANSFERRED TO 
FILL THE 80 POSITION READ BUFFER. THE CARD IMAGE FEATURE 
DOES NOT HAVE TO BE INSTALLED FOR DIAGNOSTIC WRITE TO WORK. 


OPERATION ATTEMPTED 

READ NO FEED -C2- TO READER. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL AND DEVICE ENDS TOGETHER. 


OPERATION ATTEMPTED 

DIAGNOSTIC WRITE TO THE PUNCH -25-. PUTS INVALID DATA MODE l 
DATA INTO THE READ BUFFER. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL AND DEVICE ENDS TOGETHER. 


OPERATION ATTEMPTED 

FEED STACKER SELECT R1 -23- SHOULD FORCE BLANK DATA INTO 
THE READ BUFFER. 

EXPECTED RESPONSE 

CONDITION CODE 1 -CMD IMMEDIATE-. SEPERATE CHANNEL AND DEVICE 
ENDS. 
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♦ 

* 

* 0180 
* - 
♦ 

♦ . 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

♦ 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

♦ 0200 
♦ 

♦ 

♦ 

* • 

* 

* 


OPERATION ATTEMPTED 
READ FEED STACKER SELECT R1 -02- 
EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL AND OEVICE END STATUS SEPARATELY. 

************** 

ROUTINE 07 
************** 

0190 - OPERATION ATTEMPTED 

READ 80 CHARACTERS, FEED, STACKER SELECT R1 -02- COMMAND 
CHAINED INTO ANOTHER READ 80 CHARACTERS, FEED, STACKER SELECT 
Rl. NO SUPPRESS LENGTH INDICATOR ON -SLI FLAG. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL AND DEVICE ENOS SEPARATELY. 


* : 

♦ 

♦ 

* 

* 

* 

*' 

* 

♦ 0210 
* 

* 

* 

* 

* 

* . 

* 

♦ 

* 

* 

* 

* 

*- 

* 

* . 

* 0220 
* . 

• . 

* . 

* 

* ■ 


DATE 

EC 


05 MAY 65 
124252 


10AUG65 

125580 


15JUN67 

130408 


************** 

ROUTINE 08 
************** 

- OPERATION ATTEMPTED 

READ 79 CHARACTERS, FEED, STACKER SELECT Rl -02- COMMAND 
CHAINED INTO A READ 80 CHARACTERS, FEED, STACKER SELECT Rl. 
NO SLI FLAG ON IN COMMANDS. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL END AND WRONG LENGTH RECORD IN 1ST 
CSW. DEVICE END ALONE IN 2ND CSW. 


************** 

ROUTINE 09 
************** 

OPERATION ATTEMPTED 

READ, FEED, STACKER SELECT R1.-02- DATA CHAINED INTO 4 
DIFFERENT PLACES. EACH COMMAND REQUESTING 20 BYTES FOR TOTAL 
OF 80 BYTES IN THE CHAIN* NO SLI FLAG ON IN COMMANDS. 

EXPECTED RESPONSE 

CONDITION CODE 0* CHANNEL END IN 1ST CSW. DEVICE END IN 2ND 
CSW. 


************** 

ROUTINE 10 

************** i 

- OPERATION ATTEMPTED 

READ, FEED, STACKER SELECT Rl -02- DATA CHAINED INTO 4 
DIFFERENT PLACES. NO SLI FLAG ON. THE 1ST COMMAND REQUESTS 
40 CHARACTERS* THE FOLLOWING 3 CCWS REQUEST 20 EACH. 
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* 

* 

* 

♦ 

* 

* 

♦ 

.* 

♦ 

* 

* 

* 0230 

* 

* 

* 

* 

* 

* 

* . 

* 

* 

* 

♦ , 


DATE 
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10AUG65 
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EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL END, WRONG LENGTH RECORD, AND A 
RESIDUAL COUNT OF DECIMAL 20 IN THE 1ST CSW. DEVICE’ END ALONE 
IN THE 2ND CSW. 


************** 

ROUTINE 11 
************** 

- OPERATION ATTEMPTED 

READ, FEED, STACKER SELECT Rl -02- DATA CHAINED INTO 4 
DIFFERENT PLACES. SLI FLAG IS ON IN 3RD CCW OF CHAIN. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL END AND RESIDUAL COUNT IN 1ST CSW. 
DEVICE END ALONE IN 2ND CSW. 

************** 

ROUTINE 12 


* 

* 0240 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

❖ . 

* 

* 

* 

♦ 

* 

* 

* - 
* 

* - 
♦ 

* 

* 

* 

* . 

* 

* 

* 

* 

* 

* 

*.-. . 

* 

* 

* 

* 

♦ 

* 

♦ 

* 

* 


OPERATION ATTEMPTED 

A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 1400 
COMPATIBILITY FEED STACKER SELECT Rl WAS ISSUED TO THE READER. 

EXPECTED RESPONSE 

CONDITION CODE 0. CHANNEL END ALONE IN THE FIRST STATUS. 

DEVICE END ALONE IN THE SECOND CSW RETURNED DUE TO A CARD 
FEED CYCLE. 

A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE THE 
READER DOES NOT TRANSFER ANY DATA FOR THE STACKER COMMAND. 

IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL ERROR 
MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO 
HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE. 

POSSIBLE ERROR CAUSES 

THE DM UDT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE 
BEEN ERRONEOUSLY SET UP TO INDICATE THAT 1400 COMPATIBILITY 
HARDWARE EXISTS IN THE 2540. THE 1400 COMPATIBILITY TESTS 
WILL BE ATTEMPTED AND WILL INDICATE ERRORS. 

ALL OTHER ERRORS WILL HAVE TO BE ANALYZEO BY THE INDICATIONS 
GIVEN IN THE ERROR MESSAGE. 

1400 PROVISIONAL FEED OPERATION AND DEFINITION. 

THE FOLLOWING IS AN EXPLANATION OF 1400 PROVISIONAL FEED 
OPERATION. 

A 1400 READ NO FEED COMMAND IS ISSUED AND CHANNEL AND DEVICE 
ENDS RETURN IN THE SAME CSW BECAUSE NO FEED CYCLE IS TAKEN. 

THE PROGRAM HAS TO ISSUE A FEED AND STACKER SELECT COMMAND 
WITHIN 6 MILLISECONDS. IF IT DOES NOT, THE PROVISIONAL 
FEED CIRCUITRY AUTOMATICALLY STACKER SELECTS THE CARD. IF 
THE PROGRAM ISSUES A STACKER SELECT AFTER THE PROVISIONAL 
FEED HAS STARTED, THE DEVICE WILL ACT BUSY OR PRESENT BOTH 
BUSY AND DEVICE ENDS IN STATUS IF THE PROGRAM ACCEPTS THE 
INTERRUPT. 

A COMMAND REJECT COULD BE GENERATED ON THE DEVICE UNDER 
THE CONDITION THAT THE PROVISIONAL FEED WAS DONE AND THE 
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* READER DOES NOT TRANSFER ANY DATA FOR THE NO-OP COMMAND* 

* . 

4 POSSIBLE FAILURE CAUSES 

* . 

♦ BUSY OCCURS DUE TO PROVISIONAL FEED CYCLE OCCURRING BEFORE 

♦ THE EXPECTED 6 MILLISECOND TIME OUT. 

♦ IF THE PROGRAM HANGS IN A LOOP# A POSSIBLE CHANNEL ERROR 

4 MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW RESTART TO 

4 HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT DEVICE* 

♦ . 

4 SEE POSSIBLE ERROR CAUSES UNDER TEST NUMBER 0240* 

* 

♦ . 

4 0280 - OPERATION ATTEMPTED 
♦ 

* 

4 ISSUE SENSE COMMAND ^04^* 

* 

4 EXPECTED RESPONSE 

♦ 

4 CONDITION CODE 0* CHANNEL END AND DEVICE END TOGETHER IN 

4 STATUS. NO SENSE BITS ON* 

♦ 

* 

***************************************t****************************^* 
******************* ******************* 

* SECTION PREFACE *********44************************ SECTION PREFACE 4 
******************* ******************* 


001000 

F8112000 

SECNQ 

DC 

XL4*F8112000 f < 

PROGRAM,SECTION AND REVISION 

NOS* 

4 

001004 

00000000 

SNSW 

DC 

XL4 f 00 f 

SECTION SENSE SWITCHES 


4 

001008 

0000 


DC 

XL2* 00* 



4 

00100A 

0000 

ICM 

DC 

XL2* 00* 

INTERRUPTION CONDITION MASK 


4 

00100C 

00 

SDMF 

DC 

XL1•00* 

SECTION DM FLAGS 


4 

001Q0D 

02 

NIOU 

DC 

XL1*02* 

NUMBER OF UNIT TABLE ENTRYS 


4 

00100E 

CO 

FLAG1 

DC 

X*C0* 

EXCLUSIVE CPU 


4 

OOiOOF 

00 

FLAG2 

DC 

X»00* 

I/O INT ARE ERR# EXT INT TO PROG 

* 

001010 

0104000000 

INPSW 

DC 

X’0104000000* 

DISABLED* SPVSR STATE, NO PGM 

MASK 

4 

001015 

0017D8 


DC 

AL3CR0UT0U 

ADR OF 1ST ROUTINE PREFIX 


4 

001018 

0000000000000000 

EXOPSW 

DC 

XLe'O* 

SECTION OLD EXTERNAL PSW 


4 

001020 

0000000000000000 

SVOPSW 

DC 

XL8•00* 

CLEAR ALL OLD PSWS 


4 

001028 

0000000000000000 

PGOPSW 

DC 

XL8* 00* 

PROGRAM OLD PSW 


4 

001030 

0000000000000000 

MCOPSW 

DC 

XL 8•00* 

MACHINE CHECK OLD PSW 


4 

001030 

0000000000000000 

IOOPSW 

DC 

XL8*00* 

I/O OLD PSW 


* 

001040 

0000000000000000 

CSW 

DC 

XL8 * 00* 

CHANNEL STATUS WORD 


4 

001048 

00000000 

CAW 

DC 

XL4•00* 

CAW 


4 

00104C 

000000000000000000 


DC 

XL12*00* 

RESERVED FOR DM USE 


4 

001055 

000000 







001058 

0004000000 

EXNPSW 

DC 

X*0004000000* . 

EXTERNAL NEW PSW 


4 

00105D 

000000 

SRET 

DC 

XL3* 0* 

ADR OF EXT INTRPT ROUTINE 


4 

001060 

0000000000000000 

SVNPSW 

DC 

XL8* 00* 

SUPERVISOR NEW PSW 


4 

001068 

0000000000000000 

PGNPSW 

DC 

XL8*00* 

PROGRAM NEW PSW 


4 

001070 

0000000000000000 

MCNPSW 

DC 

XL8•00* 

MACHINE CHECK NEW PSW 


* 

001078 

01040000 

IONPSW 

DC 

XL4* 01040000* 

I/O NEW PSW 


4 

00107C 

00001212 


DC 

AL4(IRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 


* 

001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM 

USE 

* 

0010E0 

81 

UN IT 1 

DC 

X • 81 * 

UNIT TYPE - 2540 READER 



0010E1 

00 

U10P 

DC 

X*00* 

OPTIONAL FEATURES BYTE 


* 

0010E2 

8000 

U1ADDR 

DC 

X* 8000* 

FLAGS AND CHAN/UNIT ADDRESS 


* 

Q010E4 

02 

UNIT2 

DC 

X* 82* 

UNIT TYPE - 2540 PUNCH 



0010E5 

00 

U20P 

DC 

X*00* 

OPTIONAL FEATURES BYTE 



0010E6 

8000 

U2AD0R 

DC 

X* 8000* 

FLAGS AND CHAN/UNIT ADDRESS 




*****************************************************************4 4l] ' l j',| t4( 

♦ OPTIONAL FEATURE BYTE DEFINITION 

******************************************************************£**** 


4 * BIT 0 4 BIT 1 4 81T 2 4 BIT 3 4 BIT 4 4 BIT 5 4 BIT 6 4 BIT 7 4 
4 4 HEX 8 4 HEX 4 4 HEX 2 * HEX 1 4 HEX 8 4 HEX 4 4 HEX 2 4 HEX 1 * 
4 4 ASCII 4 CARD 4 4 51 4 1400 4 * * 2821 4 
4 4 4 IMAGE 4 * COL RD4 COMP 4 4 * 2 CNN 4 
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* 2540 READER SENSE BYTE 

r nr**S n*is ww *** mw *** w **^^* w *^^^** w *^ 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* * 5 ATA CHECK ~ VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

l y nSt S useD C ° MMAND SEQUENCE ~ 2 reads WITHOUT INTERVENING FEED 

t*******************************************"*^^^^ 

* 2540 READER STATUS BYTE ******* 


* BIT MEANING ~~~~ W « WOT ****** 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 

* , A 1400 COMPATIBILITY READ. 

1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 device L busy T END ~ 2 CHANNEL SWITCH feature ONLY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ* AND END OF 

WAS 0N * 

* PARAMETERS USED TO ENTE^ ********************* 

**************** THE I *"° H ANDLER ROUTINE 

* BAL Rll.ISIO I I MV tn T _ n IIAtm. rn ******** 


Rll*ISIO 
XL2* 0000* 

X* 0014* 

X *F 0 * 

X*00* 

AL2(ADR-BASE+REG) 


LINK TO 1-0 HANDLER 
CONTROL SWITCHES 

TEST NO. IN DEC EXPRESSED IN HEX 
EXPECTED COND. CODE 
EXPECTED SENSE DATA 
ADDR. OF EXPECTED CSW IF NEEDED 
***************** 


. 1-0 HANDLER CONTROL SWITCHES 

**************************** 77E PARAMETER FOLLOWING BAL 

* SWITCH DESCRIPTION * *************************** 

* o -■ OFF - ISSUE AN 1-0 COMMAND 

* , ON - DO NOT ISSUE AN 1-0 COMMAND 

* I-- 0 FF - ENABi F 


ISSUE AN 1-0 COMMAND 

DO NOT ISSUE AN 1-0 COMMAND 

ENABLE 

DO NOT ENABLE 

EXPECT NO INTERRUPT 

EXPECT AN INTERRUPT 

DO NOT EXPECT 2 INTERRUPTS 

EXPECT 2 INTERRUPTS 

EXPECT NO CSWS 

EXPECT A CSW 

DO NOT EXPECT 2 CSWS 

EXPECT 2 CSWS 

ALWAYS TRY TO ISSUE SENSE 

SENSE ON UNIT CHECK ONLY 


* SWITCH 

* 0 —i 


SWITCHES USED BY 1-0 HANDLER 


DESCRIPTION 

OFF - NO HANGUP ON INTERFACE 
ON - HANGUP OCCURRED 


05MAY65 10AUG65 15JUN67 
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0010EA 
0010EE 
0010F2 
0010F6 
0010FA 
0010FE 
001102 
001106 
00110A 
00110E 
001112 
001116 
00111A 
00111 E 
001122 
001128 
00112C 
001130 
001136 
00113A 
001140 
001146 
00114A 
001I4E 
001152 


001156 
00115 A 
0Q115E 


92 9 E 
92 C8 
92 C8 
92 9 E 
47 FO 
92 9D 
92 9D 
92 E3 
92 E3 
47 FO 
92 9C 
92 9C 
92 E2 
92 E2 
02 01 
90 AB 

90 89 
D2 00 
50 AD 
D7 07 
D7 OB 

91 80 
47 10 
91 CO 
47 80 


F 1 AC 
F 649 
F 5B0 
F 15E 
F 122 
F 1 AC 
F 15E 
F 649 
F 5B0 
F 122 
F 1 AC 
F 15E 
F 649 
F 5 BO 

F 62C B 002 
F 680 
F 570 

F 68 D F 003 
0 048 

D 040 D 040 
E 080 E 080 
B 000 
F 1E2 
F 004 
F 19A 


* l -OFF - NO CSWS STORED 

* ON - ONE CSW STORED 

* 2 * OFF - SECOND CSW NOT RECEIVED 

* ON - SECOND CSW RECEIVED 

* 3-OFF - DID NOT ENABLE 

* ON - ENABLED ONCE 

* 4 - OFF - DID NOT ENABLE TWICE * 

* ON - ENABLED TWICE 

* 5 - OFF - NO SENSE DATA RECEIVED 

* ON - SENSE DATA RECEIVED 

* 6 -• OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* ON — UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* 7 - OFF - NO ERROR DETECTED 

* ON - AN ERROR WAS DETECTED 

*****************************************^£31,^^^^^^^^^^^^^ 

* REGISTERS USED IN 1-0 HANDLER 

s*****************************************^^^^^^^^^^^^^^^ 

* REG COMMENTS 

* 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED. 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

* . 

* 11 MUST BE USED AS LINK REG TO THIS ROUTINE 

* 12 MUST CONTAIN DEVICE ADDRESS 

* 

* J**t*8*t*t*t**tS*a**t*t3**tS**t* e *t 3 ** 3 ** t ** t J* a *^^*t*t*t3*3**t3***ta*3*3* 3 **t3**t*t*t**t3*3** t J* a **t5* J *3*Ji l *i:*|*ta*J**M*3|«J**rJttJ* 
ISW DC XL2•0* a 


* * l-o HANDLER SUB-ROUTINE * 

* *’** ! ** , *‘**444***************************************#***j|t*************** 


91 80 F 004 
47 80 F 166 
9C 00 C 000 


1H10 MVI ISSUE,X»9E« SET UP FOR HALT 1-0 

MVI I OPT 14-2 5* X # C8 • MOVE -H- TO OPTION MSG. 

MVI IOADDR+12 , X *C8• 

MVS ILOOP ,X’9E * 

BC UNC*IEYEOH BR. UNCONDITIONAL 

IT 10 MVI ISSUE,X*9D* SET UP FOR TEST 1-0 

MVI ILOOP,X*9D* 

MVI I0PTI+25,X*E3* MOVE —T- TO OPTION MSG. 

MVI IOADDR+12 * X *E3 * 

BC UNC,IEYEOH BR. UNCONDITIONAL 

ISIO MVI ISSUE,X*9C« SET UP FOR START 1-0 

MVI ILOOP,X«9C« 

MVI IQPT1+25,X*E2* MOVE —S— TO OPTION MSG. 

MVI IOADDR+12,X *E2 9 

IEYEOH MVC ITSTNO+5!2),2(RllI SAVE TEST NUMBER 

STM RIO,Rll,I SLAVE SAVE REG 10 AND REG 11 

STM R8,R9 ,1 SAVE SAVE REGS 8 AND 9 

MVC RTSV(1),SECNO+3 SAVE RT NO. FOR HANGUP. 

IRETRY ST R10,HCAW(R13) STORE COMMAND ADDRESS. 

XC HC SW(8,R13),HCSW(R13) 

XC LOGOUT!12,R14),L0G0UT(R14) 

TM 0CR11),X*80* CHECK CONTROL SWITCH FOR NO 1-0 

BC ALL,INOW BR. IF ON 

TM SNSWyX’CO* 

BC NONE*JOHN 

******************************************* jMjMW##jM ^^^^^^ + 
* SENSE SNITCH LOOPS 

^e^^^^*^*^*^A^********************** *************************** ********** 
ITRY 1 TM SNSW,X v 80* CHECK SECTION SENSE SWITCH 0 

BC NONE,ITRY2 BR. IF OFF 

ILOOP SIO 0CR12I SIO, TIO, OR HIO 


BR. UNCONDITIONAL 
SET UP FOR TEST 1-0 

MOVE -T- TO OPTION MSG. 

BR. UNCONDITIONAL 
SET UP FOR START 1-0 

MOVE -S- TO OPTION MSG. 

SAVE TEST NUMBER 
SAVE REG 10 AND REG 11 
SAVE REGS 8 AND 9 
SAVE RT NO. FOR HANGUP. 
STORE COMMAND ADDRESS. 


ITRY1 

TM 

SNSW,X > 80 > 


BC 

NONE,ITRY2 

ILOOP 

SIO 

0CR121 


05MAY65 10AUG65 15JUN67 
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001162 
001166 
00116A 
001166 
001172 
001176 
00117 A 
00117E 
001182 
001186 
00118A 
001186 
001192 
001196 
00119 A 
0011 AO 
001lA4 
0011A8 
0011AC 
0011 BO 
0011B4 
001188 
0011BC 
0011C0 
0011C4 
0011C8 
OOUCC 
001IDO 
0011D6 
001IDA 
0011DE 
001162 
0011E6 
0011EA 
0011EE 
0011F2 
0011F6 
0011F A 
0011FE 
001202 
001206 
00120A 
00120E 


F 156 
F 004 
F 186 
C 000 
F 156 
F 004 
F 186 
C 000 
F 16E 
0 198 
0 003 
C 000 
F 19A 
F 18E 

F 0E8 P 0E8 
F 0E8 
F 605 
F 59F 
C 000 
F IDE 
F ICC 
F 1C4 
F 59F 
F 1E2 
F 59 F 
F 1E2 
F 59F 

F 666 D 040 
F 0E8 
F 1E2 
F 59F 
F 0E8 
B 000 
F 286 
F 0E8 
0 198 
0 003 
F 0E8 
F 68 B 
F 202 
F 68 C 
F 0E8 
F 286 


BC UNC , I TRY 1 BR. UNCONDITIONAL 

ITRY2 TM SNSW,X*40 * CHECK SECTION SENSE SWITCH 1 

BC NONE.IHI BR* IF OFF 

IHANG TIO 0(R12) TESTI-0 

BC NCCO,ITRY1 BR. IF NOT COND. CODE 0 

TM SNSW,X*40* CHECK SECTION SENSE SWITCH 1 

BC NONE,IHI BR. IF OFF 

SIO 0CR12) START 1-0 

BC UNC,IHANG BR. UNCONDITIONAL 

IHI L R9»WTIR14) PICK UP DM WAIT FACTOR. 

SRL R9,3 CUT IT DOWN TO 1.25 SECS. 

GREG TIO 0(R12) TEST 1-0 TO DEVICE. 

BC CCO,JOHN BR IF AVAILABLE. 

BCT R9.GREG LOOP UNTIL TIME OUT. 

JOHN XC ISWI 2),ISW ZERO THE 1-0 HANDLER SWITCHES. 

01 ISW,X'80 V TURN ON THE HANG SWITCH. 

MVI IACSNS+StC^X 1 MOVE AN X INTO ACTUAL SENSE BYTE. 

MVI IACTCC+5,C *X* MOVE IN A -X- 

ISSUE SIO 0(R12) 1-0 COMMAND- SIO, TIO, OR HIO 

BC CCO,IZERO BR. IF COND. CODE 0 

BC CCl,IONE BR. IF COND. CODE 1 

BC CC2,1 TWO BR. IF COND. CODE 2 

MVI IACTCC*5,X*F3® INDICATE COND. CODE 3 

BC UNCtlNOW BR. UNCONDITIONAL 

ITWO MVI IACTCC+5,X , F2 * INDICATE COND. CODE 2 

BC UNC,INOW BR. UNCONDITIONAL 

IONE MVI IACTCC+5,X*F1 f INDICATE COND. CODE 1 

MVC ICSW1(8),HC$W(R13) SAVECSW 

01 ISW,X *40 * INDICATE 1 CSW 

. BC UNC,INOW BR. UNCONDITIONAL 

IZERO MVI IACTCC+5,X«F0* INDICATE COND. CODE 0 

INOW NI ISW,X*7F * TURN OFF HANG UP SWITCH 

TM 0(Rll) ,X # 40* CHECK CONTROL SWITCH FOR NO ENABLE 

BC ALL,I SEN BR. IF ON 

01 ISW.XUO* INDICATE ENABLED ONCE 

IWAIT L R9,WT(R14) LOAD DM WAIT FACTOR 

SRL R9,3 ADJUST 

01 ISW,X*80* TURN ON HANG UP SW 

SSM MSK1 ENABLE 

BCT R9,* WAIT 

SSM MSK2 DISABLE 

NI ISW,X*7F* TURN OFF HANG SW 

BC UNC,I SEN BR. UNCONDITIONAL 

**+*++*+**++********+++****+**+++++++*+***+*++***++++++**+++++++++*++++ 
♦ ALL I-Q INTERRUPTS RETURN HERE 


001212 

49 CO 

F 

03A 



IRETRN 

CH 

R12,IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

001216 

47 60 

F 

234 




BC 

UNEQ,IUIO 

BR. IF UNEQUAL j 

00121A 

94 7F 

F 

0E8 




NI 

ISW,X *7F• 

RESET HANG UP SW 

0012 IE 

91 40 

F 

0E8 




TM 

ISW,X*40* 


001222 

47 10 

F 

264 




BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

001226 

D2 07 

F 

666 

.F 

040 


MVC 

ICSW1(8),HCSW(R13) 

SAVE CSW 1 

00122C 

96 40 

F 

0E8 




01 

ISW,X*40* 

INDICATE 1 CSW STORED 

001230 

47 FO 

F 

26E 




BC 

UNC,INT3 

BR. UNCONDITIONAL 

001234 

D2 07 

F 

578 

F 

040 

IUIO 

MVC 

WORK(8),HCSW(R15) 


00123A 

OA DO 






SVC 

X *DD • 

CONVERT ADDRESS 

00123C 

0002 






DC 

AL2(2) 

2 BYTES OF 1-0 OLD PSW. 

00123E 

003 A 






DC 

AL2II OOPSW+2—SECNO) 

FROM HERE. 

001240 

069 F 






DC 

AL2(IUNEX+17-SECN0) 

TO HERE 

001242 

OA DO 






SVC 

X*DO* 

PRINT UNEXPECTED INTERRUPT DEVICE 1 

001244 

64 






DC 

X f 64* 

ADDRESS i 

001245 

15 






DC 

X* 15* 

i 

001246 

F68E 






DC 

AL2CIUNEX-SECNO+REG) 

[ 

001248 

02 02 

F 

5D6 

F 

5CF 


MVC 

IBLAH+1C3) tICSW 

MOVE -CSW- TO MESSAGE 

00124E 

92 1A 

F 

421 




MVI 

ICNT,X*IA # 

ADJUST COUNT 

001252 

D2 02 

F 

SEC 

F 

5EF 


MVC 

IBLAH+23C3),IACT 

MOVE -ACT- TO MESSAGE 

001258 

45 90 

F 

40A 




BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

00125C 

96 02 

F 

0E8 




01 

ISWtX'02" 

INDICATE UIO 

DATE 

05MAY65 


10AUG65 

15JUN67 
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001260 

47 

FO 

F 

4E4 




BC 

UNC,ILOGED 

BR. UNCONDITIONAL 

001264 

D 2 

07 

F 

66 E 

F 

040 

ISV2 

MVC 

ICSW2(8),HCSWIR15) 

SAVE CSW 2 

00126A 

96 

20 

F 

0E8 




01 

ISW,X , 20 t 

INDICATE 2 CSWS STORED 

0012 6 E 

91 

10 

B 

000 



INT3 

TM 

0(Rll),X*10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

001272 

47 

80 

F 

286 




BC 

NONE,ISEN 

BR. IF NOT 

001276 

91 

08 

F 

0E8 




TM 

ISW,X*08* 


00127 A 

47 

10 

F 

286 




BC 

ALL,I SEN 

BR. IF ALREADY ENABLED TWICE 

00127E 

96 

08 

F 

0E8 




01 

I SW,X * 08 * 

INDICATE ENABLED TWICE 

001282 

47 

FO 

F 

1F2 




BC 

UNC,IWAIT 


001286 

91 

02 

B 

000 



ISEN 

TM 

0(R11),X'02* * 

CHECK CONTROL SWITCH FOR SNS ON UC 

00128A 

47 

80 

F 

2AE 




BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

00128E 

91 

40 

F 

0E8 




TM 

ISW,X ®40• 

SEE IF 1ST CSW IN. 

001292 

47 

80 

F 

304 




BC 

NONE,ISSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

001296 

91 

02 

F 

66 A 




TM 

ICSW1+4,X*02» 

CHECK FOR UNIT CHECK 

00129A 

47 

10 

F 

2AE 




BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

00129E 

91 

20 

F 

0E8 




TM 

ISW*X*20 f 

CHECK FOR SECOND CSW 

0012A2 

47 

80 

F 

304 




BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

0012A6 

91 

02 

F 

672 




TM 

ICSW2+4,X*02* 

CHECK FOR UNIT CHECK 

0012AA 

47 

80 

F 

304 




BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

0012AE 

58 

9E 

0 

198 



IDOSNS 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR 

0012B2 

88 

90 

0 

004 




SRL 

R9»4 

ADJUST 

0012B6 

41 

80 

F 

678 




LA 

R 8 ,I SENSE 

LOAD SENSE COMMAND ADDRESS 

0012BA 

50 

8 D 

0 

048 




ST 

R8,HCAW(R13I 

STORE IN CAW 

0012BE 

9C 

00 

C 

000 




SIO 

0 (R 12 ) 

ISSUE SENSE 

0012C2 

47 

70 

F 

352 




BC 

NCCO,INDER 

BR. IF NOT ACCEPTED 

0012C6 

9D 

00 

C 

000 



ITIOLP 

TIO 

0CR12) 

TEST 1-0 

0012CA 

47 

40 

F 

2EE 




BC 

CCl,ILOKE 

BR. IF CSW STORED 

0012CE 

46 

90 

F 

2C6 



IT IC 

BCT 

R9,ITIOLP 


0012D2 

47 

FO 

F 

304 




BC 

UNC,IBSN 

BR. UNCONDITIONAL 

0012D6 

91 

40 

F 

0E8 



IN0EX1 

TM 

ISW,X»40* 


0012DA 

47 

10 

F 

352 




BC 

ALL,INDER 

BR. IF CSW STORED 

0012DE 

47 

FO 

F 

356 




BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012E2 

91 

20 

F 

0E8 



IN0EX2 

TM 

ISW,X , 20 I 


0012 E 6 

47 

10 

F 

352 




BC 

ALL,INDER 

BR. IF CSW 2 STORED 

0012EA 

47 

FO 

F 

356 




BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012 E 6 

95 

OC 

D 

044 



ILOKE 

CLI 

HCSW+4CR13),X*0C* - 

CHECK FOR CE DE ONLY 

0012F2 

47 

70 

F 

2CE 




BC 

NCCO,I TIC 

BR. IF NOT 

0012F6 

96 

04 

F 

0E8 




01 

ISW,X # 04 f 

INDICATE SENSE DATA RECIEVEO 

0012 FA 

D5 

00 

F 

605 

B 

005 


CLC 

IACSNS+5(1),5(Rll) 

COMPARE FOR EXPECTED SENSE 

001300 

47 

60 

F 

352 




BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001304 

D5 

00 

F 

59F 

B 

004 

1BSN 

CLC 

IACTCC+5(1),4(R11) 

COMPARE FOR EXPECTED COND. CODE 

00130A 

47 

60 

F 

352 




BC 

UNEQ,INDER 

BR. IF UNEQUAL 

00130E 

91 

08 

B 

000 




TM 

0(R11),X*08 C 


001312 

47 

80 

F 

2 D 6 




BC 

NONE,INOEXI 

BR. IF NO CSW EXPECTED 

001316 

91 

40 

F 

0E8 




TM 

ISW,X*40* 


00131A 

47 

80 

F 

352 




BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

0013IE 

48 

BB 

0 

006 




LH 

R8,6(R11) 

LOAD CSW ADDR 

001322 

40 

80 

F 

32 A 




STH 

R 8 , ICCSW1+4 

STORE IN COMPARE INSTR. 

001326 

D5 

07 

F 

666 

F 

666 

ICCSW1 

CLC 

ICSW1( 8 ),ICSW1 

COMPARE FOR EXPECTED CSW 

00132C 

47 

60 

F 

352 




BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001330 

91 

04 

B 

000 




TM 

0(R11),X'04* 


001334 

47 

80 

F 

2E2 




BC 

NONE,IN0EX2 

BR. IF NO CSW 2 EXPECTED 

001338 

91 

20 

F 

0E8 




TM 

ISW,X*20" 


00133C 

47 

80 

F 

352 




BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

001340 

41 

88 

0 

008 




LA 

R 8 , 8 (R 8 ) 

UPDATE TO SECOND CSW 

001344 

40 

80 

F 

34C 




STH 

R 8 ,1CCSW2+4 


001348 

D5 

07 

F 

66 E 

F 

66 E 

ICCSW2 

CLC 

ICSW2( 8 ),ICSW2 

COMPARE FOR EXPECTEO CSW 2 

00134E 

47 

80 

F 

356 




BC 

EQ,IDUNCK 

BR. IF EQUAL 

001352 

96 

01 

F 

0E8 



INDER 

01 

ISW,X*01» 

INDICATE AN ERROR 

001356 

92 

64 

F 

396 



IDUNCK 

MVI 

IFLAG1,X'64» 

SET UP FOR ERROR PRINTOUT 

00135A 

92 

CO 

F 

522 




MVI 

IFLAG2,X*CO* 


00135E 

91 

01 

F 

0E8 




TM 

ISW,X*01* 

CHECK FOR A DETECTED ERROR 

001362 

47 

10 

F 

376 




BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

001366 

91 

01 

F 

004 




TM 

SNSW,X'Ol• 

CHECK SECTION SENSE SWITCH 7 

00136A 

47 

80 

F 

53E 




BC 

NONE,ILEAVE 

BR. IF OFF 

00136E 

92 

24 

F 

396 




MVI 

IFLAG1,X*24* 

SET UP FOR CORRECT PRINTOUT 

001372 

92 

80 

F 

522 




MVI 

IFLAG2,X , 80* 


001376 

95 

40 

F 

605 



IOUTIT 

CLI 

IACSNS+5,X # 40* 

SEE IF INTERVENTION REQUIRED. 


DATE 

05MAY65 

10AUG65 

15JUN67 

ID 

F811-2 

EC 

124252 

125580 

130498 

PAGE 

6A 
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00137A 

00137E 

001382 

001386 

00138C 

00138E 

001390 

001392 

001394 

001396 

001397 

001398 

00139A 

00139E 

0013A0 

0013A4 

0013A6 

0013A8 

0013AA 

0013AC 

0013AE 

0013AF 

0013BO 

0013 B2 

0013B6 

0013BA 

0013BE 

0013C0 

0013C2 

0013C4 . 

0013C6 

0013C8 

0013C9 

0013 C A 

0013CC 

001300 

0013D4 

0013D8 

0013DA 

0013DC 

0013DE 

0013E0 

0013E2 

0013E3 

0013E4 : 

0O13E6 

0013EC 

0013F0 

0013F6 

0013FA 

0013FE 

001402 

001406 

00140A 

00140C 

00140E 

001410 

001412 

001418 

0014IE 

001420 

001421 

001422 

001424 

001426 

00142C 

00142E 

00142F 


47 80 
91 01 
47 10 
02 01 
OA DO 
0002 
062C 
062 C 
OA DO 
64 
09 

F627 
41 80 
IB B8 
50 BO 
OA OD 
0003 
05B9 
05B8 
OA 00 
AO 
10 

F5B3 
41 BB 

91 80 
47 10 
OA DD 
0003 
0688 
05A9 
OA DO 
AO 

OF 
F5A4 
95 9C 
47 60 
50 AO 
OA OD 
0003 
05C9 
05C8 
OA DO 
AO 
OB 
F5C3 
D2 02 

92 16 


F 554 
F 66A 
F 554 

F 62 C B 002 


F 5D6 F 5D2 
F 421 

F 578 A 000 
F 40 A 
A 004 
F 426 
0 008 
F 3F0 


F 5DA F 578 
F 5E3 F 580 


F 595 B 004 


BC 

TM 

BC 

MVC 

SVC 

DC 

DC 

DC 

svr 

IFLAG1 DC 
DC 
DC 
LA 
SR 
ST 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
LA 
TM 
BC 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
CLI 
BC 
ST 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
MVC 
M VI 

1CW0UT MVC 
BAL 
TM 
BC 
LA 
BC 

ICOUT SVC 
DC 
DC 
DC 
MVC 
MVC 
SVC 
DC 

ICNT DC 
DC 
BCR 

ICCOUT MVC 


EQyRDYM 

ICSW1+4,X*01» 

ALLtROYM 

ITSTNO+512) ,2(Rll) 
X*DD* 

AL2C2I 

AL2UTSTN0+5-SECN0) 
AL2<ITSTN0+5-SECN0) 
X*DO* 

X • 64* 

X*09* 

AL2(ITSTNO-SECNO+REG) 

R8»4 

R11,R8 

RlitILINK+5 

X*DD« 

AL2(3) 

AL2ULINK+6-SECN0) 
AL2(ILINK+5—SECNO) 
X*DO f 
X«AO» 

X»10* 

AL2(ILINK-SECNO+REG) 

R11«4(R1U 

0(Rll)tX*80 9 

ALL«IOCSW 

X *DD 1 

AL2(3) 

AL2(IOADR-SECNO) 

AL2(IQADDR+5-SECN0) 
X*D0* 

X*A0' 

X * OF • 

AL2CIOADDR-SECNO+REG) 

ISSUE,X'9C f 

UNEQ,ICCOUT 

RIO,ICAW+5 

X'DD 1 

AL2(3) 

AL2(ICAW+6—SECNO) 

AL2(ICAW+5—SECNO) 
X«DO* 

X* AO* 

X # 0B* 

AL2( ICAW-SECNO+REG) 
IBLAH+1(3),ICCW 
ICNT,X*16* 

WORK!8),0(R10) 

R9,ICOUT 
4(RIO),X*CO # 

NONE,ICCOUT 
R10,8(R10) 

UNC,ICWQUT 
X*DD* 

AL2 (8) 

AL2(WORK—SECNO) 

AL2(WORK—SECN01 
IBLAH+5(8),WORK 
IBLAH+14C8),W0RK+8 
X*DO # 

X , AO* 

X*1A V 

AL2(IBLAH-SECNO+REG) 
UNC,R9 

IEXPCC+5I1),4(R11) 
X*DO* 

X # AO # 

X f OA f 


BR IF YES. 

SEE IF UNIT EXCEPTION. 

BR IF YES. 

MOVE TEST NUMBER TO PRINT 
CONVERT TEST NUMBER 


PRINT TEST NUMBER 


ADJUST LINK ADDRESS FOR PRINTOUT 


CONVERT LINK ADDRESS 


PRINT LINK ADDRESS 


BR. IF NO 1-0 COMMAND ISSUED 
CONVERT 1-0 ADDRESS 


PRINT 1-0 ADDRESS 


COMPARE FOR SIO COMMAND 
BR. IF NOT 
STORE CCW ADDR. 

CONVERT CAW 


PRINT CAW 


MOVE -CCW- TO MESSAGE 

ADJUST COUNT 

MOVE CCW TO WORK AREA 

BR. TO OUTPUT CCW 

CHECK FOR ANY CHAIN FLAGS 

BR. IF NONE 

UPDATE TO NEXT CCW 

BR. UNCONDITIONAL 

CONVERT 


MOVE TO MESSAGE 


RETURN VIA REG 9 

MOVE EXP CC TO MESSAGE 

PRINT EXPECTED CGND. CODE 


05MAY65 10AUG65 15JUN67 

124252 125580 130498 
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001430 

F590 






DC 

A L 2(IE XPCC-SEC NO+REG) 


001432 

OA 

DO 






SVC 

X'DO* 

PRINT ACTUAL COND. CODE 

001434 

AO 







DC 

X'AO' 


001435 

OA 







DC 

X • OA * 


001436 

F59 A 






DC 

AL2tIACTCC-SECNO+REG) 


001438 

D2 

02 

F 

5D6 

F 

5CF 

IOCSW 

MVC 

IBLAH+1(3),IC SW 

MOVE -CSW- TO MESSAGE 

00143E 

92 

1A 

F 

421 




MVI 

ICNT,X*1A• 

ADJUST COUNT' 

001442 

91 

08 

B 

000 




TM 

0(Rll),X*08* 


001446 

47 

80 

F 

46 A 




BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

00144A 

D2 

02 

F 

5EC 

F 

5F2 


MVC 

IBLAH+23C 3),IEXP 

MOVE -EXP- TO MESSAGE 

001450 

48 

8 B 

0 

006 




LH 

R8,6(R11) 


001454 

40 

80 

F 

464 




STH 

R 8,ICHNG1+4 


001458 

41 

88 

0 

008 




LA 

R8,8(R8) 


00145C 

40 

80 

F 

494 




STH 

R8,ICHNG2+4 


001460 

D2 

07 

F 

578 

F 

578 

ICHNG1 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

001466 

45 

90 

F 

40 A 




BAL 

R 9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

00146A 

91 

40 

F 

0E8 



1DIDI 

TM 

ISW,X * 40 * 


00146E 

47 

80 

F 

482 




BC 

NONE,IMORST 

BR. IF NO CSW STORED 

001472 

D2 

02 

F 

5EC 

F 

5EF 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

001478 

D2 

07 

F 

578 

F 

666 


MVC 

WORK!8)tICSWl 

MOVE ACTUAL CSW TO WORK AREA 

00147E 

45 

90 

F 

40 A 




BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

001482 

91 

04 

B 

000 



IMORST 

TM 

0(R11),X*04* 


001486 

47 

80 

F 

49 A 




BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

00148 A 

D2 

02 

F 

SEC 

F 

5F2 


MVC 

IBLAH+2313)•IEXP 

MOVE -EXP- TO MESSAGE 

001490 : 

D2 

07 

F 

578 

F 

578 

ICHNG2 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

001496 

45 

90 

F 

40 A 




BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

00149A 

91 

20 

F 

0E8 



IDID 

TM 

ISW,X* 20* 


00149E 

47 

80 

F 

4B2 




BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

0014A2 

02 

02 

F 

SEC 

F 

5EF 


MVC 

IBLAH+23133,IACT 

MOVE -ACT- TO MESSAGE 

0014A8 

D2 

07 

F 

578 

F 

66E 


MVC 

WORK(8),ICSW2 

MOVE CSW TO WORK AREA 

0014AE 

45 

90 

F 

40A 




BAL 

R9,ICOUT 


0014B2 

D2 

00 

F 

5FA 

B 

O 

© 

IPAS 

MVC 

IEXSNS+5m„5(Rll) 

MOVE EXP SENSE TO MESSAGE 

0014B8 

91 

04 

F 

0E8 




TM 

ISW,X *04 * 


0014BC 

47 

80 

F 

4 DC 




BC 

NONE,IPASS 

BR. IF NO SENSE DATA REC1EVED 

0014C0 

OA 

DD 






SVC 

X • DD* 

CONVERT EXPECTED SENSE 

0014C2 

0001 






DC 

AL2C1) 


0014C4 

05FA 






DC 

AL2(IEXSNS+5-SECN0) 


0014C6 

05F A 






DC 

AL2(IEXSNS+5-SECNQ) 


0014C8 

OA 

DO 






SVC 

X'DO' 

PRINT EXPECTED SENSE 

0014CA 

AO 







DC 

X •AO* 


0014CB 

OB 







DC 

X • OB • 


0014CC 

F5F5 






DC 

AL2CIEXSNS-SECNO+REG) 


0014CE 

OA 

DD 






SVC 

X*DD* 


0014D0 . 

0001 






DC 

AL2C1) 


0014D2 

0605 






DC 

AL2UACSNS+5-SECN0) 


0014D4 

0605 






DC 

AL2UACSNS+5-SECN0) 


0014D6 

OA 

DO 






SVC 

X'DO* 

PRINT ACTUAL SENSE DATA 

0014D8 

AO 







DC 

X * A0 # 


0014D9 

OB 







DC 

X*OB* 


0014DA 

F600 






DC 

AL2(IACSNS—SECNO+REG) 


0014DC 

95 

30 

E 

181 



IPASS 

CLI 

SYSM0D(R14),X«30» 

CHECK FOR MODEL 30 

0014E0 

47 

60 

F 

510 




BC 

UNEQ,ICUIO 

BR IF NOT. 

0014E4 

D2 

OB 

F 

578 

E 

080 

ILOGED 

MVC 

WORM 12) tLOGOUTCR14I 

MOVE LOG OUT TO WORK AREA 

0014EA 

OA 

DD 






SVC 

X’DD* 

CONVERT 

0014EC 

000 C 






DC 

AL2I12) 


0014EE 

0578 






DC 

AL2tWORK-SECNO) 


0014F0 

0578 






DC 

AL2(WORK-SECNO) 


0014F2 

D2 

01 

F 

610 

F 

578 


MVC 

IQL0G+5(2),WORK 

MOVE LOG OUT TO MESSAGE 

0014F8 

02 

05 

F 

613 

F 

57 A 


MVC 

I0L0G+8C 6),WORK+2 


0014FE 

D2 

05 

F 

61A 

F 

582 


MVC 

I0L0G+15(6)tW0RK+10 


001504 

D2 

05 

F 

621 

F 

58A 


MVC 

I0L0G+22C6)tWORK+18 


00150A 

OA 

DO 






SVC 

X*DO* 

PRINT LOG OUT 

00150C 

AO 







DC 

X i AO« 


00150D 

1C 







DC 

X*1C* 


00150E 

F60B 






DC 

AL2(IOLOG-SECNO+REG) 


001510 

91 

02 

F 

0E8 



ICUIO 

TM 

ISW,X*02* 

SEE IF UIO. 

001514 : 

47 

80 

F 

520 




BC 

NONE*IOPOUT 

BR. IF NOT UIO 

001518 

94 

FD 

F 

0E8 




NI 

ISWtX*FD* , 

RESET UIO SWITCH 


DATE 05MAY65 10AUG65 15JUN67 
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' 


| 001609 

C3E3 




1 

00160B 

40D3D6C740E7E740E7 

IOLOG 

DC 

C* LOG XX XXXXXX X® 

• 

001614 

E7E7E7E7E740E7 





00161B 

E7E7 E7E7E740E7E7E7 


DC 

C'XXXXX XXXXXX® 


001624 

E7E7E7 





001627 

40E3E2E340E7E7E7E7 

ITSTNO 

DC 

C* TST XXXX® 


001630 

40E2C5E340E2E240FO 

I0PT1 

DC 

C® SET SS 0 ON FOR* 


001639 

4006D540C6D6D9 





001640 

40D3D6D6D74OD6D54O 


DC 

C* LOOP ON XIO, SS® 


001649 

E7C9D66B40E2E2 





001650 

40F140D6D540C6D6D9 


DC * 

C® 1 ON FOR TIO SI®. 


001659 

40E3C9D640E2C9 




i 

001660 

D640D3D6D6D7 


DC 

C*0 LOOP® 


001666 

0000000000000000 

ICSW1 

DC 

XL8® 0® 


00166E 

0000000000000000 

ICSW2 

DC 

XL8® 0* 


001678 

04 001605 0000 0001 

ISENSE 

CCW 

X®04® tIACSNS+5,X®00® 

tl i 

001680 

0000000000000000 

ISLAVE 

DC 

XL8®0® 

REGISTER SAVE AREA 

001688 

0011AC 

IOADR 

DC 

AL3JISSUE) 


00168B 

FE 

MSK1 

DC 

X®FE® 

! 

00168C 

01 

MSK2 

DC 

X®01® 


001680 

00 

RTSV 

DC 

X®00® 

SAVE RT NO. FOR HANGUP. 

00168E 

40E4C9D640C6D9D6D4 

IUNEX 

DC 

C® UtO FROM DEVICE® 


001697 

40C4C5E5C9C3C5 




| 

00169E 

40E7E7E7E7 


DC 

C® XXXX® 


0016A3 

40D9E3D540C2E8D7CI 

BYPASS 

DC 

C® RTN BYPASSED* 


0016AC 

E2E2C5C4 





0016BO 

40D4C1D2C540C4C5E5 

MDR 

DC 

C® MAKE DEVICE ROY® 


0016B9 

C9C3C540D9C4E8 







*********************************************************************** 



* . 


INITIALIZE ROUTINE ! 



*********************************************************************** 

0016C0 

IB DD 

IN IT 

SR 

R13,R13 

ZERO REG 13 

0016 C 2 

91 40 E 196 


TM 

406(R14),X®40® 

CHECK FOR FORCED PROBLEM STATE 

0016C6 

47 80 F 6CC 


BC 

NONE,NITWIT 

BR. IF NOT 

0016CA 

18 DF 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

0016CC 

58 CO F 0E4 

NITWIT 

L 

R12 »UNIT2 

PICK UP THE PUNCH UNIT TABLE. 

001600 

54 CO F 718 


N 

R12,M0D50 

SAVE ONLY THE PUNCH ADDR. 

001604 

50 CO F B9C 


ST 

R12,PCH 

SAVE IT 

0016D8 

58 CO F OEO 


L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

0016DC 

54 CO F 718 


N 

R12,MOD50 

SAVE ONLY THE READER ADDR. 

0016E0 

50 CO F B98 


ST 

R12,RDR 

SAVE IT 

0016E4 

91 80 F 0E8 

BLOOP 

TM 

1SW,X * 80 * 

CHECK FOR HANG UP 

0016E8 

47 10 F 6FC 


BC 

ALL,HANGUP 

BR. IF DETECTED 

0016EC 

92 40 F 71C 


MVI 

RDAR,C® • 

CLEAR WORK AREA. 

0016F0 

D2 9E F 71D F 71C 


MVC 

RDAR+lf159),RDAR 


0016F6 

41 AO F B20 


LA 

RIO,NOOP 

PUT ADDR OF NOOP INTO 10. 

0016FA 

07 F4 


BCR 

UNC,R4 * 

RETURN VIA REG 4 

0016FC 

02 00 F 003 F 68D 

HANGUP 

MVC 

SECN0+3I1),RTSV 

RESTORE RT NO. 

001702 

OA DO 


SVC 

X ®D0® 

PRINT 

001704 

64 


DC 

X® 64* 

“PREVIOUS HANGUP DETECTED- 

001705 

1A 


DC 

X® 1A® 


001706 

F7BC 


DC 

AL2(HUNG-SECNO+REG) 


001708 

96 01 F 0E8 


01 

ISW,X®01® 

TURN ON ERROR SWITCH. 

00170C 

45 50 F 2AE 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

001710 

92 00 F 0E8 


MVI 

ISW,X®00® 

RESET HANGUP SWITCH 

001714 

47 FO F 6E4 


BC 

UNC,BLOOP 


001718 



CNOP 

0,4 


001718 

00003FFF 

M0D50 

DC 

X* 00003FFF * 


00171C 


RDAR 

DS 

160C 


0017BC 

40D7D9C5E5C9D6E4E2 

HUNG 

DC 

C® PREVIOUS HANG U® 


0017C5 

40C8C1D5C740E4 





0017CC 

0740C4C5E3C5C3E3C5 


DC 

C®P DETECTED® 


0017D5 

C4 





0017D6 



CNOP 

0,4 


0017D6 

07 00 

BCR 

0,0 



j^**************^***************************************************** 

* ROUTINE 01 - ISSUE A TEST 1-0 TO THE READER AND THE PUNCH. THE 

* EXPECTED CONDITION CODE FROM EACH DEVICE SHOULD BE 



DATE 

EC 


05MAY65 10AUG65 15JUN67 

124252 125580 130498 


ID F8U-2 
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0017D8 
00I7D9 
0017 DC 
0017E0 
0017E4 
0017E6 
0017E8 
0017EA 
0017EE 
0017F2 
0017F4 
00I7F6 
0017F8 
0017FA 
00I7FA 


0017FC 
0017FD 
001800 
001804 
001808 
00180C 
001810 
001812 
001814 
001816 
001818 
00181C 
00181 E 
001822 
001826 
00182A 
00182C 
00182E 
001830 
001832 
001836 
00183A 
00183E 
001842 
001846 
001848 
00184A 
00184C 
00184E 
001852 
001854 ! 
001858 


01 

0007FC 
45 40 F 6 CO 
45 BO F OFE 
0000 
0010 
FOOO 

58 CO F B9C 
45 BO F OFE 
0000 


* ZERO. 

* IF CONDITION CODE 1 IS RETURNED,THE DEVICE IS EITHER 

* N0T REA &Y OR SOME STATUS WAS STILL PENDING IN THE 

* DEVICE FROM THE LAST START 1-0 EXECUTED ON THE DEVICE. 

* no C0NDITI0N CODE 2 IS RETURNED, CHANNEL END FROM THE 

* PREVIOUS START 1-0 IS STILL PENDING. 

T IF CONDITION CODE 3 IS RETURNED, THE ADDRESS OF THE 

* DEVICE THAT THE TEST 1-0 WAS ISSUED TO MAY BE WRONG 

0R THE CONTROL UN,T could 

ROUTOl OC X*01* omiTTMc mhubed ******** 


ROUTOl DC 
DC 
BAL 

START BAL 


X»01* 

AL3(R0UT02-SECNO) 
R4,INIT 
R11,ITIO 
X*0000* 

X*0010* 

X*F000* 

R12,PCH 
R11,ITIO 
X*0000* 

X* 0020* 

X•FOOO* 

X *D 6 * 

0,4 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
BR TO ISSUE TEST 1-0. 
CTRL SWITCHES 
TEST NUMB 

EXP COND. CODE AND SENSE 
PICK UP THE PUNCH ADDR. 
BR TO ISSUE TEST 1-0 
CTRL SWITCHES. 

TEST NUMB 
EXP COND. CODE AND SENSE 
ROUTINE EXIT 


BCR 0,0 

* ROUTINE 02 - ISSUE A READ AND STACKER SELECT*rI*T0*THE*rEADEr!******* 

* ALLOW ONLY CHANNEL END TO BE ACCEPTED. ISSUE A 

* ?nTO^THe‘RE AO‘BUFFER—”^ ^ -* TT£ " PTS T ° 

* ACCEPT^DEvJcE^END^FROH^THE S^DeT" ■""* 

* RE-ISSUE^DIA6N0STIC WRITE AND CHECK TO SEE IF COMMAND 


02 

00086C 
45 40 F 
58 CO F 
41 AO F 
45 BO F 
2A00 
0030 
FOOO 
FBAO 
45 40 F 
0001 
41 AO F 
58 CO F 

45 BO F 
4800 
0040 
F180 
FBBO 

58 9E 0 
88 90 0 

46 90 F i 
58 CO F 
45 BO F I 
4800 ; 
0050 
F100 
FBB 8 

45 40 F i 
0001 

58 CO FI 
41 AOF I 


R0UT02 DC 
DC 
BAL 
L 

LA 

BAL 

DC 

DC 

DC 

DC 

BAL 

DC 

LA 

L 

BAL 

DC 

DC 

DC 

DC 

L 

SRL 

BCT 

L 

BAL 

DC 

DC 

DC 

DC 

BAL 

DC 

L 

LA 


X* 02* 

AL3(R0UT03—SECNO) 
R4,INIT 
R12,RDR 
R10,RD1 
R11,ISIO 
X•2A00* 

X•0030* 

X*FOOO* 

AL2(EXP1—SECNO+REGt 

R4,DWBF 

X'OOOl* 

R10,DGWR 
R12 ,PCH 
Rll,ISIO 
X•4800* 

X* 0040* 

X*F180* 

AL2(EXP2—SECNO+REGJ 
R9,WTCR14) 

R9,2 

R9,* 

R12,RDR 
Rll,ITIO 
X*4800 t 
X* 0050* 

X*F100* 

AL 21E XP3—SECN0+REG1 

R4,DWBF 

X*0001* 

R12,PCH 

RIOvDGWR 


ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

PUT READER ADDR INTO REG 12. 

PUT RD FD STK SEL R1 ADDR INTO 10. 

BR TO ISSUE START 1-0. 

CTRL SWITCHES 

TEST NUMBER 
EXP COND. CODE AND SENSE. 

EXP CSW ADDRESS 

BR TO GENERATE DIAGNOSTIC WRITE DATA 
DATA 

PUT ADDR. OF DIAG WRITE INTO 10. 

PUT ADDR OF PCH INTO 12. 

BR TO ISSUE START I~0. 

CTRL SWITCHES 

test number 

EXP COND. CODE AND SENSE 
EXP CSW ADDRESS. 

PUT 10 SEC WAIT IN REG 9. 

CUT IT DOWN TO 2.5 SECS. 

TIME OUT. 

PUT RDR ADDR. INTO 12. 

BR TO ISSUE TEST 1-0. 

CTRL SWITCHES 

test NUMBER 

EXP COND. CODE AND SENSE. 

EXP CSW ADDRESS. 

BR TO GENERATE COL BINARY DATA. 

DATA 

PUT ADDR. OF PCH INTO 12. 

PUT ADDR OF DIAG WRITE CCW INTO 10. 


DATE 05MAY65 10AUG65 

EC 124252 125580 


15JUN67 

130498 


ID F811-2 
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001806 0 ? 00 


0018E0 

05 



0018El 

000918 


0018E4 

45 40 

F 

6 CO 

0018E8 

58 CO 

F 

B9C 

0018 EC 

41 AO 

F 

BOO 

0018F0 : 

45 40 

F 

AE 6 

0018F4 

3F3F 



0018F6 

45 BO 

F 

112 

0018 F A 

2 A 00 



0018FC 

0120 



0018FE 

FOOO 



001900 

FBCO 



001902 

58 CO 

F 

B98 

001906 

41 AO 

F 

838 

00190A 

45 BO 

F 

112 

00190E 

2800 



001910 

0130 



001912 

F180 



001914 

FBBO 



001916 

OA D 6 



001918 





BCR 0,0 

* 4 4 4 4 4 44 4 ♦ ♦ ♦ 4 ♦♦♦ ♦ * 4 * 4 ♦ 4 4 4 4 ♦♦ 4 * * 4 ♦ 4 4 ♦ 4 ♦ * 4 ♦ * 4 4141441 4 $ 4141 4 41 * 414141 * 4 $ $ £ 4141 £ 41 $ 41 $ $ 

* ROUTINE 05 - ISSUE A DIAGNOSTIC WRITE TO THE PUNCH WHICH SHOULD 

* FILL THE READ BUFFER WITH DATA THAT IS INVALID TO A 

* NORMAL READ COMMAND. 

* ISSUE A FEED AND STACKER SELECT R1 TO THE READER. 

* THIS COMMAND SHOULD BE REJECTED DUE TO TWO FEEDS IN A 

* ROW BEING PERFORMED ON THE READER. A SENSE COMMAND IS 

* ISSUED TO THE READER AND TESTED FOR THE COMMAND REJECT 

* BIT ON THE SENSE BYTE. 

* 4 * ♦ ♦ * 44 ♦ ♦ 4 ♦ * * * 44 * 4 4 * 4 * * 4 4 # 4 4 4 4 4 4 ♦ * 4 * * ♦ ♦ * * 4 4 ♦ 4 4 4 4 4 4 4 * * 4 4 41 4 4 4 44144 44: * 4141414 


R0UT05 DC 
DC 
BAL 
L 

LA 

BAL 

DC 

BAL 

DC 

DC 

DC 

DC 

L 

LA 

BAL 

DC 

DC 

DC 

DC 

SVC 

CNOP 


X*05 • 

AL3(R0UT06-SECN0) 
R4tINIT 
R 12y PCH 
RlOyDGWR 
R4,DWBF 
X*3F3F* 

RlltlSIO 

X*2A00* 

X • 0120* 

X*FOOO* 

AL2(EXP4-SECN0+REG) 

R12»RDR 

R10.RFS1 

RlltlSIO 

X* 2800* 

X*0130* 

X'F180* 

AL 2 C EXP2—SECNO+REGI 
X*D 6 * 

0,4 


ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

PUT THE PCH ADDR. INTO REG 12. 

PUT ADDR OF DIAG WR CCW INTO 10. 

BR TO COL BINARY GENERATOR. 

WRITE DATA. 

BR TO ISSUE START 1-0 
CTRL SWITCHES 

TEST N U M BER 

EXP COND. CODE AND SENSE 
EXP CSW ADDRESS. 

PUT RDR ADDR INTO REG 12. 

PUT FEED CCW ADDR. INTO 10. 

BR TO ISSUE START 1-0 
CTRL SWITCHES 

T EST NUMBER 

EXP COND. CODE AND SENSE 
EXP CSW 1 ADDR. 

ROUTINE EXIT 


001918 

001919 

00191C 

001920 

001924 

001928 

00192C 

0019 2 E 

001932 

001934 ‘ 

001936 

001938 

00193A 

00193E 

001942 

001946 

001948 

00194A 

00194C 

00194E 

001952 

001956 

00195A 


06 

000990 
45 40 F 
58 CO F 
41 AO F 
45 40 F 
0001 
45 BO F 
2800 
0140 
FOOO 
FBCO 
58 CO F 
41 AO F 
45 BO F 
2800 
0150 
FOOO 
FBDO 
58 CO F 
41 AO F 
45 40 F 
3F3F 


4444444444444444444444444444444444444444 44 ******* 44 *** 41 44** ***** * **44** 

* ROUTINE 06 - ISSUE A DIAGNOSTIC WRITE COMMAND TO THE PUNCH TO FILL 

* THE READ BUFFER WITH VALID DATA MODE 1 DATA. 

* ISSUE A READ NO FEED WITH A SENSE COMMAND FOLLOWING 

* TO ALLOW TESTING THE SENSE BYTE. 

* ISSUE A DIAGNOSTIC WRITE COMMAND TO WRITE INVALID DATA 

* INTO THE READ BUFFER. 

* ISSUE A FEED AND STACK SELECT R1 FOLLOWED BY A SENSE 

* COMMAND AND TEST FOR EXPECTED NORMAL OPERATION. 

* ISSUE A READ FEED AND STACK SELECT R1 AND EXPECT NORMAL 

* OPERATION DUE TO THE READ BUFFER BEING FILLED WITH 

* VALID DATA BY THE LAST FEED OPERATION. 

444444444 4444444444444444444444444444444444444**44*4444444444444444444:4 


R0UT06 DC 
DC 
BAL 
L 

LA 

BAL 

DC 

BAL 

DC 

DC 

DC 

DC 

L 

LA 

BAL 

DC 

DC 

DC 

DC 

L 

LA 

BAL 

DC 


X *06* 

AL3CR0UT07-SECN01 

R4, INIT 

R12.PCH 

RlOyDGWR 

R4,DWBF 

X'OOOl* 

RlltlSIO 
X* 2800* 

X•0140" 

X'FOOO* 

AL 2 (E XP4-SECN0+REG) 

R12tRDR 

RlOtDGRD 

RlltlSIO 

X* 2800* 

X* 0150* 

X , FOOO i 

AL 2 C EXP 6 -SECNO+REG1 

R12,PCH 

RlOyDGWR 

R4,DWBF* 

X*3F3F« 


ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

PUT THE PCH ADDR. INTO REG 12. 

PUT DIAG WR. CCW ADDR. INTO 10. 

BR TO COL BINARY GENERATOR. 

VALID MODE 1 DATA. 

BR TO ISSUE START 1-0 
CTRL SWITCHES 

TEST N UM B ER 

EXP COND. CODE AND SENSE. 

EXP CSW ADDRESS. 

PUT THE RDR ADDR. INTO REG 12. 
PUT RD NO FD CCW ADDR INTO 10. 
BR TO ISSUE START I-C. 

CTRL SWITCHES 

TEST NUMBER 

EXP COND. CODE AND SENSE. 

EXP CSW ADDRESS. 

PUT ADDR OF PCH INTO REG. 12. 
PUT DIAG WR CCW ADDR INTO 10. 

BR TO COL BINARY GENERATOR. 

INV. OATA. 


05MAY65 10AUG65 

124252 125580 


15JUN6T 

130498 


ID F811-2 
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i 

0019 5 C 

45 BO 

F 

112 

BAL 

RlltlSIO 

BR TO ISSUE START 1-0 \ 

001960 

2800 



DC 

X * 2800* 

CTRL SWITCHES ; [ 

001962 

0160 



DC 

X*Q160* 

TEST NUMBER 

001964 

FOOO 



DC 

X*F000* 

EXP COND. CODE AND SENSE. 

001966 

FBCO 



DC 

AL2(EXP4-SECNO+REGJ 

EXP CSW ADDRESS. 

001968 

58 CO 

F 

B98 

L 

R 12,RDR 

PUT RDR ADDR INTO REG 12. 

00196C 

41 AO 

F 

BBS * 

LA 

RIOtRFSl 

PUT FD SK SEL Rl CCW ADDR./IN 10. 

001970 

45 BO 

F 

112 

BAL 

RlltlSIO 

BR TO ISSUE START I-*0. 

001974 

3 COO 



DC 

X* 3C00* 

CTRL SWITCHES 

001976 

0170 



DC 

X* 0170* 

TEST NUMBER 

001978 

F100 



DC 

X*F100* 

EXP COND CODE AND SENSE. 

00197A 

FC60 



DC 

AL2(EXP15-SECN0+REG) 


00197C 

41 AO 

F 

B30 

LA 

RlOtRDl 

PUT RD FD CCW ADDR. INTO 10. 

001980 

45 BO 

F 

112 

BAL 

RlltlSIO 

BR TO ISSUE START 1-0. 

001984 

3 COO 



DC 

X* 3C00* 

CTRL SWITCHES 

001986 

0180 



DC 

X* 0180* 

T EST NU MBER 

001988 

FOOO 



DC 

X*FOOO* 

EXP COND. CODE AND SENSE. i 

00198A 

FBAO 



DC 

AL2IEXP1-SECNO+REG) 

EXP CSW ADDRESS. j 

00198C 

OA 06 



SVC 

X *D 6 * 

ROUTINE EXIT 

00198E 




CNOP 

0,4 

j 

00198E 

07 00 



BCR 

OyO 

f 





*4444444444444444444444444444444444444444444444444444444444444444444444 





* ROUTINE 07 

- ISSUE A READ FEED STACKER SELECT R1 COMMAND CHAINED 1 





* 

INTO ANOTHER READ FEED STACKER SELECT Rl. THE SLI FLAG 





* 

IS LEFT OUT OF THE 

COMMANDS AND 80 CHARACTERS REQUESTED i 





4 

BY EACH READ SHOULD NOT BRING WRONG LENGTH RECORD INTO 





4 

STATUS. 

t 





44444444444444444444444444444444444444444444444444444444444444444444444 i 

001990 

07 



R0UT07 DC 

X • 07® 

ROUTINE NUMBER ( 

001991 

0009B0 


DC 

AL3(RQUT08—SECNO) 

ADDRESS OF NEXT ROUTINE 

001994 

58 CO 

F 

B98 

L 

R12.RDR 

PUT THE READER ADDR INTO REG 12. 

001998 

41 AO 

F 

B40 

LA 

R10,CHRD 

PUT ADDR OF CHAINED CCWS INTO-IO. 1 

00199C 

92 50 

F 

B47 

MVI 

CHRD+7,80 

PUT COUNT OF 80 INTO COMMAND 1., 

0019A0 

45 BO 

F 

112 

BAL 

RlltlSIO 

BR TO ISSUE START IH3 j 

0019A4 

3C00 



DC 

X* 3C00* 

CTRL SWITCHES 

0019A6 

0190 



DC 

X'0190* 

T EST NU MB ER 

0019A8 

FOOO 



DC 

X'FOOO* 

EXP COND. CODE AND SENSE 

0019AA 

FBE 8 



DC 

AL2(EXP8—SECNO+REG1 

EXP 1ST CSW ADDR. 

0019AC 

OA 06 



SVC 

X*D 6 * 

ROUTINE EXIT 

0019AE 




CNOP 

0,4 


0019AE 

07 00 



BCR 

0,0 






♦♦*♦♦*♦*444444444444444444444444444444444444444444444444444444444444444 





* ROUTINE 08 

- ISSUE TWO READ FEED 

STACKER SELECT Rl COMMANDS COMMAND 





* . 

CHAINED WITH THE FIRST COMMAND REQUESTING ONLY 79 | 





* . 

CHARACTERS. CHAINING IS EXPECTED TO BE BROKEN BY THE I 





* 

WRONG LENGTH RECORD 

INDICATION AND STATUS IS TESTED ( 





4 . 

FOR THIS CONDITION. 






*********************************************************************** 

0019B0 

08 



ROUT08 DC 

X* 08* 

ROUTINE NUMBER 

0019B1 

0009D4 


DC 

AL3CR0UT09-SECN0) 

ADDRESS OF NEXT ROUTINE 

0019B4 

45 40 

F 

6C0 

BAL 

R4,INIT 

BR. TO INITIALIZE j 

0019B8 

41 AO 

F 

B40 

LA 

RIOtCHRD 

PUT CHAIN CMD CCW ADDR. INTO 10. | 

0019BC 

58 CO 

F 

B98 

L 

R12,RDR 

PUT RDR ADDR. INTO REG 12. 

0019C0 

92 4F 

F 

B47 

MVI 

CHRD+7,79 

MOVE 79 INTO CCW COUNT. 

0019C4 

45 BO 

F 

112 

BAL 

RlltlSIO 

BR TO ISSUE START 1-0. 

0019C8 

3C00 



DC 

X* 3C00* 

CTRL SWITCHES I 

0019CA 

0200 



DC 

X*0200* 

TEST NUMBER 

0019CC 

FOOO 



DC 

X*F000* 

EXP COND. CODE ANO SENSE 1 

0019CE 

FBF 8 



DC 

AL2(EXP9-SECN0+REG) 

EXP CSW ADDRESS. f 

001900 

OA 06 



SVC 

X*D 6 * 

ROUTINE EXIT 1 

001902 




CNOP 

0,4 


001902 

07 00 



BCR 

0,0 



*********************************************************************** 

* ROUTINE 09. - ISSUE A READ FEED STACKER SELECT Rl COMMAND WHICH DATA 

* CHAINS INTO FOUR DIFFERENT;PLACES. THE TOTAL COUNT WILL 

* BE EQUAL TO 80, THEREFORE, NO WRONG LENGTH RECORD 

* INDICATION SHOULD APPEAR IN STATUS. 
*********************************************************************** 


DATE 05MAY 65 10AUG65 15JUN67 10 F811-2 * 

EC 12A252 125580 130498 PAGE 10A 1 
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001904 

09 



R0UT09 DC 

X* 09* 

ROUTINE NUMBER 

0019D5 

0009FC 


DC 

AL3(R0UT10-SECN0J 

ADDRESS OF NEXT ROUTINE 

0019D8 

45 40 

F 

6C0 

BAL 

R4,INIT 

BR. TO INITIALIZE 

0019DC 

58 CO 

F 

898 

L 

R12,RDR 

PUT THE RDR ADDR. INTO REG 12. 

00I9E0 

41 AO 

F 

B50 

LA 

RIOfDCNRD 

PUT ADDR. OF CCW INTO REG 10. 

0019E4 

92 14 F 

B57 

MVI 

DCNRD+7,20 

PUT 20 INTO THE FIRST CCW. 

0019E8 

92 80 

F 

B64 

MVI 

DCNRD+20,X*80* 

PUT CHAIN FLAG ON IN THIRD CCW. 

0019EC 

45 BO 

F 

112 

BAL 

Rll,ISIO 

BR TO ISSUE START 1-0. 

0019F0 

3C00 



DC 

X* 3C00* 

CTRL SWITCHES 

0019F2 

0210 



DC 

X* 0210* 

TEST NUMBER 

0019F4 

FOOO 



DC 

X*FQOO* 

EXP COND. CODE AND SENSE. 

0019F6 

FC08 



DC 

AL2(EXP10-SECNO*REG) 

EXP 1ST CSW AODR. 

0019F8 

OA D6 



SVC 

X*D6* 

ROUTINE EXIT 

0019FA 




CNOP 

0,4 


0019FA 

07 00 



BCR 

0,0 






44444444444444444444444444444444444444444444444444444444444444444****** 





♦ ROUTINE 10 

- ISSUE A READ FEED 

STACKER SELECT R1 COMMAND WHICH DATA 





4 

CHAINS INTO FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL 





' * • 

BE EQUAL TO 100 THEREFORE, WRONG LENGTH RECORD SHOULD 





4 . 

APPEAR IN STATUS, 

AND CHAINING SHOULD BE BROKEN. 





444444444444444444444444444444444444444*4444444*44*♦♦♦*44*4444444444444 

0019FC 

10 



ROUT10 DC 

X*10* 

ROUTINE NUMBER 

00I9FD 

000A24 


DC 

ALS(ROUTll-SECNO) 

ADDRESS OF NEXT ROUTINE. 

001AOO 

45 40 

F 

6C0 

BAL 

R4,INIT 

BR TO INITIALIZE. 

001A04 : 

58 CO 

F 

B98 

L 

R 12,RDR 

PUT RDR ADDRESS INTO REG 12. 

001A08 

41 AO 

F 

850 

LA 

RIOfDCNRD 

PUT CCW ADDRESS INTO REG 10. 

001A0C 

92 28 

F 

B57 

MVI 

DCNRD+7,40 

PUT COUNT OF 40 INTO 1ST CCW. 

001AlO 

92 80 

F 

B64 

MVI 

DCNRD+20,X*80* 

TURN ON ONLY CHN DATA FLAG. 

001A14 

45 BO 

F 

112 

BAL 

Rll,ISIO 

BR TO ISSUE START 1-0 

001A18 

3C00 



DC 

X^COO* 

CTRL SWITCHES 

001A1A 

0220 



DC 

X*0220* 

TEST NUMBE R 

001A1C 

FOOO 



DC 

X *F000* 

EXP COND. CODE AND SENSE. 

001A1E 

FC70 



DC 

AL2(E XP11-SEC NO+REG) 

EXP 1ST CSW ADDR. • 

001A20 

OA D6 



SVC 

X*D6* 

ROUTINE EXIT 

001A22 




CNOP 

0,4 


001A22 

07 00 



BCR 

0,0 






44444444444444444444444444444444444444444444444444444444444444444444444 





4 ROUTINE 11 

- ISSUE A READ FEED 

STACKER SELECT R1 COMMAND DATA CHAINED 





4 . 

INTO FOUR DIFFERENT PLACES WITH THE SLI FLAG ON IN THE 





4 . 

COMMAND THAT REACHES TOTAL RECORD COUNT. EXPECT CHAINING 





4 

TO BE BROKEN BUT WRONG LENGTH RECORD SHOULD NOT APPEAR 





4 . 

IN STATUS. 






4444444444444444444444444444444444444444444444444*444444444444444444444 

001A24 ! 

11 



ROUT11 DC 

x*n* 

ROUTINE NUMBER 

001A25 

000 A4C 


DC 

AL3IR0UT12- SECNO) 

ADDR OF NEXT ROUTINE. 

001A28 

45 40 

F 

6C0 

BAL 

R4,INIT 


001A2C 

58 CO 

F 

B98 

L 

R12,RDR 

PUT RDR ADDR INTO REG 12. 

001A30 

41 AO 

F 

B50 

LA 

R10,DCNRD 

PUT CCW ADDR INTO 10. 

001A34 

92 28 

F 

B57 

MVI 

DCNRD+7,40 

PUT 40 INTO CCW COUNT. 

001A38 

92 AO 

F 

B64 

MVI 

DCNRD+20*X*A0* 

TURN ON THE SLI FLAG IN THIRD CCW. 

001A3C 

45 BO 

F 

112 

BAL 

Rll,ISIO 

BRTO ISSUE START 1-0. 

001A40 

3 COO 



DC 

X*3C00* 

CTRL SWITCHES 

001A42 

0230 



DC 

X , 0230* 

TEST NUMBER 

001A44 

FOOO 



DC 

X*FOOO # 

EXP CONO. CODE AND SENSE. 

001A46 

FC70 



DC 

AL2CEXP11-SECNO+REG) 

EXP 1ST CSW ADDR. 

001A48 

OA D6 



SVC 

X*D6* 

ROUTINE EXIT 

001A4A 




CNOP 

0,4 

ALIGN 

001A4 A 

07 00 



BCR 

0,0 






44444444444444444444444444444444444444444444444444*44444444444*4444444* 





♦ ROUTINE 12 

- IF THE 1400 COMPATIBILITY BIT IS ON IN THE UDT ENTRY 





4 . 

FOR THE 2540, THE 

FOLLOWING TEST :IS PERFORMED ON THE 





4 

READER- 






4 . 

A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 





4 . 

1400 COMPATIBILITY 

FEED AND STACKER SELECT R1 IS ISSUED 





4 . 

TO THE 2540 READER 

# 





4 . 

EXPECTED STATUS IS 

CHANNEL END IN THE FIRST CSW AND 





4 . 

DEVICE END IN THE 

SECOND CSW AFTER THE FEED CYCLE IS 





4 . 

COMPLETED. 



DATE 

05MAY65 

10AUG65 

15JUN67 
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* A RESIDUAL COUNT OF l SHOULD BE IN THE CSW BECAUSE 

* THE READER DOES NOT TRANSFER ANY DATA FOR THE STACKER 

4 COMMAND. 

* IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL 

* ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW 

* RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 

* DEVICE 

4444444444444444*4444444444444444444444*44444444444**444444*4444444444* 


001A4C 

12 



ROUT12 

DC 

X* 12* 

ROUTINE NUMBER 

001A4D 

000A74 



DC 

AL3CR0UT13-SECN0) 

ADDRESS OF NEXT ROUTINE 

001A50 

45 40 

F 

6C0 


BAL 

R4,INIT 

BR TO INITIALIZE 

001A54 

91 08 

F 

0E1 


TM 

UNIT1+1*X*08* 

SEE IF 1400 COMPATIBLE 2540. 

001A58 

47 80 

F 

A70 


BC 

N0NE,EXT1 

BR IF NO. 

001A5C 

41 AO 

F 

B88 


LA 

R10,CH14 

PUT ADDR OF 1400 RD CHAIN INTO 10. 

001A60 

58 CO 

F 

B98 


L 

R12,RDR 

PUT RDR ADDR. INTO REG 12. 

001A64 

45 BO 

F 

112 


BAL 

Rll,ISIO 

BR TO ISSUE START 1-0. 

001A68 

3 COO 




DC 

X* 3C00* 

CTRL SWITCHES 

001A6A 

0240 




DC 

X'0240* 

TEST NUMBER 

001A6C 

FOOO 




DC 

X»FOOO» 

EXP COND. CODE AND SENSE 

001A6E 

FCAO 




DC 

AL2 C E XP18-SECNO+REG) 


001A70 

OA D6 



EXT1 

SVC 

X*D6* 

ROUTINE EXIT 

001A72 





CNOP 

0,4 

ALIGN 

001A72 

07 00 



BCR 

0,0 






♦4444444444444444444444444444444444444444444444444444444444444444444444 





* ROUTINE 13 

- IF THE 1400 COMPATIBILITY BIT IS ON IN THE 2540 READER 





4 


UDT ENTRY THE FOLLOWING TEST WILL BE PERFORMED- 





* . 


A READ NO FEED IS 

ISSUED TO THE READER. EXPECTED 





4 


STATUS IS CHANNEL 

AND DEVICE ENDS TOGETHER.IN 1 CSW. 





4 . 


A TIME LOOP IS EXECUTED TO ALLOW EXPECTED AUTOMATIC 





* 


FEED CYCLE DUE TO 

6 MS PROVISIONAL FEED FOR THE 1400 





4 , 


FEATURE. 






* 


DEVICE END ALONE RETURNS AFTER AUTOMATIC PROVISIONAL 





* 


FEED CYCLE. 






* 


A FEED AND STACKER 

: SELECT R1 IS ISSUED AND UNIT CHECK 





* 


IS EXPECTED IN STATUS DUE TO 2 FDS IN A ROW WITHOUT 





♦ . 


INTERVENING READ. 

SENSE SHOULD HAVE THE COMMAND REJECT 





♦ . 


BIT ON. 






4 • 


IF THE PROGRAM HANGS IN A LOOP, A POSSIBLE CHANNEL 





■4 . 


ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULD DO A PSW 





4 


RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 





4 


DEVICE 






44444444444444444444444444444444444444444444444444444444444444444444444 

001A74 

13 



R0UT13 

DC 

X* 13* 

ROUTINE NUMBER 

001A75 

000ABO 



DC 

AL3 CRQUT14—SECNO) 

ADDR OF NEXT ROUTINE 

001A78 

91 08 

F 

0E1 


TM 

UNIT1+1,X*08* 

SEE IF 1400 COMPATIBLE 2540. 

001A7C 

47 80 

F 

AAC 


BC 

NONE,EXT2 

BR IF NO. 

001A80 

45 40 

F 

6G0 


BAL 

R4,INIT 

BR TO INITIALIZE. 

001A84 

41 AO 

F 

BIO 


LA 

R10,DGRD1 

PUT ADDR OF 1400 RD NO FD R1 IN 10. 

001A88 

58 CO 

F 

B98 


L 

R12,RDR 

PUT RDR ADDR INTO 12. 

001A8C 

45 BO 

F 

112 


BAL 

R11,ISIO 

BR TO ISSUE START 1-0. 

001A90 

3E00 




DC 

X* 3E00* 

CTRL SWITCHES 

001A92 

0250 




DC 

X* 0250* 

T EST NUMB ER 

001A94 

FOOO 




DC 

X*FOOO» 

EXP COND. CODE AND SENSE. 

001A96 

FC30 




DC 

AL2(EXPCOM-tSECNO+REG) EXP CSW ADDRESS. 

001A98 

41 AO 

F 

B18 


LA 

R10,RF$14 

PUT ADDR OF 1400 FD STK R1 IN 10. 

001A9C 

58 CO 

F 

B98 


L 

R12,RDR 

PUT RDR ADDR INTO 12. 

001AAO 

45 BO 

:f 

112 


BAL 

Rll,ISIO 

BR TO ISSUE START 1-0 

001AA4 : 

2800 




DC 

X* 2800* 

CTRL SWITCHES 

001AA6 

0260 




DC 

X* 0260* 

TES T NUMBE R 

001AA8 

F180 




DC 

X # F180* 

EXP COND. CODE AND SENSE. 

001AAA 

FBBO 




DC 

AL2CEXP2-SECN0+REG) 

EXP CSW ADDRESS. 

001A AC 

OA D6 



EXT2 

SVC 

X*D6* 

ROUTINE EXIT 

001AAE 





CNOP 

0,4 

ALIGN 

001AAE 

07 00 



BCR 

0,0 



444 44444444444444444444444444444444444444444444444444444444444444444444 

♦ ROUTINE 14 ~ IF THE 1400 COMPATIBILITY BIT IS ON IN THE 2540 READER 

4 UDT ENTRY THE FOLLOWING TEST IS PERFORMED* 

♦ A 1400 COMPATIBILITY READ NO FEED COMMAND CHAINED TO A 
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NOOP COMMAND WHICH IS COMMAND CHAINED TO A 1400 FEED 
AND STACK SELECT Rl,IS ISSUED TO THE READER* 

THE NO-OP COMMAND SERVES AS AN INTERMEDIATE COMMAND 
BETWEEN THE 1400 READ AND SEPARATE FEED COMMANDS TO 
INSURE THAT NO EXTRANEOUS OATA IS RETURNED BETWEEN 
THESE TIMING CRITICAL 1400 COMMANDS. 

EXPECTED STATUS IS CHANNEL END RETURNED IN THE FIRST 
CSW AND DEVICE END RETURNED IN THE SECOND DUE TO THE 
FEED CYCLE. 

A RESIDUAL COUNT OF 1 SHOULD BE IN THE CSW BECAUSE 
THE READER DOES NOT TRANSFER ANY DATA FOR THE NO-OP 
COMMAND. 

A SENSE COMMAND IS ISSUED AND EXPECTED STATUS IS 
CHANNEL END AND DEVICE END IN ONE CSW. NO SENSE BITS 
ARE EXPECTED TO BE ON. 

IF THE PROGRAM HANGS IN A LOOP# A POSSIBLE CHANNEL 
ERROR MAY HAVE OCCURRED. THE OPERATOR SHOULO DO A PSW 
RESTART TO HAVE THE LAST OPERATION OUTPUT ON THE OUTPUT 
DEVICE 


001ABO 

14 




♦**♦♦♦♦♦♦*****♦♦**♦**♦#*♦**♦**♦**♦♦*♦♦♦*♦******♦♦****♦*************♦**♦ 




ROUT14 

DC 

X* 14* 

ROUTINE NUMBER 

001AB1 

OOFFFF 



DC 

X* OOFFFF* 

LAST ROUTINE. 

001AB4 

91 

08 

F 

0E1 


TM 

UNITl+lfX*08* 

SEE IF 1400 COMPATIBLE 2540. 

001ABB 

47 

80 

F 

AE4 


BC 

NONEvEXT3 

BR IF NO. 

001ABC 

45 

40 

F 

6 CO 


BAL 

R4tINIT 

BR TO INITIALIZE 

001ACO 

58 

CO 

F 

B98 


L 

R12»RDR 

PUT RDR ADDR INTO REG 12. 

001AC4 

41 

AO 

F 

B70 


LA 

RlOyDRCN 

PUT ADDR OF 1400 RD CHAIN INTO 10. 

001AC8 

45 

BO 

F 

112 


BAL 

RllvISIQ 

BR TO ISSUE START 1-0. 

001ACC 

3E00 




DC 

X* 3E00* 

CTRL SWITCHES 

001ACE 

0270 




DC 

X*0270* 

TEST NUMBER 

001ADO 

FOOO 




DC 

X*F000* 

EXP COND. CODE AND SENSE. 

001 A D 2 

FC90 ; 




DC 

AL2(EXP17-SECNfHREG) 

EXP CSW ADDRESS. 

001AD4 

41 

AO 

F 

B28 


LA 

R10»SNS 

PUT SENSE ADDR INTO REG 10. 

001A08 

45 

BO 

F 

112 


BAL 

RllylSIO 

BR TO ISSUE START 1-0 

001ADC 

2 A 00 




DC 

X* 2A00* 

CTRL SWITCHES 

001ADE 

0280 




DC 

X *0280* 

TEST NUMBER j 

001AEO 

FOOO 




DC 

X*F000* 

EXP COND. CODE AND SENSE. 

001AE2 

FC50 




DC 

AL2(EXPSN2—SECNO+REG) 

EXP CSW ADDRESS. | 

001AE4 

OA 

D 6 



EXT3 

SVC 

X*D 6 * 

ROUTINE EXIT- 






***♦*♦****♦***♦***♦♦♦*♦*♦♦♦*♦*♦*#♦**♦**♦**♦*♦***♦********♦***♦**♦♦*♦♦♦* ! 






♦ , 

SET 

UP DIAGNOSTIC WRITE DATA HERE 

001AE 6 






41 

50 0 

050 

DWBF 

LA 

R5t 80 

PUT 80 INTO REG 5. 

001AEA 

41 

60 

F 

71C 


LA 

R 69 RDAR 

PUT ADDR OF BUFFER INTO REG 6 

001AEE 

D2 

01 

6 

000 4 000 

DTLP 

MVC 

0(2yR6),0(R4) 

MOVE TWO BYTES TO BUFFER 

001AF4 

41 

66 

0 

002 


LA 

R 6 f2(R6) 

ADD 2 TO BUFFER ADDR. 

001AF 8 

46 

50 

F 

AEE 


BCT 

RStDTLP 

BR UNTIL 160 CHARS MOVED. 

001AFC 

47 

F4 

0 002 


BC 

UNC y2(R4) 

RETURN TO PROGRAM. 


4 CCW AREA 

*******>M********4*********:M*******’M********4':»***************>M‘****** 


001 BOO 

25 

00171C 

0000 

OOAO 

DGWR 

CCW 

X*25*fRDARfX*00*»160 

DIAG WR. CCW. 

001B08 

C2 

00171C 

0000 

0050 

DGRD 

CCW 

X*C2*,RDAR,X*00*y80 

DIAG RO CCW. 

001810 

D2 

00171C 

2000 

0050 

DGRD1 

CCW 

X*D2* yRDARyX*20*,80 

1400 READ NO FEED* 

001B18 

33 

00171C 

2000 

0001 

RFS14 

CCW 

X*33*yRDAR,X*20*,l 

1400 FEED STK SEL. 

001 B 20 

03 

00171C 

2000 

0001 

NOOP 

CCW 

X*03* tRDARfX*20*,1 

NO-OP CCW 

00IB28 

04 

00171C 

2000 

0001 

SNS 

CCW 

X•04* tROARy X * 20 * y1 

SENSE CMD. 

001B30 

02 

00171C 

0000 

0050 

RD1 

CCW 

X*02*yRDARyX*00*y80 

RD, FD, STK SEL Rl. 

001B38 

23 

00171C 

0000 

0001 

RFS1 

CCW 

X*23* yRDARyX*00 9 yl 

FD AND STK SELECT Rl 

001B40 

02 

00171C 

4000 

0050 

CHRD 

CCW 

X*02*yRDARyX*40*y80 

COM CHAIN CCWS. 

001B48 

02 

00171C 

0000 

0050 


CCW 

X*02* yRDARyX *00*,80 


001B50 

02 

00171C 

8000 

0014 

DCNRO 

CCW 

X*02* yRDARyX *80* #20 

DATA CHAIN CCWS. 

001B58 < 

02 

001744 

8000 

0014 


CCW 

X*02••RDAR+40yX*80**20 

001B60 

02 00176C 

8000 

0014 


CCW 

X* 02 * ,RDAR+80,X*80*,20 

001868 

02 

001794 

0000 

0014 


CCW 

X*02*yRDAR+120,X*00*,20 

001B70 

D 2 

00171C 

6000 

0050 

DRCN 

CCW 

X*D2*yRDAR,X*60*,80 

1400 RD NO FD WITH Cl 

001B78 

03 

00171C 

6000 

0001 


CCW 

X*03*yRDARyX*60*,1 

NO-OP 

001B80 : 

33 

00171C 

2000 

0001 


CCW 

X*33* yRDARyX*20*,1 

1400 FD STK SEL Rl. 

DATE 
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001B88 

D2 00171C 

6000 0050 

CH14 

CCW 

X*D2* yRDARyX*60*,80 : 

1400 

RD 

NO FD' “CMD CHAIN- 

001B90 

33 00171C 

2000 0001 


CCW 

X*33* yRDARyX*20*,1 

1400 

FD 

STK SEL Rl. 

001B98 

00000000 


RDR 

DC 

F • 0* 




001B9C 

00000000 


PCH 

DC 

F • 0* 





I********************************************************************** 

♦ EXP CSW AREA 


001 BAO 

00001B38 

EXP1 

DC 

AfRDl+ 8 ) 

001BA4 ! 

08000000 


DC 

X*08000000* 

001BAS 

00000000 


DC 

XL4* 00* 

001BAC 

04000000 


DC 

X*04000000* 

001BBO 

00000000 

EXP2 

DC 

XL4* 00* 

001BB4 

02000000 


DC 

X*02000000* 

001BB8 

00000000 

EXP 3 

DC 

XL4*00* 

001 BBC 

04000000 


DC 

X*04000000* 

001BCO 

00001B08 

EXP4 

DC : 

A(DGWR+ 8 ) 

001BC4 * 

ocoooooo 


DC 

X*OCOOOOOO* 

001BC8 

00000000 

EXP 5 

DC 

XL4*00* 

001BCC 

14000000 


DC 

X*14000000* 

001BDO 

00001B10 

EXP 6 

DC 

At DGRD+ 8 ) 

001BD4 

ocoooooo: 


DC 

X*OCOOOOOO* 

001BD8 

00001B40 

EXP 7 

DC 

ACRFS1+8) 

001BDC 

08000000 


DC 

X* 08000000* 

001BE0 

00000000 


DC 

XL4*00* 

001BE4 1 

04000000 


DC 

X*04000000* 

001BE8 

00001B50 

EXP 8 

DC I 

A (CHRD'*-161 

001BEC 

08000000 


DC 

X*08000000* 

001BFO 

00000000 


DC 

XL4*00* 

001BF4 

04000000 


DC 

X*04000000* 

001BF8 

00001B48 

EXP9 

DC 

A(CHRD+ 8 ) 

001BFC 

08400000 


DC 

X*08400000* 

001COO 

00000000 


DC 

XL4* 00* 

001C04 

04000000 


DC 

X*04000000* 

001C08 

00001B70 

EXP 10 

DC 

A(DCNRD+32) 

001C0C 

08000000 


DC 

X*08000000* 

001C1G 

00000000 

EXP12 

DC 

XL4•00* 

001C14 

04000000 


DC 

X* 04000000* 

001C18 

00000000 

EXP13 

DC 

XL4*00* 

001C1C 

14000014 


DC 

X*14000014* 

001 C 20 

00001B38 

EXP14 

DC 

A(RDl+ 8 ) 

001C24 

OAOOOOOO 


DC 

X*OAOOOOOO* 

001C28 

00000000 


DC 

XL4*00* 

001C2C 

04000000 


DC 

X*04000000* 

001C30 

00001B18 

EXPCOM 

DC 

AIDGRD1+8J 

001C34 

ocoooooo 


DC 

X*OCOOOOOO* 

001C38 

00000000 


DC 

XL4*00* 

001C3C 

04000000 


DC 

X*04000000* 

001C40 

00000000 

RD14 

DC 

XL4*00* 

001C44 

08000000 


DC 

X*08000000* 

001C48 

00000000 


DC 

XL4*00* 

001C4C 

04000000 


DC 

X*04000000* 

001C50 

00001B30 

EXPSN2 

DC 

A(SNS+ 8 ) 

001C54 

ocoooooo 


DC 

X*OCOOOOOO* 

001C58 

00000000 

EXPNOP 

DC 

XL4*00* 

001C5C 

ocoooooo 


DC 

X*OCOOOOOO* 

001C60 

00000000 

EXP 15 

DC 

XL4*00* 

001C64 : 

08000000 


DC 

X*08000000* 

001C68 

00000000 


DC 

XL4*00* 

001C6C 

04000000 


DC 

X*04000000* 

001C70 

00001B70 

EXP11 

DC 

A(DCNRD+32) 

001X74 : 

08400014 


DC 

X*08400014* 

001C78 

00000000 


DC 

XL4*00* 

001C7C 

04000000 


DC 

X*04000000* 

001C80 

00000000 

EXP 16 

DC 

XL4*00* 

001C84 

08000000 


DC 

X*08000000* 

001X88 

00000000 


DC 

XL4*00* 

001C8C 

04000000 


DC 

X*04000000* 

001C90 

00001B88 

EXP17 

DC >' 

AtDRCN+241 

DATE 
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001C94 ! 08000001 DC X*08000001* 

001C98 00000000 DC XL4*00 9 

001C9C 04000000 DC X*04000000 9 

001CAO 00001698 EXP18 DC AICH14+16) 

001CA4 08000001 DC X 9 08000001 9 

001CA8 ' 00000000 DC XL4 9 00 9 

001CAC 04000000 DC X 9 04000000• 

*****4u|*4******4riMt**********************************»****************** 
♦ EQUATES 



*********************************************************************** 

000000 

NEVER 

EQU 

0 

000007 

NCCO 

EQU 

7 

OOOOOF 

UNC 

EQU 

15 

000008 

NONE 

EQU 

8 

000004 

SOME 

EQU 

4 

000001 

ALL 

EQU 

1 

000005 

ANY 

EQU 

5 

000008 

CCO 

EQU 

8 

000004 

CC1 

EQU 

4 

000002 

CC2 

EQU 

2 

000001 

CC3 

EQU 

1 

000008 

EQ 

EQU 

8 

000004 

LO 

EQU 

4 

000002 

HI 

EQU 

2 

000006 

UNEQ 

EQU 

6 

OOOOOC 

EQLO 

EQU 

12 

OOOOOA 

EQHI 

EQU 

10 

000080 

LOGOUT 

EQU 

X*80 9 

000181 

SYSMOD 

EQU 

X 9 181 9 

OOFOOO 

REG 

EQU 

X 9 FOOO* 

00005A 

WHAT 

EQU 

90 

000000 

RO 

EQU 

0 

000001 

R1 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

OOOOOB 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSH 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 * 

DMSSW 

EQU 

X 9 01A0 9 



END 

R0UT01 
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POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


1 

8 

EQ 

134E* 

137A 






1 

2 

HI 








1 

4 . 

LO 








1 

0 

RO 








1 

1 

R1 








1 

2 

R2 








1 

3 

R3 








1 

4 

R4 

16FA, 

17DC, 

1800, 

1818, 

184E , 

1870, 

187C 




18B4, 

18E4, 

18F0, 

191C, 

1928# 

1956, 

19B4 




19D8* 

1A00, 

1A28, 

1A50, 

1A80, 

1ABC# 

1AEE 




1AFC 







1 

5 

R5 

153C, 

170C, 

1AE6, 

1AF8 




1 

6 

R6 

IAEA* 

1AEE, 

1AF4# 

1AF4 




1 

7 

R7 








1 

8 

R8 

112C, 

12B6, 

12BA, 

131E , 

1322, 

1340, 

1340 




1344, 

139A, 

139E, 

1450, 

1454, 

1458, 

1458 




145C, 

154E 






1 

9 

R9 

U2C, 

1186, 

118A, 

1196, 

11F2# 

11F6, 

1202 




1258, 

12AE, 

12B2, 

12CE, 

13F6, 

1424# 

1466 




147E, 

1496, 

14AE, 

154E, 

1832, 

1836, 

163 A 

1 

198 

WT 

1186, 

11F2, 

12AE, 

1832 




1 

1 

ALL 

114A, 

11EA, 

1222 , 

127A, 

129A# 

12DA, 

12E6 




1362, 

1382, 

13BA# 

153C , 

16E8 



1 

5 

ANY 

1534 







4 

1048 

CAW 








1 

8 

CCO 

1192, 

11 B0 






1 

4 

CC1 

1184, 

12 CA 






1 

2 

CC2 

11B8 







1 

1 

CC3 








8 

1040 

CSW 








2 

100 A 

I CM 








41 

1186 

IHI 

} 116A, 

117A 






2 

10E8 

ISW 

119A, 

119A, 

11 A0, 

1106# 

11E2, 

11 EE, 

UFA 




120 A, 

121A, 

121E# 

122C # 

125C# 

126 A # 

1276 




127E, 

128E, 

129E, 

1206, 

12E2, 

12 F6# 

1316 




1338, 

1352, 

135E, 

146A# 

149A, 

14B8 , 

1510 




1518, 

1538# 

16E 4, 

1708, 

1710 



4 

154 A 

IUP 

1542 







16 

16 BO 

MDR 

1558, 

1564 






4 

1B9C 

PCH 

1604, 

17EA, 

1822, 

1854, 

1874# 

18E8, 

1920 




194E 







1 

A 

RIO 

1128, 

1136# 

13D4# 

13F0, 

13FA , 

1402, 

1402 




152C, 

16F6# 

1808 # 

181E # 

1858# 

1878# 

1892 




18BC, 

18CC# 

18EC, 

1906# 

1924# 

193E # 

1952 




196C, 

197C# 

1998# 

1988# 

i960, 

1A08 # 

1A30 




1A5C, 

1A84# 

1A98# 

1AC4, 

1AD4 



1 

B 

Rll 

1122 , 

1128# 

1146# 

11E6, 

126E, 

1286# 

12FA 




1304, 

130E# 

131E# 

1330, 

1386, 

1396, 

13A0 




1382, 

13B2# 

13B6, 

1426, 

1442, 

1450, 

1482 




14B2, 

153E, 

1346# 

1546, 

154 A , 

154A, 

1552 




17E0, 

17EE# 

180C, 

1826, 

1842, 

185C# 

1882 




1896, 

18A2, 

18C0, 

1800# 

18F6, 

190A# 

192E 




1942* 

195C* 

1970# 

1980# 

19A0, 

19C44 

19EC 




1A14, 

1A3C, 

1A64#: 

1A8C , 

1 AA0, 

1AC8, 

1 ADS 

1 

C 

R12 : 

U5E, 

116E, 

1176, 

118E, 

llAC# 

1212 , 

12BE 




12 C6, 

155C, 

16CCI 

16D0, 

1604# 

1608# 

16DC 




16E0# 

17EA# 

1804# 

1822 # 

183E # 

1854# 

1874 




188E, 

1888, 

1688# 

1902# 

1920, 

193A# 

194E 




1968, 

1994# 

19BC# 

19DC# 

1A04# 

1A2C, 

1A60 




1A88, 

1A9C, 

1AC0 





1 

D 

R13 

1136, 

113A, 

1I3A# 

1100 # 

12BA# 

12EE# 

152C 


DATE 05MAY65 10AUG65 15JUN67 

EC 124252 125580 130498 


ID F811-2 

page m 








i 


n 


j IBM 

MAINTENANCE DIAGNOSTIC 

PROGRAM 







P/N 

84018# 

V 











PAGE 

14 

2540 

READER FUNCTION TESTS 

-SECTION 2 F811 







j 




16C0f 

16C0* 

16CA 







j. 

1 

E 

R14 

1140* 

1140* 

1186, 

11F2, 

12AE, 

14DC , 

14E4 

A 






16C2* 

1832 








] 

1 

F 

R15 

1226* 

1234* 

1264* 

16CA 







8 

1830 

RD1 

1808* 

1892, 

197C, 

1BA0* 

1C20 






4 

1898 

RDR 

16E0, 

1804, 

183E* 

188E * 

1888* 

1902, 

193A 







1968* 

1994, 

19BC, 

19DC , 

1A04# 

1A2C, 

1A60 







1A88* 

1A9C, 

1 AC0 







1 

1 

FOOO 

REG 

1246* 

1398, 

1300* 

13CA* 

13E4# 

1422, 

1430 



]• 




1436* 

14CC * 

14DA* 

150E , 

1524|l 

152A, 

1558 



I 




1564* 

1706, 

1816* 

1830* 

184C , 

1866, 

188C 



{ 




18A0* 

18AC* 

18CA, 

18DA , 

1900, 

1914# 

1938 



1 




194C, 

1966, 

197A, 

198A, 

19AA* 

19CE * 

19F6 



1 




1A1E* 

1A46* 

1A6E, 

1A96, 

1AAA * 

1AD2, 

1AE2 




8 

1828 

SNS 

1AD4* 

1C50 








! 

1 

F 

UNC 

10FA* 

110E, 

1162, 

1182, 

11C0* 

11C8, 

11DA 



'J 




120E* 

1230* 

1260, 

1282, 

12D2* 

12DE, 

12EA 







1406* 

1424, 

151C, 

1552, 

1566, 

16FA, 

1714 







1AFC 










8 

1 B88 

CH14 

1A5C, 

ICAO 









8 

1B40 

CHRD 

1998, 

199C* 

1988, 

19C0, 

1BE8* 

1BF8 





8 

1 BOB 

DGRD 

18BC* 

193E, 

1BD0 








8 

1800 

DGWR 

181E* 

1858, 

1878, 

18EC, 

1924,' 

1952, 

1BC0 




8 

1B70 

DRCN 

1AC4* 

1C90 









6 

1AEE 

DTLP 

1AF8 










4 

1AE6 

DWBF 

1818* 

184E, 

187C, 

18F0, 

1928, 

1956 





1 

A 

EQMl 










i 

1 

C 

EQLO 











4 

1 BA0 

EXP1 

1816* 

18AC* 

198A 








4 

1 BB0 

EXP2 

1830* 

1914, 

1AAA 








4 

1 BB8 

EXP3 

184C 










4 . 

18C0 

EXP4 

1866, 

188C, 

1900, 

1938, 

1966 






4 

1BC8 

EXP5 











4 

1BD0 

EXP6 

18CA* 

194C 









4 

18D8 

EXP7 











4: 

1BE8 

EXP8 

19AA 










4 

1BF8 

EXP9 

19CE 










2 

1A70 

EXT 1 

1A58 









! 

2 

1AAC 

EXT2 

1A7C 










2 

1AE4 

EXT3 

1AB8 









i 

4 

118E 

GREG 

1196 









! 

1 

48 

HC AW 

1136* 

12BA, 

152C 








1 

40 ; 

HCSW 

113A* 

113A, 

1 IDO, 

1226, 

1234, 

1264# 

12EE 




16 

17BC 

HUNG 

1706 









s 

3 

15EF 

I ACT 

1252* 

1472, 

14A2 







j 

6 

1304 ' 

I8SN 

1292, 

12A2, 

12AA, 

1202 







12 : 

15C3 

ICAW 

13D4, 

13DC, 

13DE, 

13E4 







3 

15D2 

ICCW 

13E6 









1 

1 

1421 

ICNT 

124E* 

13EC, 

143E 








3 

15CF 

ICSW 

1248* 

1438 









4 

149A 

IDID 

1486 










3 

15F2 

IEXP 

144A, 

148A 









4 

10EA 

IHIO 











2 

16C0 

INIT 

17DC, 

1800, 

1870, 

1884, 

18E4# 

191C , 

1984 



I 




1908, 

1A00, 

1A28, 

1A50, 

1A80, 

1ABC 





4 

11E2 

INOW 

114A, 

11C0, 

11C 8, 

11DA 







4 

126E 

INT3 

1230 










4 

11CC 

10 NE 

11B4 










6 

14B2 

IPAS 

149 E 










4 : 

1286 

I SEN 

11EA, 

120E, 

1272, 

127A 






t 

4 

1112 

IS 10 

180C* 

1826, 

185C, 

1882, 

1896, 

18A2, 

18C0 







18D0* 

18F6, 

190A, 

192E, 

1942, 

195C, 

1970 



■ 




1980* 

19A0, 

19C4, 

19EC, 

1A14 4 

1A3C# 

1A64 



j 




1A8C, 

1AA0, 

1 AC8, 

1AD8 






! 

6 

1264 

1SV2 

1222 










4 

12CE . 

IT IC 

12F2 









j 

4 

10FE . 

IT 10 

17E0* 

17EE, 

1842 







• 

4 

11C4 : 

ITWO 

1188 









j DATE 

05MAY65 10AUG65 

15JUN67 







ID 

F811-2 

EC 

124252 

125580 : 

130498 
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2540 READER FUNCTION TESTS - SECTION 2 F811 


6 

1234 : 

IUIO 

1216 







6 

119A 

JOHN 

1152* 

1192 






1 

168B 

MSKl 

11FE 







1 

168C 

MSK2 

1206 







l ; 

7 

NCCO 

1172, 

12C2* 

12F2 





l 

100D 

NIOU 








1 

8 

NONE 

1152* 

115A, 

116A* 

117A# 

1272* 

128A, 

1292 




12A2* 

12AA* 

1312, 

131A , 

1334# 

133C, 

136A 




13FE* 

1446, 

146E, 

1486, 

149E * 

14BC* 

1514 




1542* 

16C6, 

1A58* 

1A7C , 

1AB8 



8 

1820 

NOOP 

16F6 







4 ! 

1C40 

RD14 : 








1 

me 

RDAR 

16EC, 

16F0, 

16F0, 

IAEA# 

1 B00, 

1808# 

1810 ! 




1818* 

1820, 

1828, 

1830, 

1838* 

1B40, 

1B48 




1B50* 

1B58, 

1B60, 

1 B68, 

1870, 

1878# 

1880 




1888* 

1B90 





! 

2 

1554 

RDYM 

137A, 

1382 





s 

8 

1B38 

RFS1 

18CC* 

1906, 

196C, 

1BD8 



! 

1 

168D 

RTSV >. 

1130* 

16FC 





1 

1 

100C 

SDMF 







! 

-4 i 

1004 

SNSW 

114E, 

1156, 

1166, 

1176, 

1366, 

1530 

j 

1 

4 

SOME 







i 

3 

105D 

SRET 







| 

1 

10E1 

U10P 







j 

1 

10 E5 

U20P 








1 

6 

UNEQ 

1216* 

1300, 

130A, 

132C# 

13D0# 

14E0 

, : 

1 

5A 

WHAT 








1 

1578 

WORK 

1234* 

13F0, 

140E, 

1410, 

1412, 

1418, 

1460 1 




1460, 

1478, 

1490, 

1490, 

14A8# 

14E4# 

14EE 




14F0, 

14F2, 

14F8, 

14FE, 

1504 


• ■ t 

4 

16E4 

BLOOP 

1714 







8 

1850 

DCNRD 

19E0* 

19E4, 

19E8, 

1A08# 

1A0C# 

1A10, 

1A30 




1A34, 

1A38, 

1C08, 

1C70 



i- 

8 

1B10 

DGRD1 

1A84* 

1C 30 





| 

1 

1 AO 

DMSSW 







, ' ' j 

4 

1C08 

EXP 10 

19F6 






■ • ' ' i 

4 : 

1C70 

EXP11 

1A1E* 

1A46 





• 

4 

1C10 

EXP12 








4 

1C18 

EXP13 







1 

4 

1C20 

EXP 14 

18A0 







4 : 

1C60 

EXP15 

18DA* 

197A 






4 : 

1C80 

EXP16 








4 

1C90 

EXP17 

1AD2 







4 

ICAO 

EXP18 

1A6E 







1 

100E 

FLAG1 








1 

100F 

FLAG2 








16 

15D5 

I BLAH 

1248* 

1252, 

13E6, 

1412, 

1418# 

1422, 

1438 




144A, 

1472, 

148A, 

14A2 




2 

140 A 

ICOUT 

1258* 

13F6, 

1466, 

147E, 

1496, 

14AE 


8 

1666 

ICSW1 

11 D0, 

1226, 

1296, 

1326, 

1326, 

137E, 

1478 « 

8 

166E 

ICSW2 

1264, 

12A6, 

1348, 

1348# 

14A8 



4 

1510 

ICUIO 

14E0 







4 

146A 

IDIDI 

1446 






t. 

4 

116E 

IHANG 

1182 







16 

15B3 

ILINK 

; 13A0, 

13A8, 

13AA# 

1380, 

152 A 


j. 

4 

12EE 

ILOKE 

12CA 







4 

115E 

ILOOP 

10F6, 

1102 , 

1116 




l 

4 

1352 

INDER 

12C2, 

12DA, 

12E6* 

1300, 

130A * 

131A# 

132C | 




133C 







5 

1010 : 

INPSW 







j 

3 

1688 

IOADR 

13C2 






[ 

6 

1438 

IOCSW 

13BA 






! 

16 

1608 

IOLOG 

14F2, 

14F8, 

14FE, 

1504, 

150E 



16 

1630 

I0PT1 

10EE* 

1106, 

U1A, 

1524 




4 

14DC 

IPASS 

14BC 







8 

1570 

ISAVE 

112C, 

154E 






4 

11 AC 

ISSUE 

10EA* 

10FE# 

1112 , 

13CC# 

1688 



4 

1156 

ITRY1 

1162* 

1172, 

1534 






DATE 

EC 


05MAY65 10AUG65 15JUN67 

124252 125580 130498 


ID F811-2 
PAGE 14A 
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2540 READER FUNCTION TESTS - SECTION 2 F8ll 


1 18B0 ROUT04 I860 

1 18E0 R0UT05 18B1 

l 1918 ROUT06 18E1 

1 1990 R0UT07 1919 

1 19B0 R0UT08 1991 

1 19D4 R0UT09 19B1 

1 19FC ROUT 10 19D5 

1 1A24 ROUT 11 19FD 

1 1A4C ROUT 12 1A25 

1 1A74 ROUT 13 1A4D 

1 1ABO ROUT 14 1A75 

8 1060 SVNPSW 

8 1020 SVOPSW 

1 181 SYSMOD 14DC 

2 10E2 U1ADDR 

2 10E6 U2ADDR 

1 1000 XF8112 


NO ERROR DETECTED IN ABOVE ASSEMBLY 


DATE 

EC 


05 MAY 65 10AUG65 15JUN67 

124252 125580 130498 


ID F811-r2 
PAGE ISA 
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P/N 

840188 

IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840188 f 
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FBII 2540 RO FUNCTION 

SEC 2 



* 

F811 2540 RD FUNCTION 

SEC 2 




PERIODS CORRESPOND TO 

BLANK COLUMNS. 




BTXT*ALA*.A8..AA6+GA 

5DKA6UABBEABFUFUB0MA 

6XAAADLH+A5HBEACEIEH 

BOJA5CACADAA81120017 

| 






9 Y9Y Y9 Y9 -ZQ 

R 9 8Q98QY998988-Z8 

9ZYY980 Q 08QY99090 

8 -YQ 0ZQY9-Y 

> 

COLS. 1 THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 


9 9 9 9 

90 999 9 99 9 

99-0 -999 - 

9 9-09 


... • AAXF81 

12..AAAA.ADA. 

.. 

189.130498•.81120001 


BTXT.ALH..A8..AAAAGA 

48BEACFHERB04G5MED1M 

G-4W+J5HBEACEIEHBOJC 

5CKB505KBQ4/81120018 

! 

9 YQ Y9 

YYQY Y8Q 




9 Y90 Y9 Y9QYZQ 

98QY990908—Y8 0-Q Y 

Z 9 Y 8QY99 9 S-Y8 

9 -9 9 


99 9 

9999 990 




9 - 9 9 09 9 

999 9 9 

999 9 9 


‘ | 

BTXT.AAA..A8..AA8JJA 

AAAAAAAAABOAAOAAAAPQ 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA81120002 


BTXT.ALO..A8..AAKG5H 

JAEA4BA0JDGA4WAKAHG0 

30BEAHEHEHKG5B5HKG5T 

5AB0JK5NG9KA81120019 

i 

t 

9 YQY Y9 Y9 9YV, 

YYYYYYYYY9+Y99YYYY9 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 


9 Y9 Y9 Y9 9 R 

YYZQ 8-+Y9ZY 9ZYY9Z 

8QY99R9R 9 Q R 9 

Y8-Y8 9 Y 


999 9 9 99 

999999999 9 9999 

99999999999999999999 

999999999999 


9 9 9 0 

9 9 9 

999 00 90 

9 9 9 

! 

BTXT.AA8..A8..AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAADAAAAAAAAAA 

AAAAAAAAAAAA81120003 


BTXT•AMY••A8.•AA5EA0 

BOJB5AB0JB5BKB505GBK 

4/AHAAGA4+KB5M52HCAF 

.A4MAHAH.A4081120020 


9 YQ9 Y9 Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYY9YYYYYYYYYY 

YYYYYYYYYYYY 


9 Y99 Y9 Y9 -Q9 

8 -Y8 Q8-Y8 Q 9 Y-8 

9-9QYZY - 9 Y ZYY9 

Y ZZ0Y9 Y - 


99 9 9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 


9 9 9 0 

9 9 9 9 9 9 

09 9 9 

9 


BTXT.AAO..AA.•AAAAAA 

AAAAAOAAAAKK.. 


.81120004 


BTXT.AM-..A8..AAKG5H 

5HEA4BA.0YGA4BKB5M5P 

KG5H60EA4BADAAGA4BKB 

5M52KG5H5HEA81120021 


9 YQ+ YQ Y9YYYY 

YYYY99YYYY99 




9 Y9 Y9 Y9 9 R 

RZQ 8- ZY 0 9 Y Y 

9 R ZZQ 8-9QYZY Q 9 

Y 9 R RZQ 

1 

99- 99 9 9999 

9999 9999 




9 9 9 0 

0 9 9 9 

0 9 09 

9 0 0 

f 

BTXT. AAS.. A8. • AAAAAA 

BAAAAABF1MBH6ABH5ABF 

10G01SBE1MBE10BT6ABT 

5AG01SBD1MBD81120005 


BTXT.AMH..A8.•AA4BAJ 

0YGA4BKB5M5PKG5H6WEA 

4BKA5BAEAD0YGA4DBEAA 

iEBEBB0JC55BE81120022 

s 

9 YQ8 Y9 Y90YYY 

OYYYYY-Q Y- 8- Q-Q 

8 Z 9—Q Y-Q 8- 8- 

QZ 9-Q Y-Q 


9 Y9- Y9 Y9 8-Y 

ZY 0 9 Y Y 9 R 8ZQ 

8 Y QQ9-9 ZY Q8QY9 

9Q9Q8-Y8 8Q 


99 9 9 9 9 

9 999 0 


0 


9 9 9 9 9 

- 9 9 0 

9 9 ZO 9999 

Z Z9 9 99 


BTXT. A JQ. . A8. . AA10BS 

6ABS5AKA6UABAL 6AA150 

KA6E0C+NAHPG0.0.PCSA 

SAAAAAGA1SA081120006 


BTXT.AM0..A8..AAAAFE 

FEB0JC6AEAJAG-5AKC5H 

SABEADEHEHKA6A5HKE6L 

52KE6K5BKE6/81120023 


9 Y99 Y9 Y9 8** 

8 - Q 9 8Q9QY YQO ♦ 

Y Y 9 YYZ 9-88Y 

8 Y-YQYZQ -♦ 


9 Y9- Y9 Y9Y999 

998-Y8 Y-QZOZ Q 8 R 

8Y8QY89R9R 9 Q R 9 9 

8 9 8 0 9 9 


9 9 9 

0 90 

9 9 9 

09 9 


9 9 9 9 

9 9 9 Z 9 9 0 

9999 00 90 

9 

1 

BTXT.AJ+*.A8..AAODGA 

IBAAODGAIODAOAGOIFA. 

0DGA1FEA0AG01FA.0DGA 

1FDA0AG01WHF8112000T 


BTXT. ANH. • A8• . AA5BBO 

JM6CABOYGA5JDEOYG012 

BOC66ABOJA5C+NAHAOOD 

G-MFAA0YGNAH81120024 


9 Y9 Y9 Y9 9ZY 

Q-Y 9ZY ZQY+YZ R- 

9ZY OQY+YZ+ R- 9ZY 

OQY+YZ 8RQ 


9 Y99 Y9 Y9 Y8- 

Y8 8-9 ZY Y-Q Z 

8 —+9 Q8—Y9 0 YYZ—♦ 9 

Z R-Y 99-9 


9 9 9 

9 9 

9 9 - 

9 9 


9 9 9 9 

9 9 9 Z 

9 Z9 - 9 



BTXT.AJH..A8.•AAAHHA 

ACEA0AGA1BFA1FPA0Y0Y 

FA0YBX6EBX5GDA0AGA1F 

G.10GJ1DB35G81120008 


BTXT.AN...A8..AAAAGA 

5BACABACAFHI50GCB0UA 

6ABBEA0AB0AA6AG016GA 

GAGAAAAAAAAA81120025 


9 Y90 Y9 Y99-0Q 

Y9QY+YZY QZQ Y 9 

-Y - 9- QQY+YZY Q 

Z YZY - Q 


9 Y9 Y9 Y9QYZY 

8ZQY9ZQY9-0 +9Q8-9Q 

Q8QQY+Y8-Y9 QZ 99Y 

9Y9YYYYYYYYY 


9 9 9 

9 9 9 

9 9 9 

9 9 

' 

9 9 9 09 

09 09 - Z9 9 

099 9 99 0 9 

9 999999999 


BTXT.AJO..A8..AAG01S 

B25GG01SB15GKG600.F. 

0YG01SB05GDT0YA.AAGA 

2FFA0YHFAHHA81120009 


BTXT.ANA..AU..AA.CC. 

•X.EXP.CC..X.ACT.ADR 

«XXXXXX.XIOA... 

..81120026 


9 Y9+ Y9 Y9Z 

- QZ - Q 9 Z- - 

2 - Q-8 - QYZQ 

0 -Q RQ9-0Q 


9 Y9Q Y9 Y9 


Y 



9 9 9 


09 9 

9 


9 9 9 


9 



BTXT.AJ8*.A8.•AAACFA 

0YAA6CFA2BAA6DD70YG0 

2FA002G-24D70YA.0YGA 

2MKG600.F.0Y81120010 


BTXT.ANC..AJ..AA.ADR 

.XXXXXX.LINKA....... 


...••81120027 


9 Y9 Y9 Y9Y9-Y 

YY YZQ 9YY Y-8 Z 

08* 8Z 9-8 - ZQ 

Z 9 Z - 


9 Y90 Y9 Y9 

Y 




9 9 9 9 

9 9 

9 9 



9-9 9 

9 




BTXT.AKA.•A8..AAG02M 

KG5H0.BEABA2FGB0MN6F 

KB505GBK4/KB5M5PEA4B 

FB0YG04UKG6W81120011 


BTXT.ANC..A8..AA.CAW 

.xxxxxx.cswccw.csw.x 

XXXXXXX.XXXXXXXX.EXP 

ACTEXP.SNS.X81120028 


9 Y9Q Y9 Y9Z 8 

9 R 8QY9Y89Q8-Z9 Y 

9 Y-8 99 Y YZQ 8 

-9 Z 9 8 


9 Y9 Y9 Y9 





9 Z 9 9 

0 999 99 9 

9 9 9 9 9 



9 9 9 





BTXT•AKQ.•A8.•AAO•FJ 

0YAAAAGA2FAH0YGA2FFH 

0YG012ABAAGA20A.0YGA 

3DAB64-GA20AJ81120012 


BTXT.ANC..A8..AAX.EX 

P.SNS.XX.ACT.LOG.XX. 

XXXXXX.XXXXXX.XXXXXX 

•TST.XXXX•SE81120029 


9 Y9Z Y9 Y9 -Y 

-QQYZY 0-9 ZQ 0-9 

Z -9QYZY Y- ZY 

9-9 -ZQ Y-Y 


9 Y9Q Y9 Y9 





9 9 9 9 

909 9 

09 

9 9 


! 9 Z 9 9 

i 





BTXT.AKJ..A8..AAOYGA 

3DAB6BGA3DHFAHHAA0AA 

6H+EAHDA0AG03BEA0AG. 

20FA2FG03DA.81120013 


! 

BTXT.A03..A8..AAT.SS 

.0.ON.FOR.LOOP.ON.XI 

OT.SS.1.0N.F0R.T10.S 

I0.LOOPAAAAA81120030 


9 Y9Y Y9 Y9 ZY 

9-9 RZY 9RQ9-0QY9ZY 

R YYZQY+YZ* RQY+YZ 

YZQ Z 9- 


9 Y99 Y9 Y9 


8 

YYYYY 


9 9 9 

0 9 

0 9 9 9 - 9 9 

9 


9 9 9 



99999 


BTXT.AKQ..A8..AAOYGA 

3BG03FAJ0YGA3BG03FED 

0DG02FF00YNA6EAEG-3 8 

NA5GA0G-3BAH81120014 


BTXT.AOT*•AS.•AAAAAA 

AAAAAAAAAOAOEAAAAAAA 

AAAAAAJMFAA.UIO.FROM 

.DEVICE.XXXX81120031 


9 Y9 Y9 Y9 ZQ 

RZ R-Y ZQ RZ R—8 

-ZZ+ Y-9 Y 9Q9Z R 

Y QQ9Z R-9 


9 Y98 Y9 Y9YYYY 

YYYYYYYYY9Y99YYY9YYY 

YYYYYY9YQ9Y 



9 9 9 9 

9 9 9 

- 9 9 0 

9 0 


999 9999 

999999999 9 999 999 

999999 Z 9 



BTXT.ALA..A8..AAAAGA 

20A.0YGA3BHCAF.A3SNG 

6060G-3BADAAGA2SAJ0Y 

GA3BAHAH.A3081120015 


BTXT.AOL..A8..AA.RTN 

•BYPASSED.MAKE.DEVIC 

E.RDYLEA.JFGA6DQGH00 

UD07Q+0CDH0081120032 


9 Y9Q Y9 Y9QYZY 

ZY RZYY9 Y 8 9 

Z ZZ R-9QYZY -Y 

ZY RZ0Y9 Y 8 


9 Y90 ; Y9 Y9 


8 Q- Z-ZY Y9QR+ 

R4 9 +QQR4 


999 9 09 

9 9 

09 9 

9 


9 9 9 


99 9 9 

Z 


BTXT.ALH..A8.•AANG6W 

6WGA3FFA0YBM3FB05SAA 

0YGA3FAA0DGA56BU3FBA 

5SE.6EGA5DAA81120016 


BTXT.AOC..AS.•AAS007 

Q+0CHAA0YGA6DB*7MKF7 

N7MA4C JG4KA0C6EB0MK7 

DFA0YE420BA081120033 


9 Y9Z Y9 Y9 9 8 

8 ZY R-9 -Z —♦ 9-9 

ZQ R-9 9ZY 8-9 —Y 

9- 9ZY R-9 


9 Y9Q Y9 Y98R+ 

9 ♦Q—Y ZQ Q- 8 Q 

8 8ZYQY9 Y 9 Y8-Z8 

Q-9 Z Y-Y 


9 9 9 


9 0 9 



9 9 9 9 

Z 9 Z 9 

9 9 Z9 9 9 9 

0 9 


OATE 05MAY65 I0AUG65 15JUN67 


10 

F811-2 

DATE 05MAY65 10AUG65 15JUN67 


ID 

F811-2 

EC 124252 125580 130498 


PAGE 

16 

EC 124252 125580 130498 


PAGE 

16A 






O O 


















occcccccccccc 
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PTXT.APL* 

« AA* 

•AAYG06 

UAA7G*•••»•*•. 


............Aii?nn34 

9 Y99 

Y8 

Y9 Z 

YY8Q 



9 

99 

9 

999Z 



BTXT*APD* 

• A8* 

•AA.PRE 

VIOUS.HANG.UP.DETECT 

EDGAAAGDE.60EA0FAAAA 

0AH0CDEA0FAA81120035 

9 Y9Q 

Y9 

Y9 


9Y9Y9QZ 4ZQ QYYYQ 

YR4QQZQ OYY 

9 0 

9 

9 


9 9 Z 0 Z9999 

9 Z 0 Z99 

BTXT*AP4* 

• A8* 

•AAAJOA 

BOGABAHUE.60H0CHAJCA 

EA1KSAAA0ACJE.BWAAAJ 

CAH0CDEA1KHA81120036 

9 Y9 

Y9 

Y9YY Y 

8 9Y9Y98Z 4R4Q-ZYQQ 

ZQ 98YYQ YQYZ Q Y9ZY 

QYR4QQZQ 9ZY 

9 

9 

9 99 9 

999 Z ZZ 

0 999Z 9Z Z 9 

Z9 Z 0 9 

BTXT.AQU. 

• A8* 

•AAA.1A 

CAHFAHHAABFA82H0CHEA 

0FHAA41ACHE.BWAAHOCD 

AJCAEA1KYAA-81120037 

9 Y98 

Y9 

Y9Y Y 

QQRQ9-0QY9ZQ 8R+Q-ZQ 

QZYY YQOZ Q Y9R4QQ 

ZYQYZQ 99YY 

9 9 

9 

9 9 

ZO 9 9 Z 0 

Z 99 9Z- Z 9 Z 

Z9 0 99 

BTXT*AQM* 

• A8. 

•AAOACO 

B0GACAHAE.60H0CDAJCA 

E.BWAJEA1KYAAOOACOHO 

CHAJCAEA1K4A81120038 

9 Y9Z 

Y9 

Y9 YQ4 

8 9Y9Y9QZ 4R+QQZYQY 

Z Q 9YZG 99YY4 YQ4R4 

Q-ZYQQZQ 98Y 

9 

9 

9 9Z 

9 9 9 0 Z Z9 

Z 9 0 99- 9Z 

Z ZZ 0 99 

BTXT*AQD* 

• A8* 

•AAAAOH 

DJEA1K4AAA0ACJB0DAHS 

E.60H0CHAJCHEA1KYAAA 

0AC0AJC8EA1K81120039 

9 Y9Q 

Y9 

Y9YY 9 

QYZQ 98YYQ YQY8 9Y98 

Z 4R4Q-ZYQ9ZQ 99Y9Y 

YQ-ZYQ9ZQ 9 

9 

9 

9 9 

Z9 0 999 9Z 9 9 

Z Z 0 9 9 

9Z Z 0 

BTXT.AQM. 

• A8. 

•AA4AAA 

1AD-B0GAEAAQE.60H0CD 

A JC AE . B W77EA1KS A A JO A 

C0H0CHAJC8EA81120040 

9 Y9 

Y9 

Y98Y9Q 

YQ 8 9Y9Y89Z 4R+QQ 

ZYQYZ Q 88ZQ 98Y9Y Y 

Q4R4Q-ZYQ9ZQ 

9 

9 

9 99 9 

9Z 9 9 99 Z 

Z9 Z 99 0 99 9 9 

Z Z Z 0 

BTXT.AJD. 

• A8. 

•AA1KYA 

AA1ACAB0FAAAE.60H0CD 

AJCAE.BWAAEA1KYAA.0A 

C0H0CHAJCHEA81120041 

9 Y88 

Y9 

Y9 99Y 

9Q YQQ8 9Y8QZ +R+QQ 

ZYQYZ Q Y9ZQ 99Y9 Y 

Q4R+Q-ZYQ9ZQ 

999 

9 

9 9 

Z Z09 99 Z 

Z9 Z 9 0 9 9 

Z Z Z 0 

BTXT*AJD* 

• A8* 

• AA1KYA .... 

A+OACOHOCDAJCAE.BW77 

EAIKYAA-OACOHOCHA JC8 

EA1K4AA01AD-81120042 

9 Y8Z 

Y9 

Y9 99Y 

9 YQ—R+QQZYQYZ Q 88 

ZQ 99Y9 YQ4R+Q-ZYQ9 

ZQ 98Y94 YQ 

99 

9 

9 9 

9Z Z Z9 Z 99 

0 9 9Z Z Z 

0 99 - 9Z 

BTXT.AJ4. 

• A8* 

•AAAJCA 

EA1K4AAA0ACJB0GAGAAA 

H0CHAJC.B4CGEA1K4AAA 

0ACYB0GAHAAM81120043 

9 Y88 

Y9 

Y9ZYQQ 

ZQ 98Y9Y YQY8 9Y9Y8Q 

R4Q-ZYQ - QZZQ 98Y9Q 

YQ 8 9Y9Y8 

99 

9 

9 ZZ 

0 99 9Z 9 9 990 

Z Z Z 0 99 

9Z 9 9 99 

BTXT*AJD* 

• A8* 

•AAE.60 

AJC.HOCHBGCGEAIK4ABA 

0AC8B0GAAAADE.60HQCH 

AJC4BMCGBACM81120044 

9 Y80 

Y9 

Y9Z + 

ZYQ R4Q—8QZZQ 98Y9Y 

YQ 8 9Y8Y8QZ 4R+Q- 

ZYQ -9QR-YQZ 

99— 

9 

9 

Z Z Z 0 99 9 

9Z 9 9999Z Z 

z z z 

BTXT.AJM* 

* A8* 

•AAEA1K 

4ABA0ADHB0GAAABUE.60 

H0CHAJC4BYCGBACMEA1K 

4ABJ0ADOB0GA81120045 

9 Y8Y 

Y9 

Y9ZQ 9 

8Y9Q YQ98 9YQY89Z 4 

R4Q-ZYQ -9QR-YQZZQ 9 

8Y9Y YQ48 9Y 

999 

9 

9 0 

99 9 9Z 9 9999 

Z Z Z Z 0 

99 9 9Z-9 9 

BTXT.AKU* 

• A8. 

•AAJABD 

E.60M0CHAJC+BYCGBJCM 

EA1K4ABA0AD0B0GAKABD 

E.60AH0JGAB081120046 

9 Y89 

Y9 

Y99Y88 

Z 4R+Q-ZYQ -9QR-YQZ 

ZQ 98Y9Q YQ48 9Y9Y8R 

Z 4-9 ZZYQ4 

99 

9 

9 99 

Z z z z 

0 99 Z 9Z-9 9 990 

z- 

BTXT.AKM* 

• A8* 

•AAAJCH 

H0CHEA1K4AB.0ADJB0GA 

LABAAH0JGABME.60AJCA 

H0CHEA1K6AB481120047 

9 Y88 

Y9 

Y9ZYQ0 

R4Q-ZQ 98Y9 YQY8 9Y 

9Y8Q-9 ZZYQYZ 4ZYQQ 

R4Q-ZQ 98Y9 

99 

9 

9 Z 

Z 0 99 9Z 9 9 

990 Z Z9 

Z 0 99 

BTXT.AKD* 

• A8* 

•AAOADA 

AJCQH0CHEA1KYAB-1ACA 

BOGAMAGGAHOJGABUE.60 

H0CHAJC0EA1K81120048 

9 Y8- 

Y9 

Y9 YQQ 

ZYQ9R4Q-ZQ 99Y9 YQQ 

8 9Y9YQQ-9 ZZYQ Z 4 , 

R4Q-ZYQ4ZQ 9 

99 

9 

9 9ZZ 

Z Z 0 9 ZO 

9 9 9ZZ Z 

Z Z- 0 

BTXT.AKD* 

* A8* 

•AA6AB0 

0ADAAJCYEA1KSABA0AD4 

B0A4A4A-7MKA-A.AA0AB 

:F4BQG4ABVAPM81120049 

9 Y8Y 

Y9 

Y98Y94 

YQQZYQ9ZQ 98Y9Y YQ 

8 Z Y Z 8 9 Y YZZY9 

Z QYZ Y99Y98 

999 

9 

9 99 - 

9Z Z 0 99 9Z 

9 9 9 9 9 9 

Z9 9 9 9 

BTXT.ALD* 

• A8* 

•AAAAAJ 

BAPMAAA4KAPMJAA43APM 

JAAACAPMJAAADAPMJAAA 

BAPMAAA4TAPM81120050 

9 Y89 

Y9 

Y9YYYY 

Y98YYY Y98YYY 9Y98 

YYY99Y98YYY99Y98YYY9 

9Y98YYY 9Y98 

99 

9 

9 999 

9 9999 9 9999 9 9 

999 9 9999 9 9999 

9 9999 9 9 
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BTXT.AL4. 

• A8«. 

• AAAAAA 

BAPM.AA4BAPMAAA4BAPM 

9 Y88 

Y9 

Y9YYY9 

9Y98 YY 9Y98YYY 9Y98 

999 

9 

9 999 

9 9 99 9 9999 9 9 

BTXT*ALD* 

• A8* 

•AA-AA4 

CAPM-AAA3APMJAAAKAPMI 

9 Y8R 

Y9 

Y9 YY 

9Y98 YY99Y98YYY9 Y98 

990 

9 

9 99 

9 9 99 9 9999 9 9 

BTXT.ALM* 

* A8* 

• AADAAA 

AAAABAAAAAAADAAAAALH 

9 Y8Y 

Y9 

Y99YYY 

YYYY9YYYYYYY9YYYYY89 

99 

9 

9 999 

9999 9999999 999999 

BTXT.ALU. 

• A8. 

•AADAAA 

AAL4HAAAAAAADAAAAALH 

9 Y8 

Y9 

Y99YYY 

YY8 9YYYYYYY9YYYYY8Z 

99 

9 

9 999 

999 9999999 999999 

BTXT.AMM. 

. A8. 

•AAMAAM 

AAL8BAAAAAAADAAAAALQ 

9 Y88 

Y9 

Y99YY9 

YY898YYYYYYY9YYYYY89 

999 

9 

9 99 

999 99999999 999999 

BTXT.AMD. 

• AS* 

•AADAAA 

AAAADAAAAAAAHAAAAAAA 

9 Y8R 

Y9 

Y98YYY 

YYYY8YYYYYYY9YYYYYYY 

99 

9 

9 9999 

999999999999 9999999 

BTXT.AMD* 

• AU* 

•AADAAA 

AALHHAAAAAAADAAAAALH 

9 Y8Y 

Y9 

Y99YYY 

YY809YY9YYYY9YYYYY8- 

99 

9 

9 999 

999 99 9999 999999 

BRLD*..*« 

• A8. 

...AAAA 

AAANEAA4AA01AAQHAALA 

9 

Y9 

Y9Y9 

8YQ98YQ88Y988Y908Y89 


9 

9 9 

999 999 99 99 999 

BRLD...*« 

• A8. 

* *•AAAA 

AALAAALAAALJAAL/AAL/ 

9 

Y9 

Y9Y9 

8 Y888Y8R8Y888Y8 8Y88 


9 

9 9 

999 999 999 999 999 

BRLD.*•* « 

• AU. 

...AAAA 

EALQEALYEAL8EAMHEAMJ 

9 

Y8 

Y9Y9 

8 Y8 8Y8 8Y8 8Y898Y8Y 


99 

9 9 

999 999 999 999 9999 


BEND.APQ. *•••• AA.•«» 
9 Y9 Y9 

9 9 


BOAT 

9 
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PAGE 17A 


AAAMBAPDAAAMBAPUAAAM BAPDAAAMKAPM81120051 

YYY99Y9ZYYY99Y98YYY9 9Y9-YYY9 Y98 

99 9 99 9 99 9 999 9 9 

-AA+3APMJAAAAAAAAAAA AAL8HAAAAAAA81120052 

YY 9Y98YYY9YYYYYYYY YY899YYYYYYY 

99 9 9999 99999999 999 9999999 

DAAAAAAAMAAAAALADAAA AAL.HAAAAAAA81120053 

8YYYYYYY9YYYYY8Q8YYY YY8 9YYYYYYY 

99999999 99999999999 999 9999999 

H*AAAAAADAAAAALOHAAA AAAADAAAAAAA81120054 

9 YYYYYY9YYYYY849YYY YYYY9YYYYYYY 

999999 999999- 999 9999 9999999 

DAAAAAAADAAAAAAAHAAA AAAADAAAAALA81120055 

8YYYYYYY9YYYYYYY9YYY YYYY9YYYYY8Q 

99999999 9999999 999 9999 999999Z 

DAAAAALOH*AMAAAADAAA AAAAHAAAAAAA81120056 

9YYYYY8+9 Y9YYYY9YYY YYYY9YYYYYYY 

999999- 9 9999 999 9999 9999999 

HAAAAAAADAAA. *.81120057 

9YY9YYYY9YYY 
99 9999 999 

AALAAALJAALJAAL/AAL/ AALIAALIHALA81120058 

8Y888Y898Y888Y898Y88 8Y898Y889Y8Z 

9999999 9999999 9999 999 9999 99 

AALAAAL1AALAAALIAALA EALJEAL0DAL081120059 

8Y8R8Y888Y808Y808YB^ 8Y8Y8Y848Y8- 

9990999 999 999 999 999 999 999 

EAMAEAM+EAMOEAMADAMJ »»*•»*••»**.81120060 

8 Y8Q8Y8 8Y848Y8Q8Y8Y 
999Z999 999-999 999 

..*****. .*.81120061 


81120062 


81120063 

81120064 

81120065 

81120066 

81120067 

>81120068 

>81120069 

>81120070 

,81120071 

>81120072 

>81120073 


DATE 

EC 


05MAY65 10AUG65 15JUN67 

124252 125580 130498 


ID F811-2 
PAGE 17A 
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,81120074 

,81120075 

,81120076 

,81120077 

,81120078 

,81120079 

,81120080 

,81120081 

,81120082 

,81120083 
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2540 READER FUNCTION TESTS - SECTION 3 F812 


f 


f 

001000 


8120 TITLE 

************************************************************♦*♦**♦*♦♦** 


* ♦ 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

* EXPANSION TO THIS SECTION WAS THE RESULT OF THE TESTING ADDED * 

♦ TO SECTIONS 810 AND 811. * 

♦ 1. THIS SECTION IS THE RIPPLE READ TEST* WHICH WAS FORMERLY * 

♦ LOCATED IN SECTION F811 VERSION 1. * 

* 2. THE PROGRAM INCLUDES TEST NUMBERS AND THE COMMON ERROR * 

♦ ERROR MESSAGE FORMAT. * 

* * 

* E.C. PREREQUISITES * 

♦ MACHINE ... NONE * 

* PROGRAM ... NONE * 

♦ * 

♦ USE DESCRIPTION F810* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 


*********************************************************************** 
XF8120 START 4096 
USING *,15 

* 

♦ 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 
*********************************************************************** 
*********************************************************************** 

* TEST DESCRIPTION 

* 

* 

* ************** 

* ROUTINE 01 

* ************** 

* 

* 0010 - OPERATION ATTEMPTED 

* 

* A WRITE, FEED, AND STACKER SELECT P2 COMMAND -41- IS ISSUED 

* TO THE PUNCH 

* A SENSE COMMAND IS ISSUED IF UNIT CHECK OCCURS DURING THE 

* WRITE COMMAND. 

* 

* EXPECTED RESPONSE 

* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE END SEPARATELY IN 

* TWO CSWS. 

* IF AN ERROR OCCURS IN THIS ROUTINE, THE PROGRAM WILL RETRY 

* IF EXECUTION IS CONTINUED. IF SEVERAL ERRORS OCCUR, IT IS 

* SUGGESTED THAT THE PUNCH DIAGNOSTICS BE CALLED INTO STORAGE. 

* 

* 

* ************** 

* ROUTINE 02 

* ************** 

* 

* 0020 - OPERATION ATTEMPTED 

* 

* ISSUE A READ NO FEED COMMAND -C2- TO THE READER. THE READ 

* DATA IS COMPARED TO EXPECTED DATA AND ERRORS ARE INDICATED 

* IF ACTUAL AND EXPECTED DATA ARE NOT EQUAL. TWO DIAGNOSTIC 

* CHECK READ COMMANDS ARE ATTEMPTED. THE DIAGNOSTIC CHECK 

* READ DATA IS TESTED COLUMN BY COLUMN FOR ANY ERRORS. 

* THE FOLLOWING HEADING WILL BE OUTPUT AFTER THE INITIAL 

* INFORMATION MESSAGE WHICH IS EXPLAINED IN THE DESCRIPTION 

4 UNDER -STATUS MESSAGES-. 

* 


DATE 

EC 


15JUN67 
130498 


ID F 812-0 
PAGE 1 
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2540 READER FUNCTION TESTS - SECTION 3 F812 




4 

4 

4 


A FEED, STACKER SELECT 

RI -23- IS ISSUED TO THE READER. 




4 

4 


EXPECTED RESPONSE 






4 


CONDITION CODE 1 • 

-COMMAND IMMEDIATE WITH CHANNEL AND DEVICE 




4 


ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 




* 

4 


DETECTED DURING THE FEED COMMAND. 




4 0040 
4 

- 

OPERATION ATTEMPTED 





4 


A READ, FEED, STACKER SELECT R1 -02- IS ISSUED IF SECTION 




4 


SENSE SWITCH 10 IS ON. 

IF AN ERROR IS DETECTED A SENSE 




* 


COMMAND IS ISSUED 

IN THE 1-0 HANDLER, AND TWO DIAGNOSTIC 




4 


CHECK READ COMMANDS ARE 

ISSUED TO ALLOW TESTING THE RETURNED 




* 


CHECK READ INFORMATION. 

IF AN ERROR IN THE NORMAL READ DATA 




4 


OR THE CHECK READ 

DATA 

OCCURS, THE ERROR INDICATION LISTED 




4 

4 


UNDER TEST NUMBER 

0020 

WILL BE OUTPUT. 




* 

4 


EXPECTED RESPONSE 






4 


CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED 




4 

4 


IN SEPARATE CSWS. 

SENSE 

IS ISSUED IF UNIT CHECK OCCURS. 




* 

******************************************************* **************** 



******************* 


***4444444444444444 



* SECTION 

PREFACE 4444444444 * 4 * 44*4444444444444444444 SECTION PREFACE 

4 



******************* 


**44444444444444444 

001000 

F8I20000 

SECNO 

DC 

XL4 *F8120000* 


PROGRAM,SECTION AND REVISION NOS. 

4 

001004 

00000000 

SNSW 

DC 

XL4*00* 


SECTION SENSE SWITCHES 

4 

001008 

0000 


DC 

XL2 *00 * 



4 

Q0100A 

0000 

I CM 

DC 

X L2 *00 * 


INTERRUPTION CONDITION MASK 

4 

00100C 

00 

SOMF 

DC 

XLI *00 * 


SECTION DM FLAGS 

4 

00100D 

02 

NIOU 

DC 

XL1*02 8 


NUMBER OF UNIT TABLE ENTRYS 

4 

00100E 

CO 

FLAG! 

DC 

X e CO® 


EXCLUSIVE CPU 

4 

OOIOOF 

00 

FLAG2 

DC 

X»00» 


I/O INT ARE ERR, EXT INT TO PROG 

4 

001010 

0104000000 

INPSW 

DC 

X*0104000000® 


DISABLED, SPVSR STATE, NO PGM MASK 

4* 

001015 

001AF 8 


DC 

AL3(ROUTO1 ) 


ADR OF 1ST ROUTINE PREFIX 

* 

001018 

0000000000000000 

EXOPSW 

DC 

XL8 ®0® 


SECTION OLD EXTERNAL PSW 

4 . 

001020 

0000000000000000 

SVQPSW 

DC 

X L8 ®Q0 * 


CLEAR ALL OLD P$W$ 

* 

001028 

0000000000000000 

PGOPSW 

DC 

XL8 *00 ® 


PROGRAM OLD PSW 

* 

001030 

0000000000000000 

MCOPSW 

DC 

XL8 ®0Q * 


MACHINE CHECK OLD PSW 

4 

001038 

0000000000000000 

loopsy 

DC 

XLS'OO® 


I/O OLD PSW 

4 

001040 

0000000000000000 

csw 

DC 

XL8 * 00 * 


CHANNEL STATUS WORD 

4 

001048 

00000000 

CAW 

DC 

X L4 *00 * 


CAW 

4 

00104C 

000000000000000000 


DC 

XL12®00® 


RESERVED FOR DM USE 

4 

001055 

000000 







001058 

0004000000 

EXNPSW 

DC 

X *0004000000® 


EXTERNAL NEW PSW 

4 

00105D 

000000 

SRET 

DC 

XL3 ®0 ® 


ADR OF EXT INTRPT ROUTINE 

4 

001060 

0000000000000000 

SVNPSW 

DC 

XL8 *00 ® 


SUPERVISOR NEW PSW 

4 

001068 

0000000000000000 

PGNPSW 

DC 

XL8 ®00 * 


PROGRAM NEW PSW 

4 

001070 

0000000000000000 

MCNPSW 

DC 

XL8*0Q® 


MACHINE CHECK NEW PSW 

4 

001078 

01040000 

IONPSW 

DC 

XL4®01040000® 


I/O NEW PSW 

4 

00107C 

Q0OO1IF 2 


DC 

AL4 CIRETRNI 


ADDRESS OF I/O INTRPT ROUTINE 

4 

001080 



DS 

96C 


96 BYTE REG DUMP AREA FOR DM USE 

4 

0010E0 

81 

UNIT! 

DC 

X ®8I® 


UNIT TYPE - 2540 READER 


O01OE1 

00 

U10P 

DC 

X®00« 


OPTIONAL FEATURES BYTE 

4 

0010E2 

8000 

U1ADDR 

DC 

X *8000 • 


FLAGS AND CHAN/UNIT ADDRESS 

4 

0010E4 

82 

UNIT2 

DC 

X *82 * 


UNIT TYPE - 2540 PUNCH 


0010E5 

00 

U20P 

DC 

X®00« 


OPTIONAL FEATURES BYTE 


0010E6 

8000 

U2A0DR 

DC 

X *8000 • 


FLAGS AND CHAN/UNIT ADDRESS 




44444444444444444444444444444444444444444444444444444444444444444444444 



4 

OPTIONAL FEATURE BYTE DEFINITION 




4444444444444444 * 44444*444444444444444444444444444444444444444444444444 



* * BIT < 

0 * BIT 1 * BIT 2 

4 BIT 

3 * BIT 4 4 BIT 5 4 BIT 6 4 BIT 7 * 




* * HEX 1 

3 4 HEX 4 4 HEX 2 

4 HEX 

1 * HEX 8 * HEX 4 4 HEX 2 4 HEX 1 4 




* * ASCII * CARD * 

4 51 

4 1400 444 2821 4 


DATE 

15JUM67 





ID F812 

!-0 

EC 

130498 





PAGE 

2 


DATE 15J UN 67 

EC 130498 


IMAGE 


* COL RD* COMP 

* * 


* 2 CHN 

* SW. 


******************************************************44444444444444444 
* 2540 READER SENSE BYTE 

44444444444444444444444444444444444444444444444444444444444444444444444 


♦ 

* 

* 

♦ 

* 

♦ 

♦ 

4 

4 


BIT MEANING 

0 COMMAND REJECT 

1 INTERVENTION REQUIRED 

2 BUS OUT CHECK 

3 EQUIPMENT CHECK 

4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

5 OVERRUN - NOT USED 

6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED . 

7 NOT USED 


44444444444444444444444444444444444444444444444444444444444444444444444 


4 


2540 READER STATUS BYTE 


44444444444444444444444444444444444444444444444444444444444*44444444444 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


BIT MEANING 

0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 
SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 
A 1400 COMPATIBILITY READ. 

1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

3 DEVICE BUSY 

" 4 CHANNEL END 

5 DEVICE END 

6 UNIT CHECK 

7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

FILE WAS ON. 


44444444444444444444444444444444444444444444444444444444444444444444444 


4 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 

44444444444444444444444444444444444444444444444444444444444444444444444 
4 BIT MEANING 

4 0 NOT USED 

* 1 NOT USED 

4 2 NOT USED 

4 3 XU CHECK PLANE 

* 4 XL CHECK PLANE 

4 5 BUFFER PARITY CHECK 

4 6 READ TRANSLATE CHECK 

4. 7 READER BUFFER ADDRESS CHECK 

******************************************************** 4 ************** 


*********************************************************************** 
*********************************************************************** 


* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

*********************************************************************** 


4 

BAL 

Rll, IS 10 

LINK TO 1-0 HANDLER 

4 

DC 

XL2 *0000* 

CONTROL SWITCHES 

4 

DC 

X *0014* 

TEST NO. IN DEC EXPRESSED IN HEX 

4 

DC 

X *F0 • 

EXPECTED COND. CODE 

4 

DC 

X*00* 

EXPECTED SENSE DATA 

4 

DC 

AL2(ADR-BASE+REG) 

ADDR. OF EXPECTED CSW IF NEEDED 


4444444444444444444444444444444444 ************************************* 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 
*********************************************************************** 



DESCRIPTION 

OFF - ISSUE AN 1-0 COMMAND 

ON - DO NOT ISSUE AN 1-0 COMMAND 

OFF - ENABLE 

ON - DO NOT ENABLE 

OFF - EXPECT NO INTERRUPT 

ON - EXPECT AN INTERRUPT 

OFF - DO NOT EXPECT 2 INTERRUPTS 

ON - EXPECT 2 INTERRUPTS 

OFF - EXPECT NO CSWS 
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* ON - EXPECT A CSW 

* 5 - OFF - do mot EXPECT 2 CSWS 

* ON - EXPECT 2 CSWS 

* 6 - OFF - ALWAYS TRY TO ISSUE SENSE 

* ON - SENSE ON UNIT CHECK ONLY 

* 8 - OFF - DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMDS 

* ON - ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS 

* 

*********************************************************************** 
*********************************************************************** 
* SWITCHES USED BY 1-0 HANDLER 

*********************************************************************** 


* 

* 

SWITCH 

n _ 

DESCRIPTION 

ncc _ Kin u ampi i n nil niTcncirc 

♦ 

* 

u 

1 


urr 

ON 

net: 

- 

inu um im cr\r«uc 

HANGUP OCCURRED 

Mn rcuc CTnDcn 

♦ 

* 

i 


urr 

ON 

ncc 

- 

rJU vuno j 1 UK t U 

ONE CSW STORED 

ccrnwn rcu mot ocrcT\/cn 

* 

* 

C 

•a 


urr 

ON 

ncc 

- 

5 CLUlMU von iMU 1 K lL Cl V CU 

SECOND CSW RECEIVED 
nt n Kinr cmari c 

♦ 

* 

D 

A 


urr 

ON 

ncc 

- 

UIU riUI cinAdLC 

ENABLED ONCE 

nt n mht cmaai c tu ire 

* 

* 

C 


urr 

ON 

ncc 

- 

UIU in U I cIMAdLC I n ItC 

ENABLED TWICE 

Kin c cmc c hata d crcxvcn 

* 

* 

6 


urr 

ON 

ncc 

- 

IMU oClMoC UAIA Kctcivtu 

SENSE DATA RECEIVED 

Kin IlMCYDCfTCn TWTCD55HDT CDHM IIKlIfKinUM nCWITC 

♦ 

* 

-y 


urr 

ON 

ncc 

- 

IMU UrMCAKculCU ill 1 CKKUr 1 rKUn UN IV. IMU W In UC V ItC 

UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

Kin econo ncTcrTcn 

* 

9 


urr 

ON 

- 

nu CKKUK UC1 Cv#l CU 

AN ERROR WAS DETECTED 


*********************************************************************** 

* REGISTERS USED IN 1-0 HANDLER 
*********************************************************************** 

t * REG COMMENTS 

* 5 .USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED. 

* 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

* 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

* 

* 11 MUST BE USED AS LINK REG TO THIS ROUTINE 

* * 

* 12 MUST CONTAIN DEVICE ADDRESS 

* 

*********************************************************************** 
OO1OE0 0000 ISW DC XL2'0* 

*********************************************************************** 
*********************************************************************** 
* *l-o HANDLER SUB-ROUTINE * 

*********************************************************************** 


0010EA 

92 

9C 

F 

18C 



ISIO MVI 

ISSUE,X*9C* 

SET UP FOR START 1-0 

0010EE 

92 

9C 

F 

132 



MVI 

IL00P,X*9C* 


0010F2 

92 

E2 

F 

889 



MVI 

I0PT1+25,X* E2* 

MOVE -S- TO OPTION MSG. 

0010F6 

92 

E2 

F 

7F0 



MVI 

I0ADDR+12,X«E2» 


0010FA 

02 

01 

F 

86C 

B 

002 

IEYEOH MVC 

ITSTNO+5(2),2 < Rll) 

SAVE TEST NUMBER 

001100 

90 

09 

F 

778 



STM 

RO , R9 , IS AV E 

SAVE WORK REGISTERS. 

001104 

D2 

00 

F 

98F 

F 

003 

MVC 

RTSV 11),SECNO+3 

SAVE RT NO. FOR HANGUP. 

00110A 

50 

AD 

0 

048 



CONP ST 

RIO,HCAW(R13) 

STORE CMD ADDRESS. 

00110E 

D7 

07 

D 

040 

D 

040 

XC 

HCSW(8,R13),HCSW(R13) 


001114 

D7 

OB 

E 

080 

E 

080 

XC 

LOGOUT(12,R14),LOGOUT(R14) 

00111A 

91 

80 

8 

000 



TM 

0(Rll)fX* 80* 

CHECK CONTROL SWITCH FOR 

0011IE 

47 

10 

F 

1C2 



BC 

ALL,INOW 

BR. IF ON 

001122 

91 

CO 

F 

004 



TM 

SNSWtX *C0 # 


001126 

47 

80 

F 

16E 



BC 

NONE,JOHN 



uv nunbigunn 

*********************************************************************** 
* SENSE SWITCH LOOPS 


DATE 

EC 
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*********************************************************************** 


00112A 

• 91 

80 

F 

004 


ITRY1 

TM 

SNSWtX *80• 

CHECK SECTION SENSE SWITCH 0 , 

00112E 

47 

80 

F 

13A 



BC 

NONE, I TRY 2 

BR. IF OFF 

001132 

9C 

00 

C 

000 


I LOOP 

SIO 

0(R12) 

SIO, TIO, OR HIO 

001136 

47 

FO 

F 

12A 



BC 

UNC,ITRY1 

BR. UNCONDITIONAL 

00113A 

91 

40 

F 

004 


ITRY2 

TM 

SNSW,X*40* 

CHECK SECTION SENSE SWITCH 1 

00113E 

47 

80 

F 

15A 



BC 

NONE,IHI 

BR. IF OFF 

001142 

9D 

00 

C 

000 


IHANG 

TIO 

0(R12) 

TEST 1-0 

001146 

47 

70 

F 

12A 



BC 

NCCO,ITRY1 

BR. IF NOT COND. CODE 0 

00114A 

91 

40 

F 

004 



TM 

SNSW,X *40* 

CHECK SECTION SENSE SWITCH 1 

00114E 

47 

80 

F 

15A 



BC 

NbNE,IHI 

BR. IF OFF 

001152 

9C 

00 

C 

000 



SIO 

0(R12) 

START 1-0 

001156 

47 

FO 

F 

142 



BC 

UNC,IHANG 

BR. UNCONDITIONAL 

00115A 

58 

9E 

0 

198 


IHI 

L 

R9 , WT (R14) 

PICK UP DM WAIT FACTOR. 

0Q115E 

88 

90 

0 

003 



SRL 

R9,3 

CUT IT DOWN TO 1.25 SECS. 

001162 

9D 

00 

c 

000 


GREG 

TIO 

0(R12) 

TEST 1-0 TO DEVICE. 

001166 

47 

80 

F 

16E 



BC 

CCO,JOHN 

BR IF AVAILABLE. 

00116A 

46 

90 

F 

162 



BCT 

R9,GREG 

LOOP UNTIL TIME OUT. 

00116E 

D7 

01 

F 

OE 8 F 

0E8 

JOHN 

XC 

ISW(2),ISW 

ZERO THE 1-0 HANDLER SWITCHES. 

001174 

96 

80 

F 

OE 8 



01 

ISW,X•80 • 

TURN ON THE HANG SWITCH. 

001178 

94 

00 

F 

AD9 



NI 

CRSW,X•00 * 

ZERO DIAG MSG SW. 

00117C 

94 

00 

F 

ADC 



N1 

DERS,X*00» 

ZERO THE DATA ERR SW. 

001180 

94 

00 

F 

AD7 



NI 

HDSW,X•00 * 

ZERO THE HEADING SWITCH. 

001184 

92 

E7 

F 

845 



MVI 

IACSN$+5,C*X* 

MOVE AN X INTO THE ACTUAL SENSE DATA 

001188 

92 

E7 

F 

7DF 



MVI 

IACTCC+5,C* X * 

MOVE IN A -X- 

00118C 

9C 

00 

C 

000 


ISSUE 

SIO 

OCR12) 

1-0 COMMAND- SIO, TIO, OR HIO 

001190 

47 

80 

F 

1BE 



BC 

CCO,I ZERO 

BR. IF COND. CODE 0 

001194 

47 

40 

F 

1 AC 



BC 

CC1,IONE 

BR. IF COND. CODE 1 

001198 

47 

20 

F 

1A4 



BC 

CC2,ITWO 

BR. IF COND. CODE 2 

00119C 

92 

F3 

F 

7DF 



MVI 

I ACTCC+5,X* F3* 

INDICATE COND. CODE 3 

0011A0 

47 

FO 

F 

1C 2 



BC 

UNC,INOW 

BR. UNCONDITIONAL 

0011A4 

92 

F2 

F 

7DF 


I TWO 

MVI 

IACTCC+5,X»F2* 

INDICATE COND. CODE 2 

0011A8 

47 

FO 

F 

1C 2 



BC 

UNC,I NOW 

BR. UNCONDITIONAL 

0011AC 

92 

FI 

F 

7DF 


I ONE 

MVI 

IACTCC+5,X'Fl* 

INDICATE COND. CODE 1 

0011B0 

D2 

07 

F 

7A0 D 

040 


MVC 

ICSW1(8),HCSW(R13I 

SAVE CSW 

0011B6 

96 

40 

F 

OE 8 



01 

ISWfX*40 l 

INDICATE 1 CSW 

0011BA 

47 

FO 

F 

1C2 



BC 

UNC,I NOW 

BR. UNCONDITIONAL 

0011BE 

92 

FO 

F 

7DF 


I ZERO 

MVI 

IACTCC+5,X® FO* 

INDICATE COND. CODE 0 

0011C2 

94 

7F 

F 

OE 8 


1 NOW 

NI 

ISW,X• 7F* 

TURN OFF HANG UP SWITCH 

0011C 6 

91 

40 

B 

000 



TM 

0(R11),X«40* 

CHECK CONTROL SWITCH FOR NO ENABLE 

0011CA 

47 

10 

F 

266 



BC 

ALL,1SEN 

BR. IF ON 

001ICE 

96 

10 

F 

OE 8 



01 

ISW,X'10« 

INDICATE ENABLED ONCE 

0011D2 

58 

9E 

0 

198 


IWAIT 

L 

R9 , WT (R14 ) 

LOAD DM WAIT FACTOR 

0011D6 

88 

90 

0 

003 



SRL 

R9,3 

ADJUST 

001IDA 

96 

80 

F 

OE 8 



01 

ISW,X*80« 

TURN ON HANG UP SW 

001IDE 

80 

00 

F 

98D 



SSM 

MSK1 

ENABLE 

001 IE 2 

46 

90 

F 

1E2 



BCT 

R9, * 

WAIT 

0011E6 

80 

00 

F 

98E 



SSM 

MSK2 

DISABLE 

00 HE A 

94 

7F 

F 

OE 8 



NI 

ISW,X *7F® 

TURN OFF HANG SW 

0011EE 

47 

FO 

F 

266 



BC 

UNC,ISEN 

BR. UNCONDITIONAL 







*********************************************************************** 







* 


ALL 1-0 

INTERRUPTS RETURN HERE 







*********************************************************************** 

001 IF 2 

49 

CO 

F 

03A 


. IRETRN 

CH 

RI2,IOQPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

0011F6 

47 

60 

F 

214 



BC 

UNEQ,IUIO 

BR. IF UNEQUAL 

001IFA 

94 

7F 

F 

OE 8 



NI 

ISW,X*7F« 

RESET HANG UP SW 

001 IF E 

91 

40 

F 

OE 8 



TM 

ISWfX^O* 


001202 

47 

10 

F 

244 



BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

001206 

D2 

07 

F 

7A0 F 

040 


MVC 

ICSW1(8)» HCSW(R15) 

SAVE CSW 1 

00120C 

96 

40 

F 

OE 8 



01 

ISW,X*.40* 

INDICATE 1 CSW STORED 

001210 

47 

FO 

F 

24E 



BC 

UNC,INT3 

BR. UNCONDITIONAL 

001214 

D2 

07 

F 

7B8 F 

040 

IUIO 

MVC 

WORK(8),HCSW(R15) 


00121A 

OA 

DD 





SVC 

X * DD # 

CONVERT ADDRESS 

00121C 

0002 





DC 

AL2(2) 

2 BYTES OF 1-0 OLD PSW. 

0012IE 

003A 





DC 

AL2(100PSW+2-S ECNO) 

FROM HERE. 

001220 

09A 1 





DC 

AL2(IUNEX+17-SECN0 ) 

TO HERE 

001222 

.. OA 

DO 





SVC 

X * DO* 

PRINT UNEXPECTED INTERRUPT DEVICE 

001224 

64 






DC 

X *64* 

ADDRESS 


DATE 

15 J UN 67 

ID 

F812-0 

EC 

130498 

PAGE 

3A 





BM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840572 
PAGE 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM p/N 840572 

PAGE 4A 

2540 READER FUNCTION TESTS - SECTION 3 F812 


00133A 

05 

07 

F 

7A0 

F 

7A0 

1CCSW1 CLC 

ICSW1(8),ICSW1 

COMPARE FOR EXPECTED CSW 

001340 

47 

60 

F 

366 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001344 

91 

04 

B 

000 



TM 

0 ( R11) , X •04* 


001348 

47 

80 

F 

30C 



BC 

NONEyIN0EX2 

BR. IF NO CSW 2 EXPECTED 

00134C 

91 

20 

F 

OE 8 



TM 

ISWyX'20* 


001350 

47 

80 

F 

366 



BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

001354 

41 

88 

0 

008 



LA 

R8,8(R8) 

UPDATE TO SECOND CSW 

001358 

40 

80 

F 

360 



STH 

R8,ICCSW2+4 


00135C 

05 

07 

F 

7A8 

F 

7A8 

ICCSW2 CLC 

ICSW2(8),IC5W2 

COMPARE FOR EXPECTED CSW 2 

001362 

47 

80 

F 

36A 



BC 

EQ,IDUNCK 

BR. IF EQUAL 

001366 

96 

01 

F 

OE 8 



1NDER 01 

ISWyX•01* 

INDICATE AN ERROR 

00136A 

92 

64 

F 

3AA 



IDUNCK MVI 

IFLAGl,X•64* 

SET UP FOR ERROR PRINTOUT 

00136E 

92 

CO 

F 

542 



MVI 

IFLAG2,X•CO• 


001372 

91 

01 

F 

0E8 



TM 

ISW,X * 01 * 

CHECK FOR A DETECTED ERROR 

001376 

. 47 

10 

F 

38A 



BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

00137A 

91 

01 

F 

004 



TM 

SNSWyX*01 # 

CHECK SECTION SENSE SWITCH 7 

00137E 

47 

80 

F 

55E 



BC 

NONE,ILEAVE 

BR. IF OFF 

001382 

92 

24 

F 

3AA 



MVI 

IFLAGl,X•24* 

SET UP FOR CORRECT PRINTOUT 

001386 

92 

80 

F 

542 



MVI 

IFLAG2,X* 80* 


00138A 

95 

40 

F 

845 



IOUTIT CLI 

IACSNS+5,X'40* 

SEE IF INTERVENTION REQUIRED. 

00138E 

47 

80 

F 

5DC 



BC 

EQyRRM 

BR IF YES. 

001392 

91 

01 

F 

7A4 



TM 

ICSW1+4,X»01* 

SEE IF UNIT EXCEPTION. 

001396 

47 

10 

F 

5DC 



BC 

ALLyRRM 

BR IF YES. 

00139A 

D2 

01 

F 

86C 

8 

002 

MVC 

ITSTNO+5(2),2(R11) 

MOVE TEST NO. TO PRINT AREA. 

0013A0 

OA 

DD 





SVC 

X • DD * 

CONVERT TEST NUMBER 

0013A2 

0002 





DC 

AL2I2S 


0013A4 

086C 





DC 

AL2CITSTN0+5-SECN0) 


0013A6 

086C 





DC 

AL2(ITSTNQ+5-SECN0) 


0013A8 

OA 

DO 





SVC 

X • DO * 

PRINT TEST NUMBER 

0013AA 

64 






IFLAG1 DC 

X *64* 


0013AB 

09 






DC 

X *09 * 


0013AC 

F86 7 





DC 

AL2(ITSTNO-SECNO+REG) 


0013AE 

41 

80 

0 

004 



LA 

R8,4 

ADJUST LINK ADDRESS FOR PRINTOUT 

0013B2 

IB 

B8 





SR 

Rll,R8 


0013B4 

50 

BO 

F 

7F8 



ST 

Rll,ILINK+5 


0013B8 

OA 

DD 





SVC 

X • DD* 

CONVERT LINK ADDRESS 

0013BA 

0003 





DC 

AL2C3) 


0013BC 

07F 9 





DC 

AL2ULINK+6-SECNQ) 


0013BE 

07F 8 





DC 

AL2ULINK+5-SECNQ) 


0013C0 

OA 

DO 





SVC 

X * DO • 

PRINT LINK ADDRESS 

0013C2 

AO 






DC 

X • AO 1 


0013C3 

10 






DC 

X*10* 


0013C4 

F7F 3 





DC 

AL2IILINK-SECNO+REG) 


0013C6 

41 

BB 

0 

004 



LA 

R11,4{R1U 


0013CA 

91 

80 

B 

000 



TM 

0(Rll),X•80* 


0013CE 

47 

10 

F 

44C 



BC 

ALL,IQCSW 

BR. IF NO 1-0 COMMAND ISSUED 

001302 

OA 

DD 





SVC 

X' DD* 

CONVERT 1-0 ADDRESS 

0013D4 

000 3 





DC 

AL2(3) 


001306 

098A 





DC 

AL2CI0ADR-SECNO) 


0013D8 

07E 9 





DC 

AL2 C10ADDR+5-SECNO) 


00130A 

OA 

DO 





SVC 

X * DO • 

PRINT 1-0 ADDRESS 

0013DC 

AO 






DC 

X • AO • 


001300 

OF 






DC 

X *0F* 


0013DE 

F7E 4 





DC 

AL2(1OADDR-S ECNO+REG) 


0013E0 

95 

9C 

F 

18C 



CLI 

ISSUE,X»9C» 

COMPARE FOR SIO COMMAND 

0013E4 

47 

60 

F 

43A 



BC 

UNEQ,ICCOUT 

BR. IF NOT 

0013E8 

50 

AO 

F 

808 



ST 

RlO , ICAW+5 

STORE CCW ADDR. 

0013EC 

OA 

DD 





SVC 

X • DD* 

CONVERT CAW 

0013EE 

0003 





DC 

AL2C3I 


0013F0 

0809 





DC 

AL2(ICAW+6—S ECNO j 


0013F2 

0808 





DC 

AL2(ICAW+5-SECN0) 


0013F4 

OA 

DO 





SVC 

X*DO* 

PRINT CAW 

0013F6 

AO 






DC 

X * AO • 


0013F7 

oa 






DC 

X •OB* 


0013F8 

F803 





DC 

AL2CICAW-S ECNO+REG) 


0013FA 

D2 

02 

F* 

816 

F 

812 

MVC 

IBLAH+K3), ICCW 

MOVE -CCW- TO MESSAGE 

001400 

92 

16 

F 

435 



MVI 

ICNT tX*16* 

ADJUST COUNT 

001404 

D2 

07 

F 

7B8 

A 

000 

ICWOUT MVC 

WORK(8),0(RIO) 

MOVE CCW TO WORK AREA 



DATE 

EC 


15JUN67, 

130498 
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00140A 

45 

90 

t F 

41E 



00140E 

91 

CO 

i A 

004 



001412 

47 

80 

i F 

43A 



001416 

41 

AA 

C 

> 008 



00141A 

47 

FO 

F 

404 



0014 IE 

OA 

DD 





001420 

0008 





001422 

078 8 





001424 

078 8 





001426 

D2 

07 

F 

61A 

F 

7B8 

00142C 

D2 

07 

F 

823 

F 

7C0 

001432 

OA 

DO 





001434 

AO 






001435 

1A 






001436 

F 81 5 





001438 

07 

F9 





00143A 

D2 

00 

F 

70 5 

8 

004 

001440 

OA 

DO 





001442 

AO 






001443 

OA 






001444 

F7D0 





001446 

OA 

DO 





001448 

AO 






001449 

OA 






00144A 

F7DA 





00144C 

D2 

02 

F 

816 

F 

80F 

001452 

92 

1A 

F 

435 



001456 

91 

08 

B 

000 



00145A 

47 

80 

F 

47E 



00145E 

D2 

02 

F 

82C 

F 

832 

001464 

48 

8B 

0 

006 



001468 

40 

80 

F 

478 



00146C 

41 

88 

0 

008 



001470 

40 

80 

F 

4A8 



001474 

02 

07 

F 

78 8 

F 

7B8 

00147A 

45 

90 

F 

41E 



00147E 

91 

40 

F 

OE 8 



001482 

47 

80 

F 

496 



001486 

02 

02 

F 

82C 

F 

82F 

00148C 

D2 

07 

F 

788 

F 

7A0 

001492 

45 

90 

F 

41E 



001496 

91 

04 

B 

000 



00149A 

47 

80 

F 

4AE 



00149E 

D2 

02 

F 

82C 

F 

832 

0014A4 

D2 

07 

F 

788 

F 

788 

0014AA 

45 

90 

F 

41E 



0014AE 

91 

20 

F 

OE 8 



00 14B2 

47 

80 

F 

4C6 



001486 

D2 

02 

F 

82C 

F 

82F 

0014BC 

D2 

07 

F 

78 8 

F 

7A8 

0014C2 

45 

90 

F 

41E 



0014C6 

D2 

00 

F 

83A 

8 

005 

0014CC 

91 

04 

F 

0E8 



0014D0 

47 

80 

F 

4F0 



0014D4 

OA 

DD 





0014D6 

000 

1 






0014D8 083A 

0014DA 083A 

0014DC OA DO 

0014DE AO 

00I4DF 08 

0014E0 F 83 5 

0014E2 OA DD 

0014E4 0001 

0014E6 0845 

0014E8 0845 

0014EA OA 00 

0014EC AO 


BAL 

TM 

BC 

LA 

BC 

ICOUT SVC 
DC 
DC 
DC 
MVC 
MVC 
SVC 
DC 

ICNT DC 
DC 
BCR 

ICCOUT MVC 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 

IOCSW MVC 
MV I 
TM 
BC 
MVC 
LH 
STH 
LA 
STH 

ICHNG1 MVC 
BAL 

IDIDI TM 
BC 
MVC 
MVC 
BAL 

IMORST TM 
BC 
MVC 

ICHNG2 MVC 


R9 f ICOUT 
4(RIO),X'CO* 

NONE,ICCOUT 
RIO,8(RIO) 

UNC,ICWOUT 
X ‘DD* 

AL2(8) 

AL2(WORK—S ECNO) 

AL2(WORK-S ECNO) 

IBLAH+5(8),WORK 
IBLAH+14(8)»WORK+8 
X ' DO * 

X • AO • 

X * 1A • 

AL2(IBLAH-S ECNO+REG) 
UNC,R9 

I EX PCC+5(1),4(R11) 

X * DO' 

X * AO • 

X *0A• 

AL2(I EX PCC-S ECNO+REG 3 
X 'DO* 

X'AO' 

X *0A* 

AL2(I ACT CC-SECNO+REG) 
IBLAH+1(3),ICSW 
1CNT,X * 1A* 

0(Rl1),X *08* 

NONE,IDIDI 
IBLAH+23(3),I EXP 
R8,6(Rl1) 

R8,ICHNG1*4 
R8,8(R8) 

R8,ICHNG2+4 
WORK(8),WORK 
R9,ICOUT 
ISW »X *40• 

NONE,IMORST 
IBLAH+23(3),IACT 
WORK(8),ICSW1 
R9,ICOUT 
0(Rll),X•04* 

NONE,I DID 
I BLAH + 23(3),I EXP 
WORK(8),WORK 
R9,ICOUT 
ISW,X•20• 

NONE,IPAS 
IBLAH+23(3),IACT 
WORK(8),ICSW2 
R9,ICOUT 

IEXSNS+5(1),5(R11) 

ISW,X *04• 

NONE,I PASS 
X'DD* 

AL2(1) 

AL2(IEXSNS+5-S ECNO) 
AL2(IEXSNS+5-SECN0) 

X * DO • 

X * AO * 

X *08* 

AL2(IEXSNS-SECNO+REG) 
X'DD* 

AL2(l I 

AL2(I ACSN5+5-SECNO) 

AL2(IACSNS+5-SECNO) 

X 'DO* 

X ' AO' 


BR. TO OUTPUT CCW 

CHECK FOR ANY CHAIN FLAGS 

BR® IF NONE 

UPDATE TO NEXT CCW 

BR. UNCONDITIONAL 

CONVERT 


MOVE TO MESSAGE 


RETURN VIA REG 9 

MOVE EXP CC TO MESSAGE 

PRINT EXPECTED CUND. CODE 


PRINT ACTUAL COND. CODE 


MOVE -CSW- TO MESSAGE 
ADJUST COUNT 

BR. IF NO CSW EXPECTED 
MOVE -EXP- TO MESSAGE 


MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTED CSW 

BR. IF NO CSW STORED 

MOVE -ACT- TO MESSAGE 
MOVE ACTUAL CSW TO WORK AREA 
BR. TO OUTPUT ACTUAL CSW 

BR. IF NOT EXPECTING 2 CSWS 

MOVE -EXP- TO MESSAGE 
MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTED CSW 2 

BR. IF NO SECOND CSW STORED 
MOVE -ACT- TO MESSAGE 
MOVE CSW TO WORK AREA 

MOVE EXP SENSE TO MESSAGE 

BR. IF NO SENSE DATA RECIEVED 
CONVERT EXPECTED SENSE 


PRINT EXPECTED SENSE 


PRINT ACTUAL SENSE DATA 


DATE 

EC 


15JUM67 

130498 
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0015CC 

91 02 

F 

0E9 

0015D0 

47 10 

F 

634 

0015D4 

96 01 

F 

0E8 

0015D8 

47 FO 

F 

5C2 

0015DC 

OA DO 



0015DE 

2410 



0015E0 

F 954 



0015E2 

OA DA 



0015E4 

9D 00 

C 

000 

0015E8 

OA DO 




0015EA 

00I5EC 


8001 

F954 


0015EE 

47 

FO 

F 

10A 

0015F2 

58 

9E 

0 

198 

0015F6 

88 

90 

0 

002 

0015FA 

50 

8D 

0 

048 

0015FE 

9C 

00 

C 

000 

001602 

47 

70 

F 

622 

001606 

9D 

00 

C 

000 

00160A 

47 

40 

F 

614 

00160£ 

46 

90 

F 

606 

001612 

07 

FT 



001614 

91 

04 

D 

044 

001618 

47 

80 

F 

60E 

00 161C 

96 

80 

F 

0E9 

001620 

07 

F7 



001622 

91 

01 

F 

7A4 

001626 

47 

10 

F 

10A 

00162A 

91 

F4 

F 

845 

00162E 

47 

10 

F 

10A 

001632 

07 

F7 



001634 

91 

60 

F 

0E9 

001638 

47 

50 

F 

652 

0Q163C 

91 

80 

F 

AD9 

001640 

47 

10 

F 

6A2 

001644 

OA 

DO 



001646 

8026 



001648 

F964 



00164A 

96 

80 

F 

AD9 

00164E 

47 

FO 

F 

6A2 

001652 

92 

FO 

F 

938 

001656 

91 

10 

4 

000 

00165A 

47 

80 

F 

662 

001656 

92 

FI 

F 

938 

001662 

92 

FO 

F 

938 

001666 

91 

08 

4 

000 

00166A 

47 

80 

F 

672 

00166E 

92 

FI 

F 

935 

001672 

92 

FO 

F 

93E 

001676 

91 

04 

4 

000 

00167A 

47 

80 

F 

682 

00167E 

92 

FI 

F 

93E 

001682 

92 

FO 

F 

942 

001686 

91 

01 

4 

000 

00168A 

47 

80 

F 

692 

00168E 

92 

FI 

F 

942 

001692 

92 

FO 

F 

947 

001696 

91 

02 

4 

000 

00169A 

47 

80 

F 

6A2 

DATE 

15JUN67 



EC 

130498 




ISIP 

TM 

ISW+l,X*02* 

SEE JF 1ST PASS SW ON* 


BC 

ALL,IGOP 

BR IF YES 


01 

ISW,X*01* 

INDICATE AN ERROR 


BC 

UNC,ISSW 

BR TO EXIT ROUTINE 

JM^*******^*************^******************************** ************ 

* 

INTERVENTION REQUIRED ROUTINE 

s**************************************************^^^^^^^^^^ 

RRM 

SVC 

X * DO * 

PRINT -MAKE DEVICE READY- 


DC 

X *2410• 



DC 

AL2(MDR-S ECNO+REG) 



SVC 

X • DA* 

HALT ! 


TIO 

0 f R121 

TEST 1-0 


SVC 

X *D0 * 

PRINT A BLANK. 


DC 

x*eooi* 



DC 

AL2(MDR-SECNO+REG) 



BC 

UNC,CONP 

BR TO CONTINUE. 

fr********************************************************^^^^^^^ : 

* 

AUXILIARY START 1-0 ROUTINE 

' 

♦^s***************************************************^^^^^^^^ j 

ISTRT 

L 

R9 , WT C R14 ) 

LOAD DM WAIT FACTOR. i 


SRL 

R9,2 

CUT IT DOWN TO 2.5 SECS. 


ST 

R8 9 HCAW f R13 I 

STORE IN CAW I 


SIO 

0 ( R121 

START 1-0 , | 


BC 

NCCO,I BACK 


ITIOLP 

TIO 

0(R12) 

TEST i~Q 


8C 

CC1,ILQKE 

BR. IF CSW STORED | 

I TIC 

BCT 

R9,XTIOLP 



BCR 

UNC,R7 

RETURN. 

I LORE 

TM 

HCSW4-4 (R13}»X* 04* 

CHECK FOR DEVICE END. 


BC 

NONE,ITIC 

8R IF NOT IN YET. 


01 

I$W+ 1 , X 9 80 * 

INDICATE THE DATA RECEIVED. 1 


BCR 

UNC,R7 

RETURN. j 

IBACX 

TM 

ICSW1+4,X®01* 

SEE IF UNIT EXCEPTION. 


BC 

ALL,CONP 

BR IF YES. ! 


TM 

I ACSNS-*-5 ,X * F4® 

SEE IF INTERVENTION REQUIRED. 


BC 

ALL,CONP 

BR IF YES. j 


BCR 

UNC,R? 

RETURN. 

******************************************************* <[%+J)t * !|ll|tJ|l#jM:#tjMj|tJ({ 

* 

DATA 

PRINTOUT ROUTINE 


************************************** •fr**************,^^.^^^.^,^.^^ 

IGOP 

TM 

ISW+1 ,X *60 * 

SEE IF AT LEAST ONE CHK READ OK. 


BC 

ANY,COPT 

BR IF YES. 


TM 

CR$W»X *80* 

SEE IF MSG ALREADY PRINTED. 


BC 

ALL,NTC 

BR IF YES. 


SVC 

X*00» 

PRINT BOTH CHK READS FAILED. 


DC 

X *8026* 



DC 

AL2 CTCRA-S ECNO-fREG ) 



01 

CRSW,X*80* 

TURN ON SWITCH FOR MSG. 


BC 

UNC,NTC 

GO TO MSG. 

COPT 

MV I 

GOODY*22,C # 0» 

MOVE ZERO INTO PRINT AREA. 

*■ 

TM 

0(R4),X*10* 

SEE IF XU ON IN DIAG CHK READ BYTE. 


BC 

NONE,NXU 

BR IF NOT ON. ■ 


MV I * 

GOODY +22,C*1 * 

MOVE ONE INTO PRINT AREA. j 

NXU 

MV! 

GOODY+25 , C* 0* 

PUT ZERO INTO PRINT AREA. 


TM 

0 t R4),X *08 * 

SEE IF XL ON IN DIAG CHK DATA. 


BC 

NONE,NXL 

BR IF NOT ON. 


MV I 

G0QDY+25,C*I* 

MOVE ONE INTO PRINTOUT 1 

NXL 

MV I 

G00DY+28,C'0' 

MOVE ZERO INTO PRINTOUT. ! 


TM 

0 ( R4),X *04* 

SEE IF BUFFER PARITY ON IN CHK DATA. I 


BC 

NONE,NBP 

BR IF NOT ON. j 


MV I 

GOODY +28 , C*1* 

MOVE A ONE INTO PRINTOUT. I 

N8P ; 

MV I 

GOODY-*-32 , C* 0* 

MOVE A ZERO INTO PRINTOUT. 


TM 

0 CR4I,X*01* 

SEE IF ADDR CHK IN CHK DATA | 


BC 

NONE,NAC 

BR IF NOT. , j 


MV I 

G000Y+32,C*1* 

MOVE A ONE INTO THE PRINTOUT. 1 

NAC 

MV I 

GOODY-*-37 , C* 0* 

MOVE A ZERO INTO PRINTOUT. ‘ ! 


TM 

01R41,X *02 * 

SEE IF TRANSLATE CHK ! 


BC 

NONE,NTC 

BR IF NO. i 


00169E 

92 

FI 

F 

947 





MV I 

GQODY+37,C*l* 

MOVE A ONE INTO PRINTOUT. 

0016A2 

91 

80 

F 

AD7 




NTC 

TM 

HDSW,X*80' 

SEE IF HEADING PRINTED. 

0016A6 

47 

10 

F 

6CC 





BC 

ALL,I PDA 

BR IF YES. 

0016AA 

OA 

DO 







SVC 

X * DO • 

PRINT 1ST HDR. 

0016AC 

A 00 9 







DC 

X * A009 * 


0016AE 

F8A6 







DC 

AL2(HD1-SECN0+REG) 


0016BQ 

OA 

DO 







SVC 

X * DO * 

PRINT CARD LOCATION IN READER. 

00I6B2 

A 014 







DC 

X * A0I4* 


0016B4 

F8AF 







DC- 

AL2(HD1A-SECNO+REG) 


0016B6 

OA 

DO 







SVC 

X 'DO* 

PRINT A BLANK. 

00I6B8 

A 001 







DC 

X•AOO1 * 


0016BA 

F8D9 







DC 

AL2(BIG-SECNO+REG) 


0016BC 

OA 

DO 







SVC 

X *D0* 

PRINT HEADING 3. 

0016BE 

A022 







DC 

X•A022* 


0016C0 

F80 9 







DC 

AL2(BIG-SECNO+REG) 


00I6C2 

OA 

DO 







SVC 

X * DO • 

PRINT HEADING 4. 

0016C4 

A 02 7 







DC 

X•A027• 


0016C6 

F8FB 







DC 

AL2(BEAUTY-SECNO+REG > 


0016C8 

96 

80 

F 

AD7 





,, 01 

HDSW,X * 80• 

TURN ON THE HEADING SW. 

0016CC 

18 

42 






I PDA 

~ LR 

R4,R2 

PUT THE COLUMN NO. INTO REG 4. 

0016CE 

4E 

40 

F 

7B0 





CVD 

R4,DBWD 

CONV IT TO DECIMAL. 

0016D2 

F3 

11 

F 

924 

F 

78 6 



UNPK 

GOODY+2(2),DBWD+6(2) 

PUT IT INTO PRINT AREA. 

0016D8 

96 

FO 

F 

925 





01 

GQODY+3,X * FO * 

COVER SIGN UP FOR PRINTING. 

0016DC 

91 

20 

F 

004 





TM 

SNSW,X•20 * 

SEE IF SSW 2 ON. 

00I6E0 

47 

10 

F 

75E 





BC 

ALL,PRGD 

BR IF YES TO PRINT ONLY DIAG DATA. 

0016E4 

D2 

00 

F 

7B0 

T 

000 



MVC 

DBWD(1),0(R7) 

MOVE ACTUAL DATA TO CONVERT AREA. 

O016EA 

OA 

DO 







SVC 

X • DD* 

CONVERT FROM HEX TO BINARY. 

0016EC 

0001 







DC 

AL2(01) 

1 BYTE. 

0016EE 

07B0 







DC 

AL2(DBWD-S ECNO) 

FROM HERE. 

0016F0 

0934 







DC 

AL2(G00DY+18-SECN0) 

TO HERE 

0016F2 

OA 

DD 







SVC 

X *DD* 

CONVERT FROM HEX TO BINARY. 

0016F4 

0001 







DC 

AL2 (01) 

I BYTE. 

00I6F6 

OAD 8 







DC 

AL2(ICODAT-SECNO) 

FROM HERE 

0016F8 

0930 


• 





DC 

AL2(G00DY+14-SECNO) 

TO HERE 

0016FA 

90 

04 

F 

D54 





STM 

R0,R4,TWENTY 

SAVE REGISTERS 

0016FE 

Id 

11 







SR 

R1,R1 

ZERO REG 1 

001700 

IS 

22 







SR 

R2,R2 

ZERO REG 2. 

001702 

IB 

33 







SR 

R3,R3 

ZERO REG 3. 

001704 

41 

40 

0 

002 





LA 

R4,2 

LOAD DIVISOR 

001708 

43 

30 

F 

AD8 





IC 

R3,ICODAT 

PICK UP HEX CHARACTER 

00170C 

18 

13 







LR 

R1,R3 

SAVE HEX CHARACTER 

00170E 

10 

24 







DR 

R2,R4 

DIVIDE HEX CHARACTER BY 2 

001710 

1A 

31 







AR 

R3,R1 

ADD DIVIDEND TO CHARACTER 

001712 

43 

13 

F 

D6A 





IC 

Rl,HOLES CR3) 

PICK UP FIRST BYTE 

001716 

89 

10 

0 

008 





SLL 

R1,8 

SHIFT 

00171A 

43 

13 

F 

D68 





ic 

Rl»H0LES+1CR3) 

PICK UP SECOND BYTE 

0017 IE 

41 

30 

0 

OFF 





LA 

R3,255 

LOAD MASK 

001722 

14 

23 







NR 

R2,R3 

AND WITH REMAINDER 

001724 

47 

50 

F 

72C 





BC 

ANY,*+8 

BR. IF THERE WAS A REMAINDER 

001728 

88 

10 

0 

004 





SRL 

Rl ,4 

SHIFT OFF UNUSED 4 BITS 

00172C 

50 

10 

F 

7B0 





ST 

Rl,DBWD 

SAVE REG 1. 

001730 

41 

40 

0 

006 





LA 

R4,6 

SET UP FOR 6 POSSIBLE PUNCHES 

001734 

41 

30 

0 

QOC 





LA 

R3,12 

SET UP TO CHECK 12 PUNCHES 

001738 

41 

00 

0 

001 





LA 

RO, 1 

LOAD MASK 

00173C 

43 

23 

F 

947 




PIK 

IC 

R2,PUNCHS-1(R3) 

PICK UP PRINTABLE CHARACTER 

001740 

58 

10 

F 

7B0 





L 

Rl,DBWD 

RESTORE REG 1. 

001744 

14 

10 







NR 

Rl, RO 

TEST FOR PUNCH 

001746 

47 

80 

F 

752 





BC 

NONE,NXT 

BR. IF NONE 

00174A 

42 

24 

F 

927 





STC 

R2,GOODY +5(R4 ) 

STORE PRINTABLE CHARACTER 

00174E 

46 

40 

F 

752 





BCT 

R4,*+4 

DECREMENT PRINT AREA INDEX 

001752 

89 

00 

0 

001 




NXT 

SLL 

RO, 1 

SHIFT MASK FOR NEXT BIT 

001756 

46 

30 

F 

73C 





BCT 

R3,PIK 

BR. UNTIL 12 CHECKED 

00175A 

98 

04 

F 

D 54 





LM 

R0,R4,TWENTY 

RESTORE REGISTERS 

00175E 

OA 

DO 






PRGD 

SVC 

X • DO • 

PRINT THE DATA. 

001760 

8026 







DC 

X *8026' 


001762 

F922 







DC 

AL2(GOODY-SECNO+REG) 


001764 

47 

FO 

F 

5B2 





BC 

UNC,IRTU 

RETURN TO COMPARE RTN. 
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ID F812-0 
PAGE 6A 


O 0 0 O 


0 0 O O 






IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840572 
PAGE 7 

2540 READER FUNCTION TESTS - SECTION 3 F812 


* 1-0 HANDLER WORK AREA. 

*********************************************************************** 


001768 

04 001845 0000 0001 

I SENSE CCW 

X'04',IACSNS+5,X'00 

001770 

C 6 001A 84 2000 0050 

DCRO CCW 

X 1 C6 * * CHK BU F * X • 20 • , J 

001778 

00000000 

I SAVE DC 

10F *0• 

00177C 

00000000 



001780 

00000000 



001784 

00000000 



001788 

00000000 



00178C 

00000000 



001790 

oooooooo 



001794 

00000000 



001798 

oooooooo 



00179C 

oooooooo 



0017A0 

0000000000000000 

' ICStol DC 

XL8 *0 • 

0017A8 

0000000000000000 

ICSW2 DC 

XL8 *0• 

0017B0 

+00.00000000000000 

DBWD DC 

D '0 * 

0017B8 


WORK DS 

24C 

0017DO 

40C3C34040E740C5E7 

IEXPCC DC 

C' CC X EXP' 

0017D9 

D7 



0017DA 

40C 3C 34040E740C1C3 

IACTCC DC 

C' CC X ACT' 

0017E3 

E3 



0017E4 

40C1C4D940E7E7E7E7 

iOADpR DC 

C' ADR XXXXXX XIO' 

0017ED 

E7E 740E7C9D6 


0017F3 

00 

DC 

X'OO' 

0017F4 


CNOP 

0,4 


0017F3 

ORG 

*-l 

0017F3 

40C1C4D940E7E7E7E7 

I LINK DC 

C' ADR XXXXXX LINK' 

0017FC 

E7E740D3C9D5D2 



001803 

00 

DC 

X'OO' 

001804 


CNOP 

0,4 


001803 

ORG 

*-l 

001803 

40C 3CIE 640E7E 7E7E7 

ICAW DC 

C' CAW XXXXXX • 

00180C 

E7E740 



00180F 

C3E2E6 

ICSW DC 

C'CSW' 

001812 

C3C3E6 

ICCW DC 

C'CCW' 

001815 

40C3E2E 640E7E7E7E7 

I BLAH DC 

C' CSW XXXXXXXX XX* 

0018 IE 

E7E 7E7E 740E7E7 



001825 

E7E 7E7E7E7E740C5E7 

DC 

C'XXXXXX EXP* 

00182E 

D7 



00182F 

C1C3E3 

I ACT DC 

C'ACT• 

001832 

C5E7D7 

I EXP DC 

C • EXP» 

001835 

40E2D5E240E7E740C5 

IEXSNS DC 

C* SNS XX EXP' 

00183E 

E7D 7 



001840 

40E2D5E240E7E740C1 

IACSNS DC 

C» SNS XX ACT* 

001849 

C3E3 



00184B 

40D 3D6C740E7E740E7 

IOLOG DC 

C' LOG XX XXXXXX X' 

001854 

E7c 7E7E 7E740E7 



00185B 

E7E7E7E7E740E7E7E7 

DC 

C'XXXXX XXXXXX' 

001864 

E7E7E7 



001867 

40E3E2E340E7E7E7E7 

ITSTNO DC 

C' TST XXXX' 

001870 

40E2C5E340E2E240F0 

I0PT1 DC 

C* SET SS 0 ON FOR* 

001879 

40D 6D540C 6D6D9 



001880 

40D3D6D6D740D6D540 

DC 

C» LOOP ON XIO, SS' 

001889 

E7C9D66B40E2E2 



001890 

40F140D6D540C6D6D9 

DC 

C* 1 ON FOR TIO SI» 

001899 

40E 3C9D 640E2C9 



0018A0 

D640D306D6D7 

DC 

C'O LOOP* 

0Q18A6 

40D 9C 5C 1C 440C 5D 9D 9 

HD1 DC 

C' READ ERR' 

0018AF 

40C3CID 9C44OC9D54 0 

HD1A DC 

C» CARD IN » 

0018B8 

D70 9C5E2E3D2D940E2 

DC 

C* PRESTKR STA' 

0018C1 

E3C1 



0018C3 

D7D 9C 5E 2E 3D2D940E 2 

PRES DC 

C'PRESTKR STA' 

0018CC 

E3C 1 



001BCE 

E2E 3C 1C3D2C 5094009 

STK1 DC 

CSTACKER Rl.' 

0018D7 

F14B 



0018D9 

404 0404040C5E 7D 7C 5 

BIG DC 

C EXPECTED SH* 

0018E2 

C3E3C 5C440E2C8 
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0018E9 

C44040404040404040 


DC 

C'D B' 


0018F2 

404040404040C 2 





0018F9 

E4C 6 


DC 

C'UF' 


0018FB 

40C3D6D340D7E4D5C3 

BEAUTY 

DC 

C' COL PUNCHES RD' 


001904 

C8C 5E£4040D9C4 





00190B 

404 OD 9C440E7E 440E 7 


DC 

C' RD XU XL PAR A' 


001914 

D340D7C1D940C1 





0019 IB 

C40940E3D9C1D5 


DC 

C'DR TRAN' 


001922 

404040404040404040 

GOODY 

DC 

C» * 


00192B 

40404040404040 





001932 

404040404040404040 


CTC 

C' • 


00193B 

40404040404040 





001942 

404040404040 


DC 

C' • 


001948 

E3C 5F0F 1F2F3F4F5F6 

PUNCHS 

DC 

C'TEO123456789' 


001951 

F 7F 8F 9 





001954 

4004C1D2C 540C4C5E5 

MDR 

DC 

C MAKE DEVICE RDY' 


00195D 

C9C 3C 540D9C4E 8 





001964 

40F240t4C9ClC740C3 

TCRA 

DC 

C* 2 DIAG CHK RDS ' 


00196D 

C80 240D9C4E240 





001974 

C IE 3E3C5D4D7E3C5C4 


DC 

C'ATTEMPTED -BOTH • 


00197D 

4060C2D6E3C840 





001984 

C6C 1C9D3C 5C4 


DC 

C'FAILED' 


00198A 

00118C 

IOADR 

DC 

AL3(ISSUE) 


00198D 

FE 

MSK1 

DC 

X * FE* 


00198E 

01 

MSK2 

DC 

X'Ol' 


00198F 

00 

RTS V 

DC 

X'OO' 

SAVE RT NO. FOR HANGUP. 

001990 

40E 4C 90 64 OC 6D 9D6D4 

IUNEX 

DC 

C UIO FROM DEVICE' 


•001999 

40C 4C5E5C 9C3C5 





0019A0 

40E 7E7E7E7 


DC 

C' XXXX' 




*********************************************************************** 



* 


INITIALIZE ROUTINE 



*********************************************************************** 

0019A6 

IB DD 

I NIT 

SR 

R13,R13 

ZERO REG 13 

0019A8 

91 40 E 196 


TM 

406(R14),X*40* 

CHECK FOR FORCED PROBLEM STATE 

0019AC 

47 80 F 9B2 


BC 

NONE,NITWIT 

BR. IF NOT 

0019B0 

18 DF 


LR 

R13 * R15 

SET UP FOR PROBLEM STATE 

0019B2 

58 CO F 0E4 

NITWIT 

L 

R12,UNIT2 

PICK’UP THE PUNCH UNIT TABLE. 

0019B6 

54 CO F A30 


N 

R12 »M0D50 

SAVE ONLY THE PUNCH ADDR. 

0019BA 

50 CO F A24 


ST 

Rl2,PCH 

SAVE IT 

0019BE 

58 CO F OEO 


L 

R12 jUNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

0019C2 

54 CO F A30 


N 

R12,M0D50 

SAVE ONLY THE READER ADDR. 

0019C6 

50 CO F A20 


ST 

R12,RDR 

SAVE IT 

0019CA 

D7 02 F AD4 F AD4 


XC 

MSSW(3),MSSW 

ZERO AUXILIARY SWITCHES. 

0019D0 

IB 66 


SR 

R6,R6 

ZERO REG 6. 

001902 

43 6E 0 1B9 


IC 

R6,DMIQL{R14 ) 

PUT LENGTH OF DMIO TABLE INTO 6. 

001906 

4A 6E 0 1BC 


AH 

R6,DMPT R(R14) 

ADD OFFSET ADDRESS TO LENGTH. 

00190A 

1A 6E 


AR 

R6 »R14 

ADD BASE REG VALUE. 

00190C 

06 60 


BCTR 

R6,0 

SUBTRACT 2 TO GET 

00190E 

06 60 


BCTR 

R6,0 

TO LOADER ADDR. 

0019E0 

49 C6 0 000 


CH 

R12»0(R6) 

SEE IF TEST DEVICE IS LOADER. 

0019E4 

47 60 F 9EC 


BC 

UNEQ,BLOOP 

BR IF NOT. 

0019E8 

96 80 F AD6 


01 

LDSW,X'80* 

TURN ON LOADER SW. 

0019EC 

91 80 F OE 8 

BLOOP 

TM 

ISW,X*80* 

CHECK FOR HANG UP 

0019F0 

47 10 F A04 


BC 

ALL,HANGUP 

BR. IF DETECTED 

0019F4 

92 40 F A34 


MV I 

BUFFER,C • 

CLEAR DATA AREA. 

0019F8 

D2 9E F A35 F A34 


MVC 

BUFFER+1C159),BUFFER 

CLEAR DATA AREA. 

0019FE 

41 AO F D48 


LA 

RIO,NOOP 

PUT ADDR OF NOOP INTO REG 10. 

001A02 

07 F4 


BCR 

UNC,R4 

RETURN VIA REG 4 

001A04 

D2 00 F 003 F 98F 

HANGUP 

MVC 

SECNO+3(1),RTSV 

RESTORE RT NO. 

001A0A 

OA DO 


SVC 

X * DO * 

PRINT 

001A0C 

64 


DC 

X '64 * 

-PREVIOUS HANGUP DETECTED- 

OOIAOD 

1A 


DC 

X * 1 A' 


001A0E 

FADD 


DC 

AL2(HUNG-SECNQ+REG) 


001A10 

96 01 F OE 8 


01 

ISW.X'Ol* 

TURN ON ERROR SWITCH* 

001A14 

45 50 F 28E 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

001A18 

92 00 F 0E8 


MV I 

ISW,X'00» 

RESET HANGUP SWITCH 

001A1C 

47 FQ F 9EC 


BC 

UNC,BLOOP 


001A 20 



CNOP 

0,4 
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001A20 
00IA 24 
001A28 
00IA2C 
001A30 
001A34 
001A84 
001AD4 
OOIAD5 
001A06 
001AD7 
00IAD8 
001AD9 
001ADA 
001AD8 
001ADC 
001A0D 
001AE6 
001AED 
OOIAF6 
OOIAF8 


00000000 

00000000 

00000051 

00000000 

00003FFF 


* AUXILIARY WORK AREA* 


RDR DC F *0 9 

PCH DC F *0 9 

ATE1 DC F 9 81 9 

CNTR DC F 9 0 9 

M0D50 DC X 9 00003FFF* 

BUFFER DS 80C 

CHKBUF DS 80C 

MSSW DC X 9 00 9 

PS DC X 9 00 9 

LDSW DC X*00 9 

HDSW DC X«00 9 

ICODAT DC X 9 00 9 

CRSW DC X 9 00 9 

FIRST DC X *00 9 

SFLE DC X*00 9 

DERS DC X 9 00* 

HUNG DC C 9 PREVIOUS HANG U 9 

DC C 9 P DETECTED 9 

CNOP 0,4 

* ROUTINE 01 - IF SECTION SENSE SWITCH 9 IS ON, THIS ROUTINE WILL 

* PUNCH A SET OF DATA CARDS FOR USE IN THE RIPPLE READ 

* ROUTINE. IF SECTION SENSE SWITCH 4 IS ALSO ON, MANY 

* SETS WILL BE PUNCHED CONTINUOUSLY. 

R0UT01 DC X 9 01 9 ROUTINE NUMBER 

DC AL3 tR0UT02-SECN0! ADDRESS OF NEXT ROUTINE 

TM SNSW+1,X 9 40 9 SEE IF SENSE SW 9 IS ON. 

BC NONE,EXTP BR IF NOT. 

BAL R4,INIT BR TO INITIALIZE. 

0! PS,X•80 9 TURN ON 1ST PASS SW. 

DAG SR R7,R7 INITIALIZE 1ST BYTE TO ZERO. 

BAL R4,INDAT BR TO SET UP PUNCH DATA. 

LA R6,27 PUT 27 INTO REG 6. 

L R12,PCH PUT PUNCH ADDR. INTO REG 12. 

LA RIO,PCHCMD PUT PUNCH CMD ADDR* INTO REG 10. 

PSIO BAL Rll,IS 10 BR TO ISSUE START 1-0. 

DC X *3E00 9 CTRL SWITCHES 

DC X'QOIO 9 TEST NUMB ER 

DC X 9 FOOO 9 EXP COND. CODE AND SENSE. 

DC AL2(EXP3-SECN0+REG) EXP CSW ADDR, 

TM ICSW1+4,X *02 9 SEE IF UNIT CHECK IN 1ST CSW. 

BC ALL,BU102 BR IF ON. 

TM ICSW2+4,X 9 02 9 SEE IF UNIT CHECK IN 2ND CSW. 

BC ALL,BU102 BR IF ON. 

TM ISW,X«01» SEE IF ERROR OTHER THAN UNIT CHK. 

BC ALL,PSIO BR IF YES. 

NI PS,X 9 7F* * TURN OFF 1ST PASS SW. 

SR R7,R7 ZERO REG 7. 

IC R7,BUFFEK+7 PICK UP 8TH COLUMN OF DATA IN BUFFER 

BAL R4,INDAT BR TO SET UP NXT CARD DATA. 

BCT R6, PS 10 BR TO PCH ALL 27 CARDS. 

TM SNSW,X 9 08 9 SEE IF SENSE SW 4 IS ON. 

BC ALL,DAG BR IF YES. 

MVC SFLE(l),BUFFER SAVE LAST BUFFER CHAR. 

BAL R4,INIT BR TO INITIALIZE. 

L R12,PCH PUT PCH ADDR INTO REG 12. 

PBLK LA RIO,PCHCMD PUT THE PCH CMD INTO REG 10. 

BAL Rll,IS 10 BR TO ISSUE START I-Q 

DC X 9 3E00 9 CTRL SWITCHES 

DC X 9 0010 f TEST NUMBER 

DC X 9 FOOO 9 EXP COND CODE AND SENSE. 

DC AL2(EXP3-SECNO+REG) EXP CSW ADDRESS. 


40D7D9C 5E5C9D6E4E2 
40C 8C1D5C740E4 
D740C4C5E3C5C3E3C5 ' 
C4 


00 1A F 8 

01 




R0UT01 

DC 

X 9 01 9 

001AF9 

OOOBDC 



DC 

AL3(R0UT02-SECN0J 

001AFC 

91 

40 

F 

005 


TM 

SNSW+1,X*40 9 

001B00 

47 

80 

F 

B9E 


8C 

NONE,EXTP 

001B04 

45 

40 

F 

9A6 


BAL 

R4 , INIT 

001B08 

96 

80 

F 

ADS if 


0! 

PS *X 9 80 * 

001B0C 

18 

77 



DAG 

SR 

R7,R7 

001B0E 

45 

40 

F 

BAO 


BAL 

R4,INDAT 

001812 

41 

60 

0 

018 


LA 

R6,27 

00 IB 16 

58 

CO 

F 

A24 


L 

R12,PCH 

00 IB1A 

41 

AO 

F 

D38 


LA 

RIO,PCHCMD 

00 IB IE 

45 

80 

F 

OEA 

PSIO 

BAL 

Rll, IS 10 

001B22 

3E00 




DC 

X 9 3E00 9 

001B24 

0010 




DC 

X 9 Q010* 

001826 

FOOO 




DC 

X 9 FOOO 9 

001B28 

FF04 




DC 

AL2(EXP3-SECNO+REG) 

001B2A 

91 

02 

F 

7A4 


TM 

IC$W1+4,X *02* 

001B2E 

47 

10 

F 

BBA 


BC 

ALL,BU102 

001B32 

91 

02 

F 

7AC 


TM 

ICSW2+4,X 9 02* 

001B36 

47 

10 

F 

BBA 


BC 

ALL,BU102 

001B3A 

91 

01 

F 

OE 8 


TM 

ISW,X»01 9 

001B3E 

47 

10 

F 

B IE 


BC 

ALL,PSIO 

001B42 

94 

7F 

F 

ADS 


NI 

PS ,X 9 7F* * 

001B46 

18 

77 




SR 

R7,R7 

001B48 

43 

70 

F 

A3B 


IC 

R7,BUFFER+7 

00184C 

45 

40 

F 

BAO 


BAL 

R4,INDAT 

001B50 

46 

60 

F 

B IE 


BCT 

R6 * PS 10 

001B54 

91 

08 

F 

004 


TM 

SNSW,X *08 9 

001858 

47 

10 

F 

BOG 


BC 

ALL,DAG 

001B5C 

D2 

00 

F 

ADB F A34 


MVC 

SFLE(l),BUFFER 

001B62 

45 

40 

F 

9A6 


BAL 

R4,INIT 

001B66 

58 

CO 

F 

A24 


L 

R12,PCH 

001B6A 

41 

AO 

F 

038 

PBLK 

LA 

RIO,PCHCMD 

001B6E 

45 

BO 

F 

OEA 


BAL 

RlitlSIO 

001872 

3E00 




DC 

X 9 3E00 9 

001874 

0010 




DC 

X 9 0010 9 

001B76 

FOOO 




DC 

X 9 FOOO 9 

001B73 

FF04 




DC 

AL2(EX P3-S ECNO+REG) 
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00187A 

IB 

66 




SR 

R6,R6 

ZERO REG 6. 

001B7C 

02 

00 

F 

A34 F ADB 


MVC 

BUFFER(1),SFLE 

RESTORE LAST CHAR IN BUFFER. 

001B82 

91 

02 

F 

7A4 


TM 

ICSW1+4,X 9 G2 9 

SEE IF UNIT CHK IN 1ST CSW. 

001B86 

47 

10 

F 

BBA 


BC 

ALL,BU102 

BR IF YES. 

001B8A 

91 

02 

F 

7AC 


TM 

iCSW2+4»X 9 02 9 

SEE IF UNIT CHK IN 2ND CSW. 

001B8E 

47 

10 

F 

BBA 


BC 

ALL,BU102 

BR IF YES. 

001B92 

92 

40 

F 

A34 


MVI 

BUFFER,C 9 9 

MOVE A BLANK TO BUFFER. 

00IB96 

91 

01 

F 

OE 8 


TM 

ISW,X 9 01 9 

SEE IF ERROR OTHER THAN UNIT CHK 

001B9A 

47 

10 

F 

B6A 


BC 

ALL,PBLK 

BR IF YES. 

001B9E 

OA 

06 



EXTP 

SVC 

X 9 D6 9 

ROUTINE EXIT 


^ * v rs i/w rvuu V 1 ST L. LAI V 

*************************^*************************♦♦***«************* 
* SET UP PUNCH DATA HERE 

**********************+*+**++**+******+*********++**++*++++++++++++++++ 


001BA0 

41 

80 

F 

A 34 



INDAT 

LA 

R8,BUFFER 

PUT ADDR OF BUFFER INTO REG 8. 

001BA4 

41 

50 

0 

050 




LA 

R5,80 

PUT 80 INTO REG 5. 

001BA8 

• 42 

78 

0 

000 



PIB 

STC 

R7,0 (R8 ) 

STORE THE CHARACTER INTO THE BUFFER. 

001BAC 

41 

77 

0 

001 




LA 

R7,1 (R7) 

ADD 1 TO THE DATA BYTE 

001BB0 

41 

88 

0 

001 




LA 

R8,1{R8) 

ADD 1 TO BUFFER ADDR. 

001BB4 

46 

50 

F 

BA8 




BCT 

R5,PIB 

BR UNTIL FULL BUFFER. 

001BB8 

07 

F4 






BCR 

UNC,R4 

RETURN. 








*********************************************************************** 








♦ 

PUNCH 

ERROR ROUTINE. 









*********************************************************************** 

001BBA 

91 

80 

F 

AD5 



BU102 

TM 

PS,X 9 80 9 

SEE IF 1ST PASS. 

001BBE 

47 

10 

F 

B IE 




BC 

ALL,PSIO 

BR IF YES. 

001BC2 

IB 

77 






SR 

R7,R7 

ZERO REG 7. 

001BC4 

43 

70 

F 

A34 




IC 

R7,BUFFER 

PICK UP 1ST BYTE IN BUFFER. 

001BC8 

4B 

70 

F 

D68 




SH 

R7,SEV 

SUB. 7 FROM THE 1ST BYTE. 

OOlBCC 

45 

40 

F 

BAO 




BAL 

R4,INDAT 

BR TO GEN PREVIOUS CARD DATA. 

001BD0 

41 

66 

0 

001 




LA 

R6,1 (R6 ) 

ADD 1 TO CD COUNTER TO COMPENSATE. 

001BD4 

96 

80 

F 

ADS 




01 

PS,X 9 80 9 

TURN ON PASS SW. IN CASE 2 ERRS. 

001BD8 

47 

FO 

F 

B IE 




BC 

UNC,PSIO 

BR TO PUNCH ROUTINE. 

001BDC 








CNOP 

0,4 









*********************************************************************** 








* ROUTINE 02 

- RIPPLE READ TEST. READ 27 DETAIL CARDS. 








*********************************************************************** 

001BDC 

02 






R0UT02 

DC 

X *02 9 

ROUTINE NUMBER 

001BDD 

OOFFFF 





DC 

X 9 OOFFFF 9 

LAST ROUTINE 

001BE0 

45 

40 

F 

9A6 




BAL 

R4,INIT 

BR TO INITIALIZE 

001BE4 

D7 

03 

F 

A2C 

F 

A2C 


XC 

CNTR,CNTR 

ZERO THE CARD COUNTER 

001BEA 

91 

80 

F 

AD6 




TM 

LDSW,X *80 9 

SEE IF LOADER IS TEST DEVICE. 

001BEE 

47 

10 

F 

C12 




BC 

ALL,IN2 

BR IF YES. 

00 IB F 2 

OA 

DO 






SVC 

X 9 DO 9 

PRINT -DO NOPRO, PUT DETAIL CDS INTO 

001BF4 

043 5 






DC 

X *0435 9 


001BF6 

FF24 






DC 

AL2(DONPRO-SECNO+REG) 


! 001BF8 

91 

40 

F 

005 




TM 

SNSW+1,X 9 40 9 

TEST SSW 9. 

001BFC 

47 

10 

F 

C06 




BC 

ALL,HALT 

BR IF ON. 

001C00 

OA 

DO 






SVC 

X 9 DO 9 

PRINT HOW TO GET DETAIL CDS. 

001C02 

A03A 






DC 

X 9 A03A* 


001C04 

FF85 






DC 

AL2 CSSW9-SECN0+REG) 


5 001C06 

OA 

DA 





HALT 

SVC 

X 9 DA 9 

-HALT- 

j 001C08 

OA 

DO 






SVC 

X 9 DO 9 

PRINT A BLANK. 

! 001C0A 

8001 






DC 

X 9 8001 9 


I 001C0C 

FF24 






DC 

AL2(DONPRO-SECNO+REG) 


:l 001C0E 

9D 

00 

C 

000 




TIO 

0(R12) 

CLEAR NOT READY TO READY INTERRUPT. 

001C 12 

94 

7F 

F 

AD4 



1N2 

NI 

MSSW,X 9 7F 9 

ZERO THE MSG BYPASS SW. FOR LOOPS. 

i 001C 16 

92 

00 

F 

ADA 




MVI 

FIRST,X 9 00 9 

ZERO THE EXPECTED DATA BYTE. 

001C 1A 

58 

CO 

F 

A20 



RETN 

L 

R12,RDR 

PICK UP READER ADDR. 

001C IE 

41 

AO 

F 

028 



LRNF1 

LA 

RIO,RDNF 

PUT ADDR OF RD NO FD CCW INTO 10. 

001C 22 

D2 

OA 

F 

8B8 

F 

8C3 


MVC 

HD1A+9(11),PRES 

MOVE WORD -PRESTK- TO MSG. 

001C28 

45 

BO 

F 

OEA 




BAL 

Rll,IS 10 

BR TO ISSUE START I/O. 

001C2C 

2A80 






DC 

X *2A80 9 

CTRL SWITCHES 

001C2E 

002 0 






DC 

X *0020 9 

TEST NU MBER 

001C 30 

FOOO 





ESNS 

DC 

X 9 FOOO 9 

EXP COND. CODE AND SENSE. 

1 001C32 

FEEC 






DC 

AL2(EXP1-SECNO+REG) 

EXP CSW ADDRESS. 

001C34 

91 

80 

F 

ADC 




T.M 

DERS,X 9 80 9 

SEE IF DATA ERROR. 

001C38 

47 

10 

F 

C42 




BC 

ALL,DOF 

BR IF YES. 

001C3C 

D2 

00 

F 

ADA 

F 

A34 


MVC 

FIRST(1)» BUFFER 

MOVE THE DATA BYTE FROM BUFFER. 




o o o 
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001C42 

41 AO 

F 

D30 

DOF 

LA 

RIO»FSS1 

PUT FEED STK SEL Rl CCW ADDR. IN 10. ! 

001C46 

45 BO 

F 

OEA 


BAL 

Rl1, IS 10 

BR TO ISSUE START 1-0. 

001C4A 

2E00 




DC 

X «2E00' 

CTRL SWITCHES 

001C4C 

0030 




DC 

X 1 0030• 

TEST NUMBER 

001C4E 

F100 




DC 

X * F100 * 

EXP COND. CODE AND SENSE. 

001C50 

FEF4 




DC 

AL2(EXP2-SECN0+REG) 

EXP CSW ADDRESS. 

001C 52 

58 40 

F 

A2C 


L 

R4fCNTR 

PICK UP CD COUNTER. 

001C56 

41 44 

0 

001 


LA 

R4 * 1(R4) 

ADD 1 TO CD COUNTER. 

001C5A 

50 40 

F 

A2C 


ST 

R4 , CNTR 

SAVE IT. 

001C5E 

IB 44 




SR 

R4,R4 

ZERO REG 4. 

001C 60 

43 40 

F 

ADA 


IC 

R4,FIRST 

PICK UP EXP DATA BYTE. 

001C64 

41 44 

0 

007 


LA 

R4,7 (R4) 

ADD 7 TO IT TO POINT TO NXT CD DATA. 

001C68 

42 40 

F 

ADA 


STC 

R4,FIRST 

PUT IT IN THE EXP DATA BYTE. 

001C6C 

91 20 

F 

005 


TM 

SNSW+1,X * 20* 

SEE IF SENSE SW 10 IS ON. 

001C70 

47 80 

F 

C9E 


BC 

NONE , N0R1 

BR IF OFF. | 

001C74 

91 80 

F 

AD6 


TM 

LDSW»X *80* 

SEE IF TESTING LOAD DEVICE. 

001C 7 8 

47 80 

F 

CEA 


BC 

NONE? LP5 

BR IF NO. 

001C7C 

91 80 

F 

AD4 


TM 

MSSWfX *80• 

SEE IF MSG BYPASS SW IS ON. 

001C80 

47 10 

F 

CEA 


BC 

ALL.LP5 

BR IF ON. 

001C84 

OA DO 




SVC 

X • DO * 

PRINT -LOOPING LOADER- KEEP ONLY 

001C86 

042C 




DC 

X *042C• 

DETAIL CARDS IN RDR. 

001C88 

FF5 9 




DC 

AL2CTLD-SECN0+REG) 


00IC8A 

OA DA 




SVC 

X 'DA* 

-HALT- 

001C8C 

9D 00 

C 

000 


TIO 

0(R12) 

CLEAR NOT READY TO READY INTERRUPT. 

001C90 

96 80 

F 

AD4 


01 

MSSW ,X *80' 

TURN ON MSG BYPASS SW. 

001C94 

OA DO 




SVC 

X * DO ' 

PRINT A BLANK. 

001C96 

8001 




DC 

X *8001 • 


001C98 

FF24 




DC 

AL2(DONPRO-SECNO+REG) 

• 

001C9A 

47 FO 

F 

CEA 


BC 

UNC, LP5 

BR TO LOOP RD, COMP, FD. 

001C9E 

95 IB 

F 

A2F 

N0R1 

CLI 

CNTR+3,27 

SEE IF 27 CDS READ. ! 

001CA2 

47 80 

F 

CAA 


BC 

EQ, EXT1 

BR IF YES. 1 

001CA6 

47 FO 

F 

CIA 


BC 

UNC *RETN 

BR TO CONTINUE TEST. 

001CAA 

D7 03 

F 

A2C F A2C 

EXT1 

XC 

CNTR,CNTR 

ZERO THE CARD COUNTER. 

001CB0 

92 00 

F 

ADA 


MVI 

FIRST,X*00* 

ZERO THE EXP DATA BYTE. 

00ICB4 

91 20 

F 

005 


TM 

SNSW+1,X•20 1 

SEE IF SSW 10 IS ON. 

00ICB8 

47 10 

F 

CEA 


BC 

ALL,LP5 

BR IF YES. 

00ICBC 

91 08 

F 

004 


TM 

SNSW,X *08 * 

TEST SSW 4. 

OOICCO 

47 80 

F 

CEB 


BC 

NONE,EXT2 

BR IF NO. 

001CC4 

91 80 

F 

AD 4 


TM 

MSSW »X * 80 * 

SEE IF MSG BYPASS SW ON. 

001CC8 

47 10 

F 

CIA 


BC 

ALL,RETN 

BR IF YES. 

OOICCC 

91 80 

F 

AD6 


TM 

LDSW »X•80 * 

SEE IF ON LOADER. 

001CD0 

47 80 

F 

CIA 


BC 

NONE,RETN 

BR IF NOT. 

001CD4 

OA DO 




SVC 

X • DO 1 

PRINT LOOPING LOADER- KEEP ONLY 

00ICD6 

042C 




DC 

X *042C• 

DETAIL CARDS IN RDR. 

001CD8 

FF5 9 




DC 

AL2(TLD-SECNO+REG) 


OOICDA 

OA DA 




SVC 

X * DA* 

-HALT- 

001C DC 

9D 00 

C 

000 


TIO 

0 (R12) 

T10 TO CLEAR NOT RDY TO RDY. 

OOICEO 

96 80 

F 

AD4 


01 

MSSW,X•80• 

TURN ON MSG BYPASS SW. 

001CE4 

47 FO 

F 

CIA 


BC 

UNC,RETN 

BR TO LOOP RTN. 

001CE8 

OA D6 



EXT2 

SVC 

X * D6 • 

ROUTINE EXIT 





*********************************************************** 





4 

SENSE 

SWITCH 10 LOOP RD, FD, 

STK SEL Rl SET UP HERE 1 





*********************************************************************** 

001CEA 

41 AO 

F 

D40 

LP5 

LA 

RIO,RDFD 

PUT ADDR OF RD FD STK Rl CCW IN 10. 

OOICEE 

58 CO 

F 

A20 


L 

R12.RDR 

PUT RDR ADDR INTO 12. 

OOICF2 

D2 OA 

F 

8B8 F 8CE 


MVC 

HD1A+9(11),STK1 

MOVE WORD -STK R1- TO MSG. j 

001CF8 

45 BO 

F 

OEA 

FF 

BAL 

Rll,IS 10 

BR TO ISSUE START 1-0. ■ 

OOICFG 

3E80 




DC 

X•3E80* 

CTRL SWITCHES 

001CFE 

0040 


* 


DC 

X *0040• 

TE ST NUMBER 1 

00 ID 00 

FOOO 




DC 

X * FOOO • 

EXP COND. CODE AND SENSE. 

001D02 

FF14 




DC 

AL2(EXP4-SECN0+REG) 

EXP CSW ADDR. 

001D04 

D2 00 

F 

ADA F A34 


MVC 

FIRST Cl),BUFFER 

MOVE 1ST POS. TO EXP DATA. 

001D0A 

. IB 44 




SR 

R4,R4 

ZERO REG 4. 

001DOC 

. 43 40 

F 

ADA 


IC 

R4,FIRST 

PICK UP EXP DATA BYTE. 

001D10 

41 44 

0 

007 


LA 

R4,7 (R4) 

BUMP TO NXT EXP BYTE. 

00ID14 

42 4.0 

F 

ADA 


STC 

R4,FIRST 

PUT IT BACK. j 

oo id \a 

91 20 

F 

005 

TST10 

TM 

SNSW+1,X # 20* 

TEST SSW 10. 

OOlDiC 

47 80 

F 

CE8 


BC 

NONE,EXT2 

BR IF NOT ON. 


DATE 

EC 


15JUM67 

130498 
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001D20 47 FO F CEA BC UNC,LP5 LOOP Rp PD. 

*********************************************************************** 
* CCW AREA 

*********************************************************************** 


00 ID28 

C2 001A34 2000 0050 

RDNF 

CCW 

X'C2*,BUFFER,X»20«,80 RD NO FEED CCW. 

001D30 

23 001A34 2000 0001 

FSS1 

CCW 

X*23*,BUFFER,X»20»,1 

00ID38 

41 001A 34 2000 0050 

PCHCMD 

CCW 

X*41',BUFFER,X*20»,80 PCH AND STK SEL P2. 

00 ID 40 

02 001A 34 0000 0050 

RDFD 

CCW 

X«02',BUFFER,X»00‘,80 

00 ID48 

03 001A 34 0000 0001 

NOOP 

CCW 

X *03*,BUFFER,X* 00',1 

00 ID 50 

OOOOOOOF 

OF 

DC 

X*OOOOOOOF* 

00 ID 54 


TWENTY 

DS 

20C 

001068 

0007 

SEV 

DC 

H *0007 * 



* 


*************** 



* 


* HOLES TABLE * 



♦ 


*************** 

001D6A 

B039018818418218 

HOLES 

DC 

X•B039018818418218' 

001D72 

1180980580390388 


DC 

X ' 1180980580390388* 

001D7A 

3843823 81380B 807 


DC 

X'384382381380B807* 

001D82 

D03 5014814414214 


DC 

X*DO35014814414214* 

001D8A 

1140940540350348 


DC 

X•1140940540350348* 

001D92 

344342341340B407 


DC 

X * 344342341340B407* 

001D9A 

7033012812412212 


DC 

X *7033012812412212* 

001DA2 

1120920520330328 


DC 

X*1120920520330328* 

001DAA 

3243223213203207 


DC 

X *3243223213208207* 

001DB2 

F031010810410210 


DC 

X*F031010810410210* 

001DBA 

1100900500310308 


DC 

X * 1100900500310308* 

001DC2 

304302301300B007 


DC 

X * 304302301300BOO7* 

001DCA 

000B01A81A41A21A 


DC 

X*000B01A81A41A21A* 

001DD2 

11A 09A 05A 03902 88 


DC 

X*11A09A05A0390288* 

001PDA 

2842822 81280A 806 


DC 

X*284282281280A806’ 

00 IDE2 

800D01C 81C41C21C 


DC 

X*800D01C81C41C21C* 

00 IDEA 

11C 09C 05C 0350248 


DC 

X*11C09C05C0350248* 

001DF2 

24424224124OA406 


DC 

X*244242241240A406* 

00IDFA 

4003006816416216 


DC 

X *4003006816416216* 

001E02 

11609605603302CO 


DC 

X * 11609605603302CO* 

001E0A 

0 24 22 22 2122 OA 2 06 


DC 

X *024222221220A206* 

00 IE 12 

E00F01E81E41E21E 


DC 

X * E00F01E81E41E21E* 

001E1A 

1IE 09E 05E 03102 08 


DC 

X'11E09E05E0310208* 

00 IE22 

2042022012OOA006 


DC 

X*204202201200A006* 

001E2A 

B02B00A 80A40A20A 


DC 

X *B02BQ0A80A4QA20A* 

00 IE 32 

10A 08A04A02A01A8 


DC 

X*10A08A04A02A01A8* 

001E3A 

2A42A22A12A0AA06 


DC 

X *2A42A22A12A0AA06* 

001E42 

D02D00C 80C40C20C 


DC 

X »D02D00C80C40C20C 

001E4A 

10C08C04C02C01C8 


DC 

X*10C08C04C02C01C8* 

00 IE52 

2C42C 22C12C0AC 06 


DC 

X•2C42C22C12C0AC06* 

001ESA 

7027006806406206 


DC 

X *7027006806406206* 

001E62 

1060860460260168 


DC 

X • 1060860460260168* 

001E6A 

264262261260A606 


DC 

X *264262261260A606« 

00 IE72 

F02F00E 80E40E20E 


DC 

X *F02F00E80E40E20E* 

001E7A 

10E 08E 04E.02E 01E 8 


DC 

X*10E08E04E02E01E8* 

001E82 

2E42E22E12E0AE 06 


DC 

X*2E42E22E12E0AE06* 

0Q1E8A 

A 0090088084082 08 


DC 

X *A009008808408208* 

001E 9 2 

10808804802801A8 


DC 

X * 10808804802801A8 * 

001E9A 

3A4 3A 2 3 A13 A OB A 07 


DC 

X *3A43A23A13A0BA07* 

001EA2 

6005004804404204 


DC 

X *6005004804404204* 

001EAA 

10408404402401C 8 


DC 

X' 10408404402401C8* 

001EB2 

3C43C23C13C0BC07 


DC 

X • 3C43C23C13C0BC07* 

001EBA 

2827012802402202 


DC 

X*2827012802402202* 

001EC2 

1020820420220168 


DC 

X*1020820420220168* 

001ECA 

364 362361360B 607 


DC 

X * 364362361360B607* 

001ED2 

2001000800400200 


DC 

X*2001000800400200* 

00 IE DA 

10008004002001E8 


DC 

X *10008004002001E8* 

001EE2 

3E43E23E13E0BE07 


DC 

X•3E43E23E13E0BE07* 



*************************************************$****«**************** 



* 

EXP 

CSW AREA 



*********************************************************************** 

OOIEEC 

00001D30 

EXP1 

DC 

AiRDNF+8) 

001EF0 

OCOOOOOO 


DC 

X*OCOOOOOO* 


DATE 

15JUN67 

ID 

F812-0 

EC 

130498 

PAGE 
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001EF4 

00000000 

EXP2 

DC 

j 

XL4*00 * 

00 IE F 8 

08000000 


DC 

X*08000000• 

001EFC 

00000000 


DC 

XL4*0* 

001F00 

04000000 


DC 

X*04000000* 

00 IF 04 

00001D40 

EXP3 

DC 

A{PCHCMD+8 ) 

001F08 

08000000 


DC 

X*08000000* 

001F0C 

00000000 


DC 

X L4 • 0 * 

00IF 10 

04000000 


DC 

X*04000000* 

001F14 

00001D48 

EXP4 

DC 

AIRDFD+8 ) 

00 IF 18 

08000000 


DC 

X*08000000* 

001F1C 

00000000 


DC 

XL4*00* 

00 IF 20 

04000000 


DC 

X*04000000* 



*********************************************************************** 



* 

MESSAGES 



ft****************!**#*************************************************** 

00 IF 24 

40C 4D640D5D7D9D66B 

DONPRO 

DC 

C* DO NPROtPLACE D* 

001F2D 

D7D 3C1C3C540C4 




00IF34 

C5E 3C1C9D340C3C4E2 


DC 

C*ETAIL CDS IN RDR* 

00 IF 3D 

40C 9D540D9C4D9 




00 IF 44 

4B4 OC 8D7D96BD4C1D2 


DC 

C*. HPR*MAKE RDY,E* 

001F4D 

C540D9C4E86BC5 




00 IF 54 

D6C 640D6D5 


DC 

C*OF ON* 

001F59 

400 3D 6D 6D 7C 9D 5C 740 

TLD 

DC 

C* LOOPING LOADER-** 

001F62 

D3D6C1C4C5D960 




00 IF 69 

40 


DC 

C* * 

001F6A 

D2C 5C5D740D6D5D3E8 


DC 

C* KEEP ONLY DETAIL* 

001F 7 3 

4QC4C5E3C1C9D3 




001F7A 

40C3C 4E240C9D 540D9 


DC 

C* CDS IN RDR* 

00 IF83 

C40 9 




001F85 

40E2C5E340E2E2E640 

SSW9 

DC 

C* SET SSW 9 ON* D* 

001F8E 

F940D 6D56B40C4 




001F95 

D 64 OD 7E 2E 6400 9C 5 E 2 


DC 

C*0 PSW RESTART IF* 

001F9E 

E3C 1D9E340C9C6 




00IFA5 

40E 2C5E340D6C640C4 


DC 

C* SET OF DETAIL C* 

001FAE 

C5E3C1C9D340C3 




001FB5 

C4E 240C4C5E2C9D9C5 


DC 

C*DS DESIRED* 

001FBE 

C4 






******************************* 4 *************************************** 



* 

EQUATES 



*****♦*♦♦*♦♦*♦*♦*♦***♦♦**********♦**♦♦**♦***♦*♦♦♦**♦♦***♦♦♦**♦*♦♦***♦♦* 


000000 

NEVER 

EQU 

0 


000007 

NCCO 

EQU 

7 


OOOOOF 

UNC 

EQU 

15 


000008 

NONE 

EQU 

8 


000004 

SOME 

EQU 

4 


000001 

ALL 

EQU 

1 


000005 

ANY 

EQU 

5 


000008 » 

CCO 

EQU 

8 


000004 

CCi 

EQU 

4 


000002 

CC2 

EQU 

2 


000001 

CC3 

EQU 

1 


OOOOOA 

CC02 

EQU 

10 


000006 

CC12 

EQU 

6 


000008 

EQ 

EQU 

8 


000004 

LO 

EQU 

4 


000002 

HI 

EQU 

2 


000006 

UNEQ 

EQU 

6 j 


OOOOOC 

EQLO 

EQU 

12 | 


OOOOOA 

EQHI 

EQU 

10 j 


000080 

LOGOUT 

EQU 

X *80* ! 


000181 

SYSMOD 

EQU 

X • 181 * j 


OOF000 „ 

REG 

EQU 

X * FOOO * 1 

f 

00005A 

WHAT 

EQU 

90 $ 


000000 

RO 

EQU 

0 1 

i 

000001 

R1 

EQU 

1 


000002 

R2 

EQU 

2 


000003 

R3 

EQU 

3 


000004 

R4 

EQU 

4 

OATE 

15JUN67 



ID F812-0 

EC 

1 

130498 
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000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

000008 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

000000 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 

DMSSW 

EQU 

X *01A0 f 

0001B9 

OMIOL 

EQU 

X *01B9* 

0001BC 

OMPTR 

EQU 

X *01BC* 



END 

R0UT01 
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POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


1 

8 

EQ 

12 AC • 

1362, 

138E, 

1CA2 




4 

1CF8 

FF 








1 

2 

HI 








1 

4 

LO 








4 

ID 50 

OF 








1 

1AD5 

PS 

1B08 9 

1B42 , 

1BB A, 

1BD4 




1 

0 

RO 

1100, 

156E, 

16F A, 

1738, 

1744, 

1752, 

175A 

1 

1 

R1 

12EC, 

153C, 

15C6 , 

16FE, 

16FE, 

170C, 

1710 




1712, 

1716, 

171 A, 

1728, 

172C, 

1740, 

1744 

1 

2 

R2 

1574, 

1582, 

1586, 

15B6, 

15B6, 

15BA, 

16CC 




1700, 

1700, 

170E, 

1722, 

173C, 

174A 


1 

3 

R3 

1578, 

1578, 

157 A, 

157E, 

15B2, 

15B2, 

1702 




1702, 

1708, 

170C, 

1710, 

1712, 

171A, 

171E 




17?2, 

1734, 

173C , 

1756 




1 

4 

R4 

1582, 

15 AA, 

1656, 

1666, 

1676, 

1686, 

1696 




16CC, 

16CE, 

16F A, 

1704, 

170E, 

1730, 

174A 




174E , 

175A, 

1A02 , 

1B04, 

1B0E, 

1B4C, 

1B62 




1BB8 , 

1BCC, 

1BE0, 

1C52, 

1C56, 

1C56, 

1C5A 




1C5E, 

1C5E , 

1C60, 

1C64, 

1C64, 

1C68, 

1D0A 




1D0A , 

1D0C, 

1D10, 

1D10, 

1D14 



l 

5 

R5 

155C , 

1A14, 

1BA4, 

1BB4 




1 

6 

R6 

19D0, 

19D0 , 

19D2, 

19D6, 

19DA, 

19DC, 

19DE 




19E0, 

IB 12, 

1B50, 

1B7 A, 

1B7A, 

1BD0, 

1BD0 

1 

7 

R7 

1292, 

12C0, 

12D8 , 

1586, 

1598, 

1612, 

1620 




1632, 

16E4, 

1B0C, 

1B0C, 

1B46 , 

1B46, 

1B48 




1BA8, 

1BAC, 

1BAC, 

1BC2, 

1BC2, 

IBC4, 

1BC8 

1 

8 

R8 

128E, 

12BC, 

12D4, 

1332, 

1336, 

1354, 

1354 




1358, 

13AE, 

13B2, 

1464, 

1468, 

146C, 

146C 




*1470 * 

15FA , 

1BA0, 

1BA8, 

f1BB0, 

1BB0 


1 

9 

R9 

1100, 

115 A, 

USE, 

116 A, 

1102, 

1106, 

11E2 




1238, 

140A, 

1438, 

147A, 

1492, 

14AA, 

14C2 




156E, 

15F2, 

15F6 , 

160E 




1 

198 

WT 

115A , 

11D2, 

15F2 





1 

1 

ALL 

111E, 

11CA, 

1202, 

125A, 

127A, 

1304, 

1310 




1376, 

1396, 

13CE, 

155C, 

1594, 

15D0, 

1626 




162E, 

1640, 

16 A6, 

16E0, 

19F0, 

1B2E, 

1B36 




1B3E , 

1B58, 

1B86, 

1B8E, 

1B9A, 

1BBE, 

1BEE 




1BFC, 

1C38, 

1C80, 

1CB8, 

1CC8 



1 

5 

ANY 

12F4 , 

1554, 

15AE, 

1638, 

1724 



16 

18D9 

BIG 

16BA , 

16C0 






4 

1048 

CAW 








1 

8 

CCO 

1166, 

1190 






1 

4 

CC1 

1194, 

160A 






1 

2 

CC2 

il98 







1 

1 

CC3 








8 

1040 

CSW 








2 

1B0C 

DAG 

1B58 







4 

1C 42 - 

DOF 

1C38 







9 

18A6 

HD1 

16AE 







4 

1524 

ICD 

14F4 







2 

100A 

ICM 








4 

U5A 

I HI 

113E , 

114E 






4 

1C 12 

IN2 

1BEE 







2 

10E8 

ISW 

116E , 

U6E, 

1174, 

11B6, 

11C2, 

UCE, 

11DA 




11EA, 

11FA, 

11FE, 

120C, 

123C, 

124A, 

1256 




125E, 

126E, 

127E, 

1296, 

129E, 

12A2, 

12B0 




12C4, 

12CC, 

12D0, 

12DC, 

12E4, 

12E8, 

12F0 




12F8, 

1300, 

130C, 

132A, 

134C, 

1366, 

1372 




147E, 

14AE, 

14CC, 

1524, 

152C, 

1558, 

15A2 




15C2, 

15CC, 

1504, 

161C, 

1634, 

19EC, 

1A10 




1A18, 

1B3A, 

1B96 






DATE 
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4 

156A 

I UP 

1562 







4 

1CEA 

LP5 

1C78, 

1C80, 

1C9 A, 

1CB8 , 

1D20 



16 

1954 

MDR 

15E0, 

15EC 






4 

1692 

NAC 

168A 







4 

1682 

NBP 

167A 







4 

16A2 

NTC 

1640, 

164E , 

169 A 





4 

1672 

NXL 

166A 







4 

1752 

NXT 

1746 







4 

1662 

NXU 

165 A 







4 

1A 24 

PCH 

19BA , 

1B16, 

1B66 





4 

1BA8 

PIB 

1BB4 







4 

173C 

PIK 

1756 







1 

A 

RIO 

UOA, 

13E8 , 

1404, 

140 E, 

1416, 

1416, 

154C 




19FE , 

1B1A» 

1B6 A, 

1C1E, 

1C42, 

1CEA 


1 

B 

R11 

10F A, 

111A , 

11C6, 

124E, 

1266, 

12A6, 

12B4 




1318, 

1322, 

1332, 

1344, 

139A, 

13B2, 

13B4 




13C6 , 

13C6, 

13CA, 

143A, 

1456, 

1464, 

1496 




14C6 , 

1534, 

155E, 

1566, 

1566, 

156A, 

156A 




1572, 

1B1E, 

1B6E, 

1C28, 

1C46, 

1CF8 


1 

C 

R12 

1132, 

1142, 

1152, 

1162, 

118C, 

11F2, 

15E4 




15FE , 

1606, 

19B2, 

19B6, 

19BA, 

19BE, 

19C2 




19C6, 

19E0 , 

1B16, 

1B66, 

1C0E, 

1C1 A, 

1C8C 




1CDC, 

1CEE 






1 

D 

R13 

UOA, 

liOE, 

110E, 

11 BO, 

154C, 

15FA, 

1614 




19A6, 

19A6, 

19B0 





1 

E 

R14 

1114, 

1114, 

115 A, 

11D2, 

14F0, 

14F8, 

15F2 




19A8 , 

1902, 

19D6, 

19DA 




1 

F 

R15 

1206, 

1214 , 

1244, 

19 BO 




4 

1A20 

RDR 

19C6 , 

1C1A, 

1CEE 





1 

FOOO 

REG 

1226, 

13AC, 

13C4 , 

13DE, 

13F8 , 

1436, 

1444 




144A , 

14E0 , 

14EE, 

1522, 

1544, 

154A, 

15E0 




15EC , 

1648, 

16AE, 

16B4, 

16BA, 

16C0, 

16C6 




1762, 

1AOE , 

1B28 , 

1B78, 

1BF6, 

1C04, 

1C0C 




1C32, 

1C50 , 

1C88 , 

1C98, 

1CD8, 

IDO 2 


2 

15DC 

RRM 

138E, 

1396 






2 

1D68 

SEV 

1BC8 







16 

IF 59 

TLD 

1C88 , 

1CD8 






1 

F 

UNC 

1136, 

1156, 

11 AO, 

11A8, 

11BA, 

11EE, 

1210 




1240, 

1262, 

12FC, 

1308, 

1314, 

141A, 

1438 




1530, 

1572, 

15C6, 

15 D8, 

15EE, 

1612, 

1620 




1632, 

164E , 

1764, 

1A02, 

1A1C, 

1BB8, 

1BD8 




1C9A, 

1CA6, 

1CE4, 

1D20 




4 

1A 28 

ATE 1 

15BA 







4 

12EC 

BTCD 

12E0 







1 

A 

CC02 








1 

6 

CC12 








4 

1A2C 

CNTR 

1BE4, 

1BE4 , 

1C52, 

1C5A, 

1C9E, 

1CAA, 

1CAA 

4 

UOA 

CONP 

15EE, 

1626, 

162 E 





4 

1652 

COPT 

1638 







1 

1AD9 

CRSW 

1178, 

163C, 

164 A 





8 

17B0 

DBWD 

16CE, 

16D2 , 

16E4, 

16EE, 

172C, 

1740 


8 

1770 

DCRD 

12BC, 

12D4 






1 

1ADC 

DERS 

U7C, 

15C8 , 

1C34 






1 A EQHI 

1 C EQLO 

2 1C 30 ESNS 

4 1EEC EXP1 1C32 

4 1EF4 EXP2 1C50 

4 IF04 EXP3 IB28 , 1B78 

4 IF 14 EXP4 1D02 

6 1CAA EXT1 1CA2 

2 1CE8 EXT2 1CC0, 1D1C 

2 1B9E EXTP 1B00 

8 1D30 F SSI 1C42 

4 1162 GREG 116A 


2 

1C 06 

HALT 

1BFC 



1 

48 

HC AW 

UOA, 

154C , 

15FA 

1 

40 

HCSW 

HOE , 

HOE , 

11BO, 1206, 1214, 1244, 1614 


DATE 

15JUN67 

ID 

F812-0 

EC 

130498 

PAGE 

11A 




w 
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2540 READER FUNCTION TESTS - SECTION 3 F812 


I 

6 

UNEQ 

11F6, 

131E, 

1340, 

13E4, 

14F4, 

159E, 

15BE 




19E4 







1 

5A 

WHAT 








1 

17B8 

WORK 

1214, 

1404, 

1422, 

1424, 

1426, 

142C, 

1474 




1474, 

148C , 

14A4 , 

14A4, 

14BC, 

14F8, 

1502 




1504, 

1506, 

150C, 

1512, 

1518 



4 

19EC 

BLOOP 

19E4, 

1A1C 






4 

1BBA 

BUI 02 

1B2E , 

1B36, 

1B86, 

1B8E 




1 

1B9 

DMIOL 

19D2 







1 

1BC 

DMPTR 

19D6 







1 

1A0 

DMSSW 








1 

1 ADA 

FIRST 

157A, 

1C 16, 

1C3C, 

1C60, 

1C68, 

1CB0, 

1D04 




1D0C , 

1D14 






1 

100E 

FLAG1 








1 

100F 

FLAG2 








16 

1922 

GOODY 

158A, 

158 A, 

1652, 

165E, 

1662, 

166E, 

1672 




167E , 

1682, 

168E, 

1692, 

169E, 

16D2, 

16D8 




16F0 , 

16F8 , 

174A, 

1762 




8 

1D6A 

HOLES 

1712, 

171A 






4 

1622 

IBACK 

1602 







16 

1815 

IBLAH 

1228, 

1232, 

13FA, 

1426, 

142C, 

1436, 

144C 




145E, 

1486, 

149E , 

14B6 




2 

141E 

ICOUT 

1238, 

140A , 

147 A, 

1492, 

14AA, 

14C2 


8 

17A0 

ICSW1 

11 BO, 

1206, 

1276, 

133A, 

133A, 

1392, 

148C 




1622, 

1B2 A, 

1B82 





8 

17A8 

ICSW2 

1244, 

1286, 

135C, 

135C, 

14BC, 

1B32, 

1B8A 

4 

147E 

IDIDI 

145A 







4 

1142 

I HANG 

1156 







16 

17F3 

ILINK 

13B4, 

13BC, 

13BE, 

13C4, 

154A 



4 

1614 

ILOKE 

160A 







4 

1132 

I LOOP 

10EE 







4 

1BA0 

INDAT 

1B0E, 

1B4C , 

1BCC 





4 

1366 

INDER 

1304, 

1310, 

131E , 

132E, 

1340, 

1350 


5 

1010 

INPSW 








3 

198A 

IOADR 

13D6 







6 

144C 

IOCSW 

13CE 







16 

184B 

IOLOG 

1506, 

150C, 

1512, 

1518, 

1522 



16 

1870 

I0PT1 

10F2, 

1544 






4 

14F0 

I PASS 

14D0 







4 

1778 

I SAVE 

1100, 

156E 






4 

15C8 

ISIP1 

159E 







4 

118C 

ISSUE 

10EA, 

13E0, 

198 A 





4 

15F2 

ISTRT 

1292, 

12C0, 

12D8 





4 

112A 

ITRY1 

1136, 

1146, 

1554 





4 

113A 

ITRY2 

112E 







16 

1990 

IUNEX 

1220, 

1226 






4 

11D2 

IWAIT 

1262, 

1530 






4 

11BE 

I ZERO 

1190 







4 

1C IE 

LRNF1 








4 

1A 30 

M0D5O 

19B6, 

19C2 






1 

0 

NEVER 




I 




4 

1000 

SEC NO 

1104, 

12IE , 

1220, 

1226, 

13A4, 

13A6, 

13AC 




13BC, 

13BE, 

13C4, 

13D6, 

13D8 , 

13DE, 

13F0 




13F2 , 

13F8, 

1422* 

1424, 

1436, 

1444, 

144A 




14D8, 

14DA, 

14E0, 

14E6, 

14E8, 

14EE, 

1502 




1504, 

1522, 

1544, 

154A, 

15E0, 

15EC, 

1648 




16AE, 

16B4, 

16BA, 

16C0 , 

16C6 , 

16EE, 

16F0 




16F6, 

16F8 , 

1762, 

1A04, 

1AOE, 

1AF9, 

1B28 




1B78 , 

1BF6 , 

1C04, 

1C0C, 

1C32, 

1C50, 

1C88 


, 


1C98, 

1CD8, 

1D02 





4 

ID 18 

TST10 








1 

10E0 

UNIT1 

19BE 







1 

10E4 

UNIT2 

19B2 





( 


16 

18FB 

BEAUTY 

16C6 







1 

1A34 

BUFFER 

1586, 

19F4 , 

19F8 , 

19 F8, 

1B48, 

1B5C , 

1B7C 




1B92, 

1BA0, 

1BC4, 

1C3C, 

1D04, 

1D28, 

1D30 




1D38, 

1D40, 

1D48 





1 

1A84 

CHKBUF 

1582, 

1770 










DATE 

EC 


15JUN67 

130498 


ID F812-0 
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2540 READER FUNCTION TESTS - SECTION 3 F812 


16 

IF 24 

DONPRO 

1BF6, 

1C0C, 

1C98 





5 

1058 

EXNPSW 








8 

1018 

EXOP SW 








6 

1A04 

HANGUP 

19F0 







11 

1840 

IACSNS 

1184, 

1768 

12A6, 

138 A, 

14E6, 

14E8, 

14EE, 

162A 

10 

17DA 

IACTCC 

1188, 

119C, 

11A4 * 

11 AC, 

11BE, 

1318, 

144A 

6 

143A 

ICCOUT 

13E4 , 

1412 






6 

133A 

ICCSWl 

1336 








6 13 5C ICCSW2 1358 


6 

1474 

ICHNG1 

1468 




6 

14A4 

ICHNG2 

1470 




1 

1AD8 

ICODAT . 

157E, 

1598, 

16F6, 

1708 

6 

1404 

ICWOUT 

141A 




4 

128E 

IDOSNS 

126A, 

127 A, 

1A14 


4 

136A 

IDUNCK 

1308, 

1314, 

1362 


10 

17D0 

IEXPCC 

143A , 

1444 



11 

1835 

IEXSNS 

14C6 , 

14D8 , 

14D A, 

14E0 

6 

10FA 

IE YEOH 





1 

13AA 

IFLAG1 

136A, 

1382 



1 

1542 

IFLAG2 

136E , 

1386 



4 

155E 

I LEA VE 

137E 




6 

14F8 

ILOGED 

1240 

P * 



4 

1496 

IMORST 

1482 




4 

1300 

IN0EX1 

1326 





4 130C IN0EX2 1348 

15 17E4 IOADDR 10F6, 13D8, 13DE 

4 1078 IONPSW 

8 1038 IOOPSW 11F2, 121E ^ , 

2 1540 IOPOUT *538 , 

4 138A IOUTIT * 1376 

4 11F2 IRETRN 107C 

8 1768 I SENSE 128E 

4 1606 ITIOLP 160E 

9.. 1867 ITSTNO 10FA, 139A, 13A4, 13A6, 13AC 

1 80 LOGOUT 1114, 1114* 14F8 

8 1070 MCNPSW 

8 1030 MCOPSW 

4 19B2 NITWIT 19AC 

8 1038 PCHCMD J 1B1A, 1B6A, 1F04 

8 1068 PGNPSW 

8 1028 PGOPSW 

12 1948 PUNCHS 173G 

1 1AF8 R0UT01 1015, 1FBF 

1 1BDC ROUT02 1AF9 

8 1060 SVNPSW 

8 1020 SVOPSW 

1 181 SYSMOD 14F0 

1 ID54 TWENTY 16FA, 175A 

2 10E2 U1ADDR 

2 10E6 U2ADDR 

1 1000 XF8120 


NO ERROR DETECTED IN ABOVE ASSEMBLY 


DATE 

EC 


15JUN67 

130498 


ID F812-0 
PAGE 13 


O C C C C © G © 0 © 0 C © C 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
F812 2540 RO FUNCTION SEC 3 


PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 


BESD. 

.AA. 

•AAXF81 


9 

YQ 

Y9 

YYQY Y 8 Q 


99 

9 

9999 990 

BTXT.AAA. 

• A 8 . 

•AA 8 KAA 

AAAAAAAAAB0AADAAAAK8 

9 YQY 

Y9 

Y9 9YY 

YYYYYYYYY9+Y99YYYY8 

999 

9 , 

9 99 

999999999 9 99999 

BTXT.AA 8 . 

• A 8 . 

.aaaaaa 

AAAAAAAAAAAAAAAAAAAA 

9 YQ9 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

99 

9 

9 9999 

99999999999999999999 

BTXT.AAO. 

• AA. 

.aaaaaa 

AAAAADAAAAJ2. 

9 YQ + 

YQ 

Y9YYYY 

YYYY99YYYY9 

99- 

99 

9 9999 

9999 9999 

BTXT.AAS. 

• A 8 . 

.AAAAAA 

BAAAAABD1DBD12BS8IBS 

9 YQ 8 

Y9 

Y90YYY 

OYYYYY-Q Y-Q 9- 0- 

99 

9 

9 9 9 

9 999 

BTXT.AJQ. 

• A 8 . 

•AASAAA 

AAGA1BA00DGA1WAAODGA 

9 Y99 

Y9 

Y98Y-Y 

QYZQ -+ 9ZY 8 -Y 9ZY 

9 

9 

9 

09 9 

BTXT.AJ+. 

• A 8 . 

•AA1KDA 

0AG01BHFAHHAACEAOAGA 

9 Y9 

„Y9 

Y9 8 QY 

♦YZ ZRQ9-0QY9QY+YZY 

9 

9 

9 9 

9 9 9 9 

BTXT.AJH. 

• 

> 

CD 

t 

•AABX7G 

DA0AGA1FG.1MGJ1MB37G 


9 Y90 Y9 Y9- Q QY+YZY QZ YZY 0- Q 

9999 990 9 9 

BTXT.AJ0..A8.•AA7GD7 OYA.AAGA20FA0YHFAHHA 

9 Y9+ Y9 Y9 Q -8 - QYZQ Z-Q RQ9-0Q 

9 9 9 9 09 9 9 


BTXT.AJ 8 . 

* A 8 . 

•AA2MD7 

OYA.0YGA2DKG7 JO.F.OY 

9 Y9 

Y9 

Y9 9-8 

ZQ Z 9 Y - 

9 

9 

9 

9 

BTXT.AKA. 

. A 8 . 

• AA45KB 

8U8XEA40FB0YG048KG7Q 

9 Y9Q 

Y9 

Y9 9 9 

8 8 ZQ 8-9 Z 90 

9 Z 

9 

9 

9 9 9 

BTXT.AKQ# 

• A 8 . 

.AAAAGA 

2FA.0YGA3QAB7MGA2FAJ 

9 Y9Z 

Y9 

Y9QYZY 

Y- ZY 9-9 OZQ Y-Y 

9 

9 

9 09 

9 9 

BTXt.AKJ. 

• A 8 . 

• AA0YD7 

0 ZNA 8 EAEGA2DFAOY AAAA 

9 Y9Y 

Y9 

Y9 -8 

Y ZQ9ZY 0-9 -YQ9 

9 

9 

9 

9 0 - 0 

BTXT.AKQ. 

• A 8 . 

• AAE 052 

AA0ZGA2MFJ0ZD70ZEA5D 

9 Y9 

Y9 

Y9Z + 

-Y ZY Y-Y -8 ZQ R 

9 

9 

9 - 

9 9 9 0 

BTXT.ALA. 

• A 8 . 

•AAGA30 

G03+NA7GADG-30AHAAGA 

9 Y9Q 

Y9 

Y9ZQ Z 

Z - Y QQ9Z Z-9QYZY 

9 9 

9 

9 9 

9 90 09 

BTXT.ALH. 

• A 8 . 

•AAGA3D 

AJ0YGA30AHAH.A3-NG7Q 

9 Y9Z 

Y9 

Y9ZY 8 

-Y ZY ZZ0Y9 Y 90 

9 

9 

9 9 

9 9 


P/N 840572 
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COLS. 41 THROUGH 60 COLS. 61 THROUGH 80 
.840 573.130498..81200001 


AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA81200002 

YYYYYYYYYYYYYYYYYYYY YYYYYYYYYYYY 

99999999999999999999 999999999999 

AAAAAAAAADAAAAAAAAAA AAAAAAAAAAAA81200003 

YYYYYYYYY9YYYYYYYYYY YYYYYYYYYYYY 

999999999 9999999999 999999999999 

.81200004 


70KA8UABAA7HKA9G0C+N AHPG0.0.PCSA81200005 

9 8Q9Q8 RYY9Y YZ 9- - 88 Y 

0 9 0 9 9 9 

12DA0AG0ISA.0DGA1KEA 0AG01SA.0DGA81200006 

8 QY+YZ 8 - 9ZY 8 QY +YZ+ 8 - 9ZY 

999 9 9 * 9-9 

1WFA1KPAOYOYFAOYDABR DABDDA8PBX8E81200007 

8 ZQ Z 9 -Y -YQ -YQQ-YQ - Z 

9Z 9Z9 9Z 

G01BB27GG01BB17GKG7J 0.F.0YG01BB08120C008 

2 - QZ — Q 9 Y -- Z 

9 9 

ACFAOYAA9EFA1SAA9FD7 OYG020A002G-81200009 

Y9-Y YY YZQ YY Y -8 Z Z 8 + 8 Z 

9 9 9 9 

G02FKG7H0.BEABA2AJB0 MN9AKB808GBK81200010 

Z 890 8QY9Y8808- Z9 Q 9 9 8-8 

- 999 999 9 99 

O.FJOYAAAAGA20AH0YGA 20FH0YG01KAB81200011 

-Y -QQYZY Z-9 ZQ Z-9 Z -9 

9 909 9 

0YGA3QAB7MGA3QAA7QE0 52AAOZGA2DFD81200012 

ZY 9-9 YZY 9ZY ZZ+ -Y ZY 0-9 


GA3QAA70E052AA0ZGA2M F.0ZD70ZAA7081200013 

ZY 9ZY +Z+ -Y ZY - -8 ZY + 


A-0ZG+3QFA0YG03QA.0Y GA30G03+AJ0Y81200014 

Z 9-9 Z 9- ZQ ZZ —Y 

9 9 

3AA.0YGA30HCAF.A36NG 7J7JG-30ADAA81200015 

Y- ZY ZZYY9 Y 8 9 Y YZ Z-9QY 

9 9 9 09 

7QGA3+FA0Y8M3KB05BAA 0YGA3BAA0DGA81200016 

OZY —9 -Z Y-+ Z-9 ZQ Y-9 9ZY 

9 


DATE 

EC 


15JUN67 

130498 


ID F812-0 
PAGE 13A 









IBM MAINTENANCE DIAGNOSTIC PROGRAM 

F812 2540 RQ FUNCTION SEC 3 ° 


BTXT.ALA. 

• A8. 

• AA50BU 

3KBA5BE.8EGA5DAA7MGA 

9 Y9Y 

Y9 

Y9 8-9 

Y-Y Z- ZZY Q-9 OZQ 

9 

9 

9 

9 9 

BTXT.ALH. 

«A8* 

•AABEAC 

G9G8B0JA73ACADAAAAGA 

9 Y90 

Y9 

Y98QY9 

9 9 8-YQ ZQY9-YQYZQ 

9 - 

9 

9 999 

99 09 09 9 

BTXT.ALO. 

• A8. 

• AAHAHH 

B0JC8CKB808KB045KG7H 

9 Y9 

Y9 

Y99899 

8-Y8 999 9-9 990 

9 

9 

9 9 

9 9 

BTXT.AMY. 

* AS. 

• AA8K7H 

KG8T70B0JK8NG9KA7NAD 

9 Y99 

Y9 

Y9 8 0 

9 9 +8-Y8 99 Y Q9 

9 

9 

9 9 - 

9 9 9 0 

BTXT.AM-. 

• AS. 

•AA8U82 

HCAF.A4HAHAHa A4QKG7H 

9 Y9 

Y9 

Y9 8 9 

ZYY9 Y RZ0Y9 Y 0 9 0 

9 

9 

9 9 

9 0 9 

BTXT.AMH. 

• A8. 

•AAAAGA 

40KB8U82KG7H7HEA40AJ 

9 Y9- 

Y9 

Y9QYZY 

Y 9 8 9 9 0 OZQ 8-Y 

9 

9 

9 09 

9 - - 9 9 

BTXT.AMO. 

a A8* 

•AA6A40 

BEAAH2H2B0JC858EAAHE 

9 Y9- 

Y9 

Y9Z Y 

8QY998988-Y8 98QY99Z 

9 

9 

9 

999 9 99 9 999 

BTXT.ANH. 

• AS. 

.AA8+7H 

KE8C7BKE8K7BKE8/78B0 

9 Y99 

Y9 

Y9 0 

9 R Q 9 8 9 Y8- 

9 

9 

9 

0 99 

BTXT.AN.li 

.AS. 

•AAB006 

8080JA73+NAHA00DG+1S 

9 Y9 

Y9 

Y98-+9 

•f 8~Y9 YYZ—► 9Z 8 

9 

9 

9 9 

-9 9 9 

BTXT.ANH. 

• A8« 

.AAL3CA 

BBBABQABBCABB3KU9T9S 

9 Y9R 

Y9 

Y989ZQ 

QQZQQ ZZQ0ZRQ9 999 

9 0 

9 

9 9 Z 

Z9 ZZ Z OZ 

BTXT.ANA. 

• A8. 

• AA5DA3 

AAASAAEJBYG-56FB0ZG1 

9 Y9Q 

Y9 

Y9 YZ9 

Y9Z9Y9RYQ9Z 8-^ 9 

9 0 

9 

9 9 

9 9 9Z 

8TXT.ANY. 

• A@* 

• AABOAA 

9DG01BHFAHHAAB+EAHDA 

9 Y9 

Y9 

Y98-Y9 

RZ 8RQ9-0QY9 YYZQY 

9 

9 

9 9 

9 9 9 9 

BTXT.AOJ. 

. A 8 a 

•AAG7AA 

7MGA1BA48EGA1BG7A-0Z 

9 Y9Y 

Y9 

Y99 -9 

OZQ 8- ZZQ 89 - 

9 9 

9 

9 

9 9 9 9 

BTXT.AQH. 

a A8a 

•AA.AGA 

6K8198B093AH#AGA6BB1 

9 Y9R 

Y9 

Y9 YZY 

Z- 9- 8-9 YZY R- 

9 

9 

9 9 

9 9 0 

BTXT.AOA. 

• A 8 a 

•AA9BB0 

9GAB.AGA6KB19GAABPGA 

9 Y9Q 

Y9 

Y9 Z- 

Z-9 YZY 0- Z-YQ ZQ 

9 

9 

9 

9 Z 9 

BTXT.AOH. 

.AS. 

•AAFABP 

QBF.7A3J9U7FFO9VAJ0D 

9 Y9 

Y9 

Y9-YQ 

9Z8 Q 9 9 0- 9-Y 9 

9 

9 

9 l 

0-9 

BTXT.APA. 

* A 8 a 

.AALSL3 

A* A8GABQQLNUK1CLE+I A 

9 Y9Y 

Y9 

Y98989 

Z Y9ZQQ 998989Z9Q-0Q 

9 9 

9 

9 9 9 

9 ZZ 9 9 Z-9 
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5DKA8UABBEABHUHUBOMA 8PAAADLH+A7881200017 

Q 9 8Q98QY998988-Z8 ZZYY980 Q 

9 0 999 9 9 9 9“ 0 

4DBEACABGZB0JG7UED1D G-42+J8HBEAC81200018 

88QY98Y9 8-Y8 -0 Y Z 8 Y 98QY9 

999 999 9 999 

JAEA40A0JDGA42AKAHG0 4DBEAHGHGHKG81200019 

YYZQ 8-+Y9ZY 8ZYY9Z 98QY99090 9 

9 9 9 9 999 - 

BOJB70B0J B7BKB808GBK 45AHAAGA46KB81200020 

8—Y8 -8-Y8 Q 9 9 8-8 9-9QYZY 8 9 

99999 99 09 

7HEA40A.0YGA4FKB8U8X KG7H7JEA40AD81200021 

OZQ 8- ZY - 9 8 8 9 0 YZQ 8-9 

9 9 9 9 

0YGA4FKB8U8XKG7H7QEA 40KA82AEA00Y81200022 

ZY 9 8 8 9 0 OZQ 8 Y 8Q9-9 

9 9 9 9 90 

HEBOJC8.EAJAG-5UKC7H SABEADGHGHKA81200023 

9Z8-V8 -QZOZ 980 8Y80Y89090 9 

9 9 Z 9 - 9999 - 

JM8CAB0YGA54DE0YG0IK AAAAGA5.EA5D81200024 

Y8 8-9 ZY 9-Q Z -YQ9ZY ZQ R 

9 Z 0 9 0 

AA0YGNAHAAGA5+ACABAC AFHA7HGCAJAA8120C025 

-Y 99-9QYZY -ZQY9ZQ Y9-8 R9QZYY9 

09 09 0 9 9 0 Z 99 

AJ0DGA5KNA0ABQG-5HA- OZGASBAG.AG+81200026 

-Y 9ZQ 0 Y+YQ Z - ZY 0-Q YZ 

9 9 9-9Z - Z 9 

FABDAB0ZGA64FA0YG05B 80UA9DBBEAOA81200027 

-YQQ-9 ZQ 9-9 Z 8-9Q R8QQY + Y 

19 9 9 9 99 9 9 

OAGO6SEA0AG.6MFA6FG7 ADODGA6FFACZ81200028 

+YZ+ 9QY+YZ 9ZQ 99 -9-ZZY 8-Y 

9-99 9 

G+68AABRGA6KBQAW9MFA BRG06KB098AA81200029 

Z R-YQ IQ 08-Y9 Z-Y Q Z 0- 9-Q 

19 9 l 9 

93B096AD.AGA6BB196B0 9BAA.AGA6BB181200030 

8- 8-9 YZY 0- 8- Z-9 YZY — 

9 9 9 9 9 

6DB0JA80BQJM8P80JA8R B0JS8RB0JX8C81200031 

Y8—Y8 08-Y9 Y8-Y9 8-Y9 8-Y9 Q 

99 9 9 9 9 9 Z 

GA70KA7 A0ABEAAGAA4BE AABQAAADEDLJ81200032 

ZQ 8 Y Q+Y8QY99Q898Q Y98 8QQ9QR89 

9 9 0-9999 09 99 9 9 9Z Z 9 

AHCLET AAAGMTG+7UHAAD +A7AA.AFAAAD81200033 

Y9Z9Q8ZQYQ99Z 80QY9 Q QZ Y9ZQY8 

9 Z Z9Z 9 99 9 0 9 Z99 


OATE 

EC 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F812 2540 RD 

FUNCTION 

SEC 3 

BTXT.AP8..A8., 

.AAAAAA 

CT9GHA7AMAGA7BBU9XF. 

9 Y99 Y9 

Y9ZYY9 

Z9 ZRQ Q9QZY RZ9 9Z 

9 9 

9 99 

9 0 9 

BTXT.AP0.aA8. 

• AAFAKD 

JAA+AAAAAAAAAAAAAAAA 

9 Y9+ Y9 

Y9 Y80 

YYY YYYYYYYYYYYYYYYY 

9 - 9 

9 99 

999 9999999999999999 

BTXT.APQ..AA. 

• AAAAAA 

AAAAAAAAAAAA. 

9 Y90 YQ 

Y9YYYY 

YYYYYYYYYYYY 

9 99 

9 9999 

999999999999 

BTXTaAPO.aAU. 

•AAaCC. 

.X.EXP.CC..X.ACT.ADR 

9 Y9- Y9 

Y9 


9 9 

9 


BTXTaAP3..AJ. 

•AA.ADR 

.XXXXXX.LINKA.. 

9 Y9 Y9 

Y9 

Y 

9 9 

9 

9 

BTXT.AQC.aA8. 

• AA.CAW 

aXXXXXX.CSWCCW.CSW.X 

9 Y99 Y9 

Y9 


9 9 

9 


BTXT.AQ3a.A8. 

a AAXaEX 

P.SNS.XX.ACT.LOG.XX. 

9 Y98 Y9 

Y9 


9 9 9 

9 


BTXT.AQC..A8. 

.AAT.SS 

• 0.ON.FOR.LOOP.ON. XI 

9 Y9R Y9* 

Y9 


9 0 9 

9 


BTXT.AQL..A8. 

•AA.ERR 

•CARD.IN.PRESTKR.STA 

9 Y9Y Y9 

Y9 


9 9 

9 


BTXT.AQT..A8. 

aAATEDa 

SHDaaaa..BUF 

9 Y9 Y9 

Y9 


9 9 

9 


BTXT.AJL..A8. 

• AADR.T 

RAN. 

9 Y 88 Y9 

Y9 


999 9 

9 


BTXT.AJC..A8. 

•AA9.MA 

KE.DEVICE.RDY..2.DIAG 

9 . Y8R Y9 

Y9 


99 9 

9 


BTXT.AJC..A8. 

.AAJDFA 

A.UIO.FROM.DEVICE.XX 

9 Y8Y Y9 

Y99YQ9 

Y 

99 9 

9 Z 

9 

BTXT.AJC..A8. 

.AAOBA+ 

OBJPBBMBMLOCWAIBWADK 

9 Y8 Y9 

Y9+QQ° 

+QY 9Q Q 8ZZ890889Q8 

99 9 

9 ZZ 

Z9 Z Z 9 - 09 

BTXT.AJC..A8. 

•AA5B4A 

JEHG4KA0C9GB0MKBEFA0 

9 Y8Q Y9 

Y99Q9Z 

YQZ9 Y 9 Y8-Z8QQ-9 

991 9 

9 Z 

Z 9 9 9Z9 

BTXT.AK3.aAA. 

. aAAG a a • 


9 Y89 Y9 

Y9Q 


99 9 

9 Z 


BTXT.AKM..A8. 

, .AAAAAA 

AAAAA.PREVIOUS.HANG. 

9 Y8 Y9 

Y9YYYY 

YYYYY 

99 9 

9 9999 

99999 
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7BIAAAFA74HDEDB0AW9S G05BDAQEAAAA81200034 

R0YY9ZQ 8-9QR8-Y9 9 Z 09Y9ZYYY9 

99 Z 9 Z 9 - 9 999 

AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA81200035 

YYYYYYYYYYYYYYYYYYYY YYYYYYYYYYYY 

99999999999999999999 999999999999 

. 81200036 


•XXXXXX.XIGA. .81200037 

Y 

9 

. .81200038 


XXXXXXX.XXXXXXXX.EXP ACTEXP.SNS.X8120C039 


XXXXXX.XXXXXX.XXXXXX .TST.XXXX.SE81200040 


OT.SS.l.ON.FOR.TlO.S IO.LOOP.READ81200041 

8 


PRESTKR.STASTACKER.R 1C.EXPEC81200042 

8 


• COL* PUNCHES* *RD..RD .XU.XL.PAR.A81200043 


•TE01234567881200044 


.CHK.RDS.ATTEMPTED.- BOTH.FAILEDA81200045 

Y 

9 

XXALEA.JFGA9BQGH00UD 0BA+0BUH00SD81200046 

Y8Q— Z-ZY 09QR+ R +QQ +Q9R+ 8R 

999 - 9 ZZ Z 

WF-F-AFAAG-9MFAB0AA0 YGABDB.B4KFB81200047 

89 9 8 YYZ Y-YQ -Y * ZQQ9- Q9 QQ 
99 9 Z 9Z Z Z 

YE+2FBA0YG09MAAAAAAA AAAAAAAAAAA781200048 

Z Y-Y Z YYYYYYYY YYYYR YYYYYY8 

9 99999999 9999 9999999 

. ...81200049 


UP.DETECTEDAAACDA.OE GACFE.90FABN81200050 

Y9Y8Q- 9 ZYQQZ O-YQ 
9 999 Z Z 
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EC 
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BTXT.ALD. 

».A8« 

, .AALGE. 

9 Y88 

Y9 

Y98RZ 

999 

9 

9 90 

BTXT.ALD. 

> • A8« 

, .AABNLG 

9 Y8Z 

Y9 

Y9Q 8R 

99 

9 

9 Z 90 

BTXT.AL4. 

»• A 8. 

•AAKAB4 

9 Y88 

Y9 

Y9 YQ9 

99 

9 

9 9Z 

BTXT.ALD. 

> • A8. 

•AAF+CQ 

9 Y80 

Y9 

Y9Z QO 

99- 

9 

9 Z 

BTXT.ALM. 

,.A8. 

• AABOGA 

9 Y8Y 

Y9 

Y9Q ZQ 

999 

9 

9 Z 9 

BTXT.AMU. 

• A 8. 

•AA8H8C 

9 Y89 

Y9 

Y9 0 

99 

9 

9 - 

BTXT.AMM. 

• A8. 

•AABULD 

9 Y88 

Y9 

Y9Q88Z 

99 

9 

9 Z 99 

BTXT.AMD. 

• A8. 

•AABOAA 

9 Y8- 

Y9 

Y98-Y9 

99 

9 

9 9 

BTXT.AMD. 

• A8. 

•AAAABO 

9 Y8Y 

Y9 

Y9- YQ 

999 

9 

9 Z 

BTXT.AND. 

• A8. 

•AAKAB8 

9 Y 89 

Y9 

Y9 YQQ 

99 

9 

9 9Z9 

BTXT.AN4. 

• AQ. 

•AAJAA+ 

9 Y88 

Y9 

Y9YYY 

999 

9 

9 999 

BTXT.ANQ. 

• A8. 

• AAAGA1 

9 Y8Z 

Y9 

Y9Y9Q8 

99 

9 

9 9 09 

BTXT.ANJ. 

• A8. 

.AASKJJ 

9 Y8Y 

Y9 

Y9999Y 

99 

9 

9 9 

BTXT.ANQ. 

. A 8. 

•AABHYB 

9 Y8 

Y9 

Y9909Z 

99 

9 

9 

BTXT.AOA. 

• A 8* 

•AAKFSG 

9 Y8Q 

Y9 

Y90988 

999 

9 

9 9 

BTXT.AOH. 

• A8. 

•AABDAO 

9 Y8Z 

Y9 

Y9 8Q+ 

99 

9 

9 99 

BTXT.AOA., 

• A8® , 

•AAAYWB 

9 Y8Y 

Y9 

Y99 8Z 

99 

9 

9 9 


CJA-ALHOBUAJE8EA0K6A 
QYZ Y8R+Q9ZYQ9ZQ Y8Y 
Z 99 Z Z 0 999 

C0B3E. CJF-COAHODGACD 
Z+Q8Z QYZ Q8-9 9ZQQ8 
-Z9 Z Z9 9Z9 

BCAB7MGACBAB7MGACBB. 
QQ-9 OZQQQ-9 YZQQQ- 
Z9 9Z0 9Z0 

G4AABNGAC0LGC0B4C0EQ 
9 -YQ ZQQ88RZ+Q98+QZ 
Z 9Z990 -Z -Z 

DKB0D5GUA.0EGADFB0J2 
Q98-99Q9- 9ZQQ98-Y8 

Z 9 Z 9Z 9 9 

EAOKSAAJOAFMAABDGADB 
ZQ Y8YYY YQY-YQQZQQZ 
0 99 99 9Z9 Z9 9Z 

C.BBADAGB. BBAJOEGADF 
Z QQZZY9Z QQ-Y 9ZYQQ 
Z9 9 Z9 9 Z 

GUGODKELBXGADKGODKPC 
Q9Z QY-8Q8ZYQYZ Q8 9 
Z Z9 9Z9 Z Z9 

GADKBODUGJBBEAOAFABM 
ZYQ88-98Q88QQY+Y-YQ 
Z99 9Z 99 9 9 Z 

B4LDC.BBADAGB. BBAJOE 
Q98ZZ QQZZY9Z QQ-Y 9 
Z 9 Z9 9 Z9 9 

BAK4AAA+CAK4AAAAAAAG 
9Y89YYY 9Y89YYY9YYY8 
99 999 99 999 9999 

AHQABQJAHEA1CH8CB8LA 

909Z099Y-9Y8909Z099Y 

9 

BEJ3CY2CS2LJBG01AHAA 
—9Y9999Z999Y09 999QZ 
9 9- 9 

B YKAQFAEAHMABMJ0DE05 
099Y09Y89 8Z 89+Q9+9 
9 9 9 

AYOA S0JSFES1BHJBBJKA 
9 8Z 898Q98999YZ9Y9Y 
9 9 9 9 9 

OOOUAHUBBUKOMFOXAQF. 
Y9+89 8Z 89+Y9+9YZ9 
9 9 9 - 9 

SWKSOFJAAHH® BHAAHDAY 
898Y9Y8Y09 09QY09Y9 
9 99 9 


AA0AGDAB7MGACBAB7MGA 
YQ YQ9-9 OZQQQ-9 YZQ 
99 9Z 9Z0 9 

KABCB4E.90H0BUAJE8EA 
YQQQ9Z 0R+Q9ZYQ9ZQ 
9Z9Z Z Z 0 

B4AA0YGAC+B0AAB4A+A+ 
Q9-9 ZQQ-8 ZYQ9Z Y 
Z 9Z 9 Z 9 

E.CJAOAAFABNGOCOBAGG 
Z QYZZY9-YQ Z Q89YQQ 
Z 9 Z Z9 9ZZ 

GEBBBOAAGUEA0AD7BMBA 
Q08Q8-Y9Q9QY+Y—8Q -Y 
Z 999 Z 9 9 Z 9 

KABBB4AJ EAEAOKWAAA1A 
YQQQ9ZYQQZQ Y8YYQ Y 
9Z9Z ZZ 0 9999Z 9 

AABOGADKAABMGADKBODU 
-YQ ZYQY-YQ ZQQY8-98 
Z Z9 Z 9Z99 9 

BUBUBABBAJOEGADKAHOD 
Q8Q8-YQQ-Y 9ZQQY-9 9 
Z9Z9 9Z9 9 9Z9 

G0DKB0AJE.H0BJKB8H8F 
Z Q88 ZYQ R+QY 8 0 Y 
Z99 Z Z9 9 - 9 

GADYGODKAAAABAK4J AA + 
ZYQ Z QYYYYY Y89YYY 
Z 199999 99 999 


HG05AHMABMJ•DE.5CH4C 
09-99Z9ZZ99 -9 99Z9Z 


BAJAAEAICHACBALAAGAC 
9Q9YQ9Y999QZ9Q9YQ9Y8 
999 Z Z 90 99 

BHUBBUK.MF.CAQGAKOJ- 
9Z9ZZ99 09 9YZ9ZZ99 
9 

JFAT AQB.KBAJBDJSAQSB 
Y9Q8Y08 08QYY9Y8908Z 
099 9 99 99 

KFA-FD-WAQWBKWK-OFOX 
Z9Q 09 99Z9ZZ99 09 8 
9 9 

AQ2CK2LJBG-EAHD.8DA. 
908Z089YQ9 9YZ9 Z9Q 
9 9 0 9 9 


CBAAOYGACOD781200051 
QQ-9 ZQQ8-8 
ZO 919 

0K6AAA0AGDL081200052 
Y8YYQ YQ98Z 

99999 9Z 9 

BHAAAGAAAHAA81200053 
ZRYYZRY9Z0Y9 
099 09 9 

E.90PCBUBUAA81200054 
Z 0 9Q8Q8-Y 
1919 

BBHOBJAJEYKB81200055 
QQR+QYZYQ9 8 
Z9 Z9 Z 9 

F4H.BUADAA+.81200056 
Q R Q8ZZY9 
Z Z9 9 

GJBBEAOAFABM81200057 
Q88QQY+Y-YQ 
Z 99 9 9 Z 

GADYAABMGADK81200058 
ZYQ -YQ ZQQ8 
Z Z 9Z9 

EA0K6AA.0AGM8120G059 
ZQ Y8YY YQ9 
0 99 9 9Z 

TAK4JAAAAAK481200060 
9Y89YYY9Z Y89 
99 999 99 


* 81200061 


B4L.DG03AYKA81200062 
199 09+9999Z - 


AQKAKKJJBEJ181200063 
908Z089YQ9Y8 
9 9 9 

FE-3B0BBSSKJ81200064 
-9 99+9Z999Y 
9 

KSKJKFOVAHD.81200065 
089YY9-8Y 8 
9 99 9 

AYF.SFASFDSW81200066 
Y 8 8Q8Y988 

9 9 99 9 

DD.UAH4CB4L081200067 
09 99 8Z 89+ 

9 9 
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BTXT.AOH. 

• A8. 

.AADGYX 

9 Y80 

Y9 

Y9Q 999 

99- 

9 

9 0 

BTXT.AOO. 

• A 8. 

•AADAAA 

9 Y8 

Y9 

Y98YYY 

99 

9 

9 9999 

BTXT.APY. 

• A 8. 

.AANPRO 

9 Y89 

Y9 

Y9 

99 

9 

9 

BTXT.AP-. 

• A8. 

•AAG.LO 

9 Y8 

Y9 

Y9 

99 

9 

9 

BTXT.APH. 

.AX. 

• AASW.R 

9 Y8- 

Y9 

Y9 

99 

9 

9 

BRLD. 

. A 8. 

...AAAA 

9 

Y9 

Y9Y9 


9 

9 9 

BEND.AX8. 


. A A . * . . 

9 Y8 


Y9 

99 


9 


BDAT. 

9 

AABCDEFGHABCDEFGAJKL 
Y999999998888888Q999 
9 99999999 

GHABCDEFGAJKL MNOPQJK 
998888888Q9999999988 
99999999 99 

FGAJKLMNOPQJKLMNOPJ/ 
88Q999999998888888Y9 
999 99999999 

NOPQJKLMNOPJ/STUVWXY 
99998888888Y99999999 
99999999 

MNOPJ/STUVWXY/STUVWX 
8888Y999999998888888 
99999 9999999 

TUVWXY/STUVWXA123456 
9999998888888Q999999 
9999999Z 

STUVWXA1234567812345 
888888Q9999999988888 
999999Z 99999 

123456781234567® ABCD 
/ 999999998888888 ZZZZ 
/ 9999999 

81234567.ABCDEFGHABC 
98888888 ZZZZZZZZ 888 
9999999 

. / l .: • : . 


AYB.SBAJBDJSAQ6C K6L- 
999 99QY09Y99Z9ZZ99 
99 9 

AAAAHAAAAAAADAAAAAN. 
YYYY9YYYYYYY9YYYYY8 
9999 9999999 999999 

TPLACE.DETAIL.CDS.IN 
8 


ADER-.KEEP.ONLY.DETA 


ESTART.IF.SET.OF.DET 


AAANEAA4AAP/AAPAAAJB 
8YQ98YQ88Y988Y9R8Y8Y 
999 999 99 99 0999 


MNOPQJKLMNOPJ/STUVWX 
999998888888Y9999999 
99999999 

LMNOPJ/STUVWXY/STUVW 
88888Y99999999888888 
999999 999999 

STUVWXY/STUVWXA12345 
99999998888888Q99999 
9999999Z 

/STUVWXA123456781234 
8888888Q999999998888 
99999991 9999 

A123456781234567.ABC 
Q999999998888888 111 
Z 9999999 

781234567.ABCDEFGHAB 
998888888 ZZZZZZZZ88 
9999999 

67.ABCDEFGHABCDEFG+A 
88 ZZZZZZZZ8888888 R 
99 

EFGHABCDEFG+ABCDEFGH 
ZZZZ8888888 RRRRRRRR 


DEFG+ABCDEFGHJKLMNOP 
3388 RRRRRRRR8888888 


FGJAAHA.BAAAADAJAY6C 
09Y9Y9Y 9YQYY9YY9 8Z 
-999 999 99 9 

HAAAAAAADAAAAANHHAAA 
9YYYYYYY9YYYYY8Z9YYY 
9999999 999999 999 

•RDRC.HPRTMAKE.RDYTE 
8 8 8 


IL.CDS.IN.RDR.SET.SS 


AIL.CDS.DESIRED 


AAN/AAN1AAN1AANAAANA 
8Y888Y898Y888Y8Z8Y88 
9999999 9999999 999 


Y/STUVWXA12345678123 
98888888Q99999999888 
9999999Z 999 

XA123456781234567.AB 
8Q999999998888888 ZZ 
9Z 9999999 

6781234567.ABCDEFGHA 
9998888888 ZZZZZZZZ8 
9999999 

567.ABCDEFGHABCDEFG+ 
888 ZZZZZZZZ8888888 
999 

DEFGHABCDEFG+ABCDEFG 
ZZZZZ8888888 RRRRRRR 


CDEFG+ABCDEFGHJKLMNO 
88888 RRRRRRRR888888 


BCDEFGHJKLMNOP-/KLMN 
* RRRRRRR8888888 ZZZZ 


JKLMNOP-/KLMNOPQ/+TU 
8888888 ZZZZZZZ8-88 


-/KLMNOPQ/+TUVWXOABC 

ZZZZZZZ8-88888+RRR 

-000 


S6LSFGAAAANA81200068 
898Q9YYYY8Q 
9 0 99999Z 

AAAADAAA.DO.81200069 

YYYY9YYY 

9999 999 

OF.ON.LOOP IN81200070 


W.9.0NT.D0.P81200071 
8 


81200072 


EAOMEAPDDAPM81200073 
8Y8Y8Y898Y89 
9999999 999 

..81200074 


81200075 


4567.ABCDEFGHABCDEFG 
8888 ZZZZZZZZ8888888 
9999 

CDEFGHABCDEFG+ABCDEF 
ZZZZZZ 8888888 RRRRRR 


BCDEFG+ABCDEFGHJKLMN 
888888 RRRRRRRR88888 


ABCDEFGHJKLMNOP-/KLM 
RRRRRRRR8888888 ZZZ 


HJKLMNOP-/KLMNOPQ/+T 
R 88888 88 ZZZZZZZ8-8 


P-/KLMNOPQ/+TUVWXOAB 
8 ZZZZZZZ 8-88 888+RR 
-00 

0PQ/+TUVWX0ABCDEFGH1 
ZZZ8-88888+RRRRRRRR8 
-00000000 

VWX0ABCDEFGH1234567A 

888+RRRRRRRR8888888Y 

-00000000 

DEFGH1234567AABCDEFG 
RRRRR8888888Y0000000 
00000 
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EC 
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7.ABCDEFGHABCDEFG+AB CDEFGHJKLMNOP-/KLMNO 

8 ZIZZZllZ 8888888 RR RRRRRR8888888 ZZZZZ 

9 

FGHABCDEFG+ABCDEFGHJ KLMNOP-/KLMNOPQ/+TUV 

ZZZ 8888888 RRRRRRRR8 888888 ZZZZZZZ8-888 

{ 

EFG+ABCDEFGHJ KLMNOP- /KLMNOPQ/+TUVWXOABCD 

888 RRRRRRRR8888888 ZZZZZZZ8-88888+RRRR 

-0000 

DEFGHJKLMNQP-/KLMNOP Q/+TUVWX0ABCDEFGH123 

RRRRR8888888 ZZZZZZ Z8-88888+RRRRRRRR888 

-00000000 

LMNOP-/KLMNOPQ/+TUVW X0ABCDEFGH1234567AAB 

88888 ZZZZZZZ8-8888 8+RRRRRRRR8888888Y00 

-OOQOOOOO 

KLMNOPQ/+TUVWXOABCDE FGH1234567AABCDEFGHI 

ZZZZZZZ8-88888+RRRRR RRR8888688Y000000000 

-00000 000 

/♦TUVWX0ABCDEFGH1234 567AABCDEFGHIBCDEFGA 

8-88888+RRRRRRRR8888 888Y00000Q000YYYYYYQ 

-00000000 

0ABCDEFGH1234567AABC DEFGHIBCDEFGAABCDEFG 

+RRRRRRRR8888888Y000 OOOOOOYYYYYYQ—- 

-00000000 

GHI234567AABCDEFGHIB CDEFGAABCDEFGHIBCDEF 


RR 8888888Y00000000QY YYYYYQ--QQOQO 

00 

67AABCDEFGHIBCDEFGAA BCDEFGHIBCDEFGJJKLMN 

88Y00000000QYYYYYYQ- —--—QQQQQQYOOOOO 


EF6HIBCDEFGAABCDEFGH IBCDEFGJJKLMNOPQRKLM 


OOOOOYYYYYYQ- -QQQQQQYOOOOOOOOOYYY 

DEFGAABCDEFGHIBCDEFG JJKLMNOPQRKLMNOPAABC 

YYYYQ-:-QQQQQQ YOOOOOOOOOYYYYYYQOOO 

0- 


CDEFGHIBCDEFGJJKLMNQ PQRKLMNOPAABCDEFGHIB 

-QQQQQQ YOOOOOO OOOYYYYYYQOOOOOOOOOQ 

0---0 

BCDEFGJJKLMNOPQRKLMN OPAABCDEFGHIBCDEFGOA 

QQQQQQYOOOOOOOOOYYYY YYQOOOOOOOOOQQQQQQ+ 

0---000000 

JKLMNOPQRKLMNOPAABCD EFGHIBCDEFGOABCDEFGH 

OOOOOOOOOYYYYYYQ0000 0Q000QQQQQQ+ 

0 ——. -000000 

QRKLMNOPAABCDEFGHIBC DEFGOABCDEFGHIBCDEFG 

OOYYYYYYQOOOOOOOOOQQ QQGQ+ YYYYYY 

0-00 0000 999999 

PAABCDEFGHIBCDEFG0A8 CDEFGHIBCDEFGOJKLMNO 

YQOOOOOOOOOQQQQQQ+ YYYYYY- 

O—-— 000000 999999 
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PQ/+TUVWX0ABCDEFGH12 34567AABCDEFGHIBCDEF 

ZZ8-88888+RRRRRRRR88 88888Y0000C0C00YYYYY 

-00000000 

WX0ABCDEFGH1234567AA BCDEFGHIBCDEFGAABCDE 

88+RRRRRRRR8888888YO OOOOOOOOYYYYYYQ- 

-00000000 

EFGHI234567AABCDEFGH IBCDEFGAABCDEFGHIBCD 

RRRR8888888Y00000000 OYYYYYYQ-QQQ 

0000 

4567AABCDEFGHIBCDEFG AABCDEFGHIBCDEFGJJKL 

8888 YOOOOOOOOOYYYY YY Q-QQQQQQ YOOO 


CDEFGHIBCDEFGAABCDEF GHIBCDEFGJJKLMNOPQRK 


0000000YYYYYYQ- -QQQQQQY OOOOOOOOOY 

BCDEFGAABCDEFGHIBCDE FGJJKLMNOPQRKLMNOPAA 

YYYYYYQ-QQQQ QQ YOOOOOOOOOYYYY YYQO 

0- 


ABCDEFGHIBCDEFGJJKLM NOPQRKLMNOPAABCDEFGH 

--QQQQQQYOOOO OOOOOYYYYYYQ OOCOOOOO 

0—*- 

HIBCDEFGJJKLMNOPQRKL MNOPAABCDEFGHIBCDEFG 

—QQQQQQYOOOOOOOOOYY YYYYQOCOOCCOOOQQQQQQ 

0-COCOOO 

GJJKLMNOPQRKtMNQPAAB CDEFGHIBCDEFGOABCDEF 

QYOOOOOOOOOYYYYYYQOO OOOOOOOQQQQQQ+ 

0— -OOOCOO 

OPQRKLMNOPAABCDEFGHI BCDEFGOABCDEFGHIBCDE 

OOOOYYYYYYQOOOOOOOOO QQQQQQ+ .YYYY 

0---- 000000 9999 

NOPAABCDEFGHIBCDEFGO ABCDEFGHIBCDEFGOJKLM 

YYYQ000000000QQQQQQ+ YYYYYY- 

0---000000 999999 

DEFGHIBCDEFGOABCOEFG HIBCDEFGOJKLMNOPQRBC 

000Q00QQQQQQ4 YYYYYY- QQ 

---000000 999999 99 

CDEFGOABCDEFGHIBCDEF GOJKLMNOPQRBCDEFGSJS 

QQQQQ+ 4 YYYYY Y- QQQQQQ8Z 

00000 99999 9 999999 

BCDEFGHIBCDEFGOJKLMN OPQRBCDEFGSJSTUVWXYZ 

YYYYYY- QQQQQQ8Z 

999999 999999 

IBCDEFGOJKLMNOPQRBCD EFGSJSTUVWXYZKLMNOPO 

YYYYYY- QQQ QQQ8Z YYYYYY 

999999 999 999 999999 

OJKLMNOPQRBCDEFGSJST UVWXYZKLMNOPOl234567 

QQQQQQ8Z YYYYYY 

999999 999999 

PQRBCDEFGSJSTUVWXYZK LMN0P0123456789BCDEF 

QQQQQQ8Z Y YYYYY QQQQQ 

999999 9 99999 ZZZZZ 
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TABLE OP CONTENTS 


1. PURPOSE 


PURPOSE...I 

PREREQUISITES..> 1 

USE PROCEDURE.1 

PRINTOUTS.... • • • 2 

COMMENTS.«.3 


F819 2540 READER STACKER SELECT TEST 

TESTS ABILITY TO... 

1. ISSUE 360 STACKER SELECT COMMANDS. 

2. READ AND STACKER SELECT USING 1400 COMPATIBILITY 
COMMANDS. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS. 

THE EXCLUSIVE CPU FLAG IS ON IN ALL SECTIONS. 

DM MUST HAVE A FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL AND UNIT ADDRESS. 


1 UNIT TYPE 


2540 READER 


I OPTIONAL FEATURE DIGIT 1 1 OPTIONAL FEATURE DIGIT 2 l 


ll |BIT 0 1 BIT 1 |BIT 2 |BIT 3 |8IT 4 |BIT 5 I BIT 6 I BIT 7 I 

|HEX 8 (HEX 4 |HEX 2 |HEX 1 |HEX 8 JHEX 4 |HEX 2 jHEX 1 j 

81 I |CARO | 151 COL 11400 I I 12 CHNLl 

| |IMAGE | IFEAT. |FEAT. | I ISW ON t 

| I I III! S 2821 I 


2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR LOADING PROGRAM -TEST DEVICE CAN BE LOADER-. 
OUTPUT DEVICE. 

4K OF STORAGE 
CPU 

CHANNEL 
USE PROCEDURE 

3.1 PROGRAM LOADING. 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 

NOTE **^************************** 

* IF 2 CHANNEL SWITCH FEATURE IS INSTALLED, DISABLE THE * 

* UNUSED INTERFACE TO PREVENT NOT READY TO READY STATUS * 

* FROM BEING PRESENTED TO THE OTHER CHANNEL. ♦ 

*♦*****♦♦**#***♦♦**♦*♦♦♦**♦♦**♦♦*♦*♦♦♦*♦♦♦****♦♦*♦♦**♦*♦♦ 6 ***** 


IF MORE THAN ONE 2540 IS OEFINED IN THE DM UDT, ALL ROUTINES 
IN EACH SECTION WILL BE EXECUTED ON THE FIRST 2540 ALLOCATED 
BY DM BEFORE ANY TESTING OCCURS ON THE NEXT. 

3.2.1 SECTION SENSE SWITCHES 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES ™EIR 
RESPECTIVE SECTION PREFACES. THE CHARACTER X REPR SS* N J* 

FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. THE SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON. 

NOTE. RESETTING SENSE SWITCH 0 OR 1 AFTER LOOPING MAY CAUSE ERRORS IN 
THE NORMAL PROGRAM RUN. 


-PROCEED 

-LOOP ON CURRENT 1-0 COMMAND. 
-PROCEED 

-LOOP ON CURRENT SIO, TIO COMMAND. 


-PROCEED 

-LOOP ROUTINE CURRENTLY BEING EXECUTED. 


-PROCEED 

-PRINT CORRECT RESULTS. 


-PROCEED 

-LOOP STACKER SELECT R1 * SEE NOTES 


-PROCEED 

-LOOP STACKER SELECT R2 * SEE NOTES 


-PROCEED 

-LOOP STACKER SELECT RP3 * SEE NOTES 


SECTION 

OR 

ROUTINE 


* NOTES 

* WILL LOOP 360 STACKER COMMAND IF IN SECTION F819, ROUTINE 01. 

* WILL LOOP 1400 STACKER COMMAND IF IN SECTION F819, ROUTINE 02. 

* LOWEST SENSE SWITCH HAS PRECEDENCE IF MORE THAN 1 IS ON AT THE 
SAME TIME. 


3.3 PROGRAM HALTS 

F819 IF THE TESTS ARE EXECUTED, A MESSAGE AND HALT OCCUR TO 

ALLOW THE OPERATOR TO PREPARE FOR THE STACKER SELECT TESTS. 
TEST DECKS MUST BE REMOVED IF TESTING THE LOADER DEVICE. 


15JUN67 

130498 


ID F819-* 
PAGE 1 


15JUN67 

130498 


ID F819-* 
PAGE 1A 





























IBM MAINTENANCE DIAGNOSTIC PROGRAM 



P/H 840578 
PAGE 2 

2540 READER STACKER SELECT TEST 


4w PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 


AN SDO HEADER IS GIVEN WITH EVERY MESSAGE TO DEFINE THE 1-0 
DEVICE ADDRESS THAT IS ASSOCIATED WITH THE MESSAGE. 


F819 - REMOVE CDS FROM STACKER OF LOADER DEVICE- 

• REMOVE THE REMAINING TEST DECKS,IF ANY, FROM THE LOADER HPR- 

- DO NORRO AND PLACE CDS RUN OUT IN FRONT OF REMAINING TEST DECKS- 

- SAVE REMAINING TEST DECKS UNTIL A MSG REQUESTS THEM TO BE PUT IN HPR- 

THE ABOVE MESSAGE IS ISSUED WHEN THE INTERVENTION ROUTINE IS TO BE 
EXECUTED ON THE LOADER DEVICE. IT PREVENTS THE READING OF TEST 
DE^KS BY THE ROUTINE. 


- PLACE APPROX 100 VALID SCRAP CDS IN RDR. HPR,MAKE ROY,EOF GM- 

THIS MESSAGE IS GIVEN AT THE START OF THE STACKER SELECT 
TEST. VALID SCRAP CARDS CAN BE EITHER BLANK CARDS OR CARDS 
WHICH HAVE ANY OF THE 360 EBCDIC CHARACTERS PUNCHED IN THEM. 

- RTM BYPASSED - 

THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED. 

ROUTINE 02 WILL BE BYPASSED IF THE 2540 DOES NOT HAVE 1400 COMPATIBILITY. 

- EMPTY RDR HPR AND STKRS -DO NQPRO- PUT TEST DKS IN AND MAKE RDY,EOF ON - 

™c ABOVE MESSAGE IS ISSUED WHEN THE EXECUTION OF SECTION F819 
IS COMPLETED AFTER TESTING THE LOADER DEVICE. THIS ALLOWS THE 
OPERATOR TO READY ANY REMAINING TEST DECKS FOR LOADING. 


4«2 STATUS MESSAGES 

A.2*1 SAMPLE CORRECT PRINTOUT 

LINE MESSAGE 

01 
02 
03 
04 
05 
06 

07 
08 
09 
10 
11 
12 

13 

14 

15 

16 


- SDO F819R 08 00135C QOC- 

- TST 0010- 

- ADR 001BA4 LINK- 

- ADR 001182 $10- 

- CAW 001BB8- 

- CCW 02001831 80000020- 

- CCW 00001831 00000030- 

- CC 0 EXP- 

- CC 0 ACT- 

- CSW 00001BC8 08000001 EXP- 

- CSW 00001BC8 08000001 ACT- 

- CSW 00000000 04000000 EXP- 

- CSW 00000000 04000000 ACT- 

- SNS 00 EXP- 

- SNS 00 ACT- 

- LOG 00 000000 000000 000000- 

- SET SS 0 ON FOR LOOP ON SIO, S$ 1 ON FOR TIO SI0 LOOP- 



o o o 
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4.2.2 ANALYSIS OF SAMPLE PRINTOUT # 

LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY OM. IF AN ASTERISK 

PRECEDES THE -SDO- AN ERROR HAS CAUSED THE MESSAGE 
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE 
IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 
SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 
BY ANOTHER -SDO- PRINTOUT. THE -F819R- IS THE SECTION 
ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 
THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 
WHILE THE -OOC- IS THE ADDRESS OF THE DEVICE UNDER TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 

BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 

SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION YOU 
WANT TO LOOK AT WILL BE THE NEXT ONE PERFORMED, YOU SHOULD 
RESTART THE PROGRAM WITH A SYSTEM RESET, PSW RESTART, AND 
ADDRESS STOP AT THE GIVEN ADDRESS. 

04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE. 

05 THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 

A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 

THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED.. 

THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CODE EXPECTED, BY THE 

PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 

TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE DEVICE STATUS BYTE PORTION 
OF THE CSW APPEARS IN THE PROGRAM LISTING FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECEIVED BY THE PROGRAM. 

NOTE. FOR EVERY EXPECTED (EXP) CSW PRINTED OUT THERE SHOULD BE A CORRESPONDING 

ACTUAL (ACT) CSW PRINTED OUT ON THE NEXT LINE. THE ABSENCE OF A (ACT) CSW 
PRINTOUT INDICATES A MACHINE FAILURE. A MACHINE FAILURE IS ALSO INDICATED IF 
THERE ARE (ACT) CSW PRINTOUTS WHERE THERE ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN ONE CSW. 
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12 THIS LINE WILL APPEAR IE THE PROGRAM RECEIVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM* 

A BIT BY BIT DESCRIPTION OF THE 2540 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 

MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON, 

A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT LOOPING OCCURS ON THE 
COMMAND THAT FAILED, THE OPERATOR SHOULD HAVE THE DM 
SENSE SWITCH ON THAT ENABLES HALTING WHEN AN ERROR 
OCCURS, SET THE PROPER SECTION SENSE SWITCH ON, 

AND PRESS THE EXTERNAL INTERRUPT KEY TO EXECUTE. 


4.2*3 PSW RESTART AFTER I/O HANG UP 
- PREVIOUS HANG UP DETECTED- 

THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANG UP CONDITION ON AN I-Q COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE!IN 
4.2.1. 


4.2.4 UNEXPECTED I/O INTERRUPT MESSAGE 

♦SDO F819R 02 001254 XXX 

UIO FROM DEVICE XXXX 
CSW 00000000 04000000 ACT 
LOS 00 000000 000000 000000 


5. COMMENTS 
5.1 LOOPING 

IN SOME CASES, IT MAY BE DESIRED TO LOOP ON AN ENTIRE ROUTINE 
RATHER THAN USE THE SECTION SENSE SWITCH LOOPS PROVIDED. ONE 
METHOD OF DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN XJ4C. WHERE X STANDS FOR THE 4K BLOCK RELOCATION ADDRESS. 

THEN PERFORM A SYSTEMIRESET-PSW RESTART, AND THE PROGRAM WILL 
LOOP ON THE ROUTINE. 

SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS. 


EXAMPLE SHOWS F819 -R IS REVISION LEVEL- 

WHERE XXXX IS THE DEVICE ADDRESS OF THE INTERRUPT. 

CPU AND CHANNEL LOG OUT (MODEL 30 ONLY) 
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2540 DEADER STACKER SELECT'TEST - SECTION F819 


001000 


8190 TITLE 

****************************S&****************************************** 


* * 

♦ MODIFICATIONS * 

* * 

* * 

♦ REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

♦ THIS SECTION CONTAINS THE 360 STACKER SELECT TEST WHICH WAS * 

* FORMERLY IN SECTION F8U THIS SECTION ALSO CONTAINS THE 1400 * 

* COMPATIBILITY STACKER SELECT PROGRAM* FORMERLY LOCATED IN * 

* SECTION F817. SECTION F817 IS MADE OBSOLETE BY THIS SECTION. * 

* i. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TEST NUMBERS AND * 

♦ COMMON MESSAGE FORMAT. ♦ 

* 1 j : y * 

* E.C. PREREQUISITES i: ♦ 

♦ MACHINE ... NONE ♦ 

♦ PROGRAM . . . NONE * 

♦ * 

* USE DESCRIPfION F819* AT EC 130498, DATED 15 JUN 67. * 

♦ * 


*********************************************************************** 
XF8190 START 4096 
USING *,15 

* ;; 

* 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 

*********************************************************************** 
*********************************************************************** 
♦TEST DESCRIPTION 

* 

* 

* ************** 

* ROUTINE 01 

* ************** 

* 

♦ 0010 - OPERATION ATTEMPTED 

* . 

♦ THIS TEST NUMBER IS USED TO INDICATE PROBLEMS IN THE 360 

♦ STACKER SELECT TEST. A READ 'FEED STACKER SELECT IS DONE IN 

♦ THE FOLLOWING PATTERN, R1• R2, R1, RP3, REPEATING 10 TIMES. 

♦ THIS ROUTINE SHOULD PLACE 20 CARDS IN Rl, 10 CARDS IN R2» AND 

♦ 10 IN RP3 AT A CARD SPEED OF APPROXIMATELY 1000 CARDS PER 

♦ MINUTE. CARD TIMING CAN BE ALTERED WITH THE USE OF THE 

♦ • ALTERNATE CLUTCH SWITCH .IN THE 2540. 

♦ , 

♦ EXPECTED RESPONSE 

* 

♦ CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS IN 2 SEPARATE 

♦ CSWS. 

♦ 

♦ POSSIBLE FAILURE CAUSES 

* 

♦ A STACKER MAGNET MAY FAIL TO PICK OR MAY FAIL TO RELEASE. 

♦ THIS CAN ONLY BE VISUALLY DETERMINED. 

♦ 

* 

* , ************** 

♦ ROUTINE 02 

* ************** 

* 

* 0020 - OPERATION ATTEMPTED 

* 

♦ THIS TEST NUMBER IS USED TO INDICATE PROBLEMS IN THE 1400 

♦ STACKER SELECT TEST. A 1400 READ NO FEED IS ISSUED FOLLOWED 

♦ BY THE VARIOUS 1400 FEED AND STACKER SELECT COMMANDS. THE 
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♦ ■ FOLLOWING STACKER SELECT PATTERN IS USED© RL« R2t Rl* RP3 f 

♦ REPEATING 10 -TIMES. THIS ROUTINE SHOULD PLACE 20 CARDS IN 

♦ ■ Rl, 10 CARDS IN R2 V AND 10 .CARDS IN RP3. THE CARD SPEED IN 

♦ THIS TEST-IS LIMITED DUE TO THE SEPARATE COMMANDS INVOLVED 

♦ AND ALSO DUE TO THE SAVING OF DATA DURING EXECUTION. 

♦ IF 1400 COMPATIBILITY EXISTS ON THE TEST DEVICE, BOTH THE 

♦ 360 AND 1400 STACKER SELECT TESTS WILL BE EXECUTED. DOUBLE 

♦ THE AMOUNT OF CARDS WILL BE IN EACH STACKER AT PROGRAM 

♦ COMPLETION IF THIS IS THE CASE. 

♦ . 

♦ EXPECTED RESPONSE 

* 

♦ . CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE 

♦ SAME CSW BECAUSE NO FEED CYCLE OCCURS. 

♦ . 

♦ POSSIBLE FAILURE CAUSES 

* . 

♦ A STACKER MAGNET MAY FAIL TO PICK OR MAY FAIL TO RELEASE. 

♦ THIS CAN ONLY BE VISUALLY DETERMINED. 

♦ 

* THE DM UDT ENTRY FOR THE OPTION BYTE OF THE 2540 MAY HAVE 

* BEEN ERRONEOUSLY SET UP TO INDICATE THAT 1400 COMPATIBILITY 

* HARDWARE EXISTS IN THE 2540. THE 1400 COMPATIBILITY TESTS 

* WILL BE ATTEMPTED AND WILL INDICATE ERRORS. 

* 

♦ ALL OTHER ERRORS WILL HAVE TO BE ANALYZED BY THE INDICATIONS 

♦ GIVEN IN THE ERROR MESSAGE. 

♦ 

* 

♦ 0030 - OPERATION ATTEMPTED 

♦ . : 

♦ • THIS TEST NUMBER IS USED .TO. INDICATE PROBLEMS IN THE FEED j 

♦ • STACKER SELECT PORTION OF THE 1400 STACKER SELECT TEST® REFER 

♦ - TO TEST NUMBER 0020 FOR FURTHER INFORMATION. 

♦ 

♦ EXPECTED RESPONSE 


♦ , CONDITION CODE l -COMMAND IMMEDIATE WITH CHANNEL .AND DEVICE 

♦ ■ ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 

♦ ■ DETECTED DURING THE FEED COMMAND. 

♦ . 

♦ ■ POSSIBLE ERROR CAUSES 

* . 

♦ 1. IF USING DME-2 ON A 2 MICROSECOND MODEL 30, 

♦ - THE PROGRAM FAILS DUE TO TOO MUCH TIME TAKEN IN INTERNAL 

♦ INSTRUCTIONS WHICH CAUSES A DELAY IN STACKER SELECTION. 

♦ PROVISIONAL FEED STARTS BEFORE THE PROGRAM CAN ISSUE THE 

♦ STACKER COMMAND. 

♦ 2. ANY .MALFUNCTION DURING TEST 0020 CAN CAUSE DELAY .BECAUSE 

♦ - OF THE MESSAGE OUTPUT IN TEST 0020. THIS WOULD ALLOW THE 

♦ PROVISIONAL FEED CIRCUITRY TO FUNCTION BEFORE THE PROGRAM 

♦ HAD TIME TO ISSUE THE FEED COMMAND. 

♦ 

♦ 1400 PROVISIONAL FEED OPERATION AND DEFINITION® 

* 

♦ THE FOLLOWING IS AN EXPLANATION OF 1400 PROVISIONAL FEED 

♦ OPERATION. 

♦ . 

♦ A 1400 READ NO FEED COMMAND IS ISSUED AND CHANNEL AND DEVICE 

♦ ENDS RETURN IN THE SAME CSW BECAUSE NO FEED CYCLE IS TAKEN. 

♦ . < ” 

♦ THE PROGRAM HAS TO ISSUE A FEED AND STACKER SELECT COMMAND 

♦ WITHIN 6 MILLISECONDS. IF IT DOES NOT, THE PROVISIONAL 

♦ FEED CIRCUITRY AUTOMATICALLY STACKER SELECTS THE CARD. IF 

♦ THE PROGRAM ISSUES A STACKER SELECT AFTER THE PROVISIONAL 

♦ FEED HAS STARTED, THE DEVICE WILL ACT BUSY OR PRESENT BOTH 

♦ BUSY AND DEVICE ENDS IN STATUS IF THE PROGRAM ACCEPTS THE 

♦ INTERRUPT. 


DATE 

EC 


15JUN67 

130498 


ID F819-0 
PAGE 1A 








diagnostic pruhkan 


P/M 840574 
■PAGE 2 

2540 .'READER STACKER SELECT >TEST - SECTION F819 


* • ' A -COMMAND,'REJECT COULD .BE GENERATED .'ON THE DEVICE UNDER 

* THE CONDITION THAT THE .PROVISIONAL FEED MAS DONE AND THE 

* PROGRAM'ATTEMPTS A FEED AND STACKER SELECT ALSO, DUE TO 

* • 2 FEEDS IN k ROW BEING ATTEMPTED* 

* 

* IF THIS ERROR IS INDICATED* THE SINGLE SHOT THAT GOVERNS 

* THE 6 MILL!SECOND DELAY FOR THE PROVISIONAL FEED SHOULD BE 

* ' SCOPED TO INSURE PROPER SETTING* IF THE SINGLE SHOT IS ALL 

* ' RIGHT * THE MONITOR BEING USED MUST BE TOO SLOW AND THE ERROR 

* ■ IGNORED* 

* . 

*. i ; 

******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 
******************* * ****************** 


00100© 

»F819009© 

SEGNO 

DC 

XL4"F8190000* . 

PROGRAM,SECTION AND REVISION NOS. 

* 

001004 : 

00000000 

$N$y 

DC 

ML4*©0 8 

SECTION SENSE SWITCHES 

* 

001008 • 

0900 


DC 

XL2 * ©0® 


4 

0010OA 

0000 

1CM ' 

DC 

XL2* 00* . 

INTERRUPTION CONDITION MASK 

4 

00100C 

00 . 

SDMF 

DC 

XL1 3 ©0® 

SECTION DM FLAGS 

4 

00100D 

02 

NIQU 

DC 

XL 1® 02 8 

NUMBER OF UNIT TABLE ENTRYS . 

* 

001OOE 

CO : 

' FL.AG1 

DC 

X 6 C0* 

EXCLUSIVE CPU 


00100F 

00 

FLAG 2 

DC 

X * 00 9 

I/O INI ARE ERR* EXT INI TO PROG 

* 

001010 

010400000© 

1NPSW’ 

DC 

X*0104000000 s 

DISABLED* SPWSR STATE, NO PGM MASK 

* 

001015 

001878 


DC 

’AL3IR0UT011 

ADR OF 1ST ROUTINE PREFIX 

4 

001018 ‘ 

OCIOOOOOOOOOOOOOO 

EXOPSW 

DC 

XL8® 0® 

SECTION OLD EXTERNAL P$W 

4 

001020 . 

0000000000000000 . 

SVOPSW 

DC 

XL8 ® 00® 

CLEAR ALL OLD PSWS 

* 

001028 ' 

OOOOODOOOOOO0OOO ^ 

P60PSW 

DC 

XL 8 ® 00® - 

PROGRAM OLD PSW 


001030 

0000000000000000 

MCOPSW 

DC 

11.8*00® . 

MACHINE CHECK OLD PSW 

* 

001038 

OO00OOOO0OO0OOO0 

IOQPSW 

■DC 

XL 8 s .00® 

I/O OLD PSW 

* 

001040 , 

0000009000000000 . 

CSW 

DC 

■ XL8* 00* ■ 

CHANNEL STATUS WORD 

* 

001048 ' 

00000000 

CAW 

DC 

XL4® 00® . 

CAW 

* 

00104C 

000000000000000000 


DC 

XL12 * 00® 

RESERVED FOR DM USE- 

* 

001055 

GQOO00 






001058 

0004090000 

EXNPSW 

■DC 

,X® 0004000000* , |"- 

EXTERNAL NEW PSW 

* 

00i050 

000000 

SRET 

BC 

XL3® O 1 . 

ADR OF EXT INTRPT ROUTINE 


001060. 

0000000000000000 

SVNPSW 

DC 

MLS® 00 s 

SUPERVISOR NEW PSW 

♦ 

001068. ' 

0000000000000000 : 

PGNPSW 

DC 

XL 8 *00® , (j 

PROGRAM NEW PSW■ 

* 

001070 

0000000000000000 

MCNPSW 

DC 

XL8® 00® - 

MACHINE CHECK NEW PSW 

* 

001078 

01040000 

IQNPSW 

DC 

XL4101040000® 

I/O NEW PSW 

* 

0010 ? £ 

000011F6 


DC 

AL4CIRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 

* 

001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM'USE 

* 

0010E0 

81 

UN III 

DC 

X * 81. 0 

UNIT TYPE - 2540 READER 


0010E1 

O0 

yiop 

DC 

X® 00 s 

OPTIONAL FEATURES BYTE 

* 

0010£2 

8000 

U1ADDR 

DC 

x^aooo® 

FLAGS AND CHAN/UNIT ADDRESS 

* 

0010E4 : 

82 

UNIT2 

DC 

X 8 82 ® 

UNIT TYPE - 2540 PUNCH 


0010E5 

00 

U20P 

DC 

X«00* 

OPTIONAL FEATURES BYTE 


001066 , 

0000 

U2ADDR 

DC 

X*O000® 

FLAGS AND CHAN/UNIT ADDRESS 



*********************************************************************** 

* OPTIONAL FEATURE BYTE DEFINITION 

* * BIT 0 * BIT 1 * BIT 2.* BIT 3 * BIT 4 * BIT 5 * BIT 6 * SIT 1 * 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 * HEX 2 * HEX 1 * 

* * ASCII * CARD * * 51 * 1400 * * * 2821 * 

* * * IMAGE * * COL RD* COMP * * * 2 CNN * 

* * * * * i * * * * SW. * 

*********************************************************************** 

* 2540 READER SENSE BYTE 
************************************************************* ****** **** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 


DATS ■ 15JUN67 ■' ID F819-0 

EC 130498 PAGE 2 


' > if\ -T> (O) 

<J>- \J' • o \J 


o o o o 
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2540 READER STACKER SELECT .TEST - SECTION-F819 


* T NOT USED' 

*********************************'*************4Ufe*****^**** ************ 

* 2540 READER STATUS BYTE 
**************************************************&******************** 

* BIT MEANING 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

* SENSE WAS ISSUED BEFORE 6 MS TIME, OUT AFI'ER 

* A 1400 COMPATIBILITY READ* 

* 1 STATUS MODIFIER,- 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END ~ 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ* AND END OF 

* FILE WAS ON* 
*********************************************************************** 

* 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 
*********************************************************************** 

* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 XU CHECK PLANE 

* 4 XL CHECK PLANE 

* 5 BUFFER PARITY CHECK 

* 6 READ TRANSLATE CHECK 

* . 7 READER BUFFER ADDRESS CHECK 

*********************************************************************** 
*********************************************************************** 
*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 
*********************************************************************** 


4 

. BAL 

RllylSIO 

LINK TO 1-0 HANDLER 

* 

DC 

XL2•0000 * 

CONTROL SWITCHES 

* 

DC 

X® 0014* 

TEST NO. IN DEC EXPRESSED IN HEX 

* 

DC 

X * F 0* 

EXPECTED COND. CODE 

* 

DC 

X®00® 

EXPECTED SENSE DATA 

* 

DC 

AL2 C ADR-BASE+REG1 

ADDR. OF EXPECTED CSW IF NEEDED 


*********************************************************************** 

*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* .2 BYTE PARAMETER FOLLOWING BAL 
*********************************************************************** 


* 

SWITCH 

DESCRIPTION 


* 

0 -- 

OFF 

- 

ISSUE AN I—0 COMMAND 

♦ 


ON 

- 

DO NOT 

ISSUE AN 1-0 COMMAND 

* 

1 ~-- 

OFF 

- 

ENABLE 


* 


ON 

- 

DO NOT 

ENABLE 

* 

2 

OFF 

- 

EXPECT 

NO INTERRUPT 



ON 

- 

EXPECT 

AN INTERRUPT 

* 

3 - 

OFF 

- 

DO NOT 

EXPECT 2 INTERRUPTS 

* 


ON 

- 

EXPECT 

2 INTERRUPTS 

* 

4 -- 

OFF 

- 

EXPECT 

NO CSWS 

* 


ON 

- 

EXPECT 

A CSW 


5 

OFF 

- 

DO NOT 

EXPECT 2 CSWS 

* 


ON 

- 

EXPECT 

2 CSWS 

* 

. 6 -* 

OFF 

- 

ALWAYS 

TRY TO ISSUE SENSE 

* 


ON 

- 

SENSE ON UNIT CHECK ONLY 


***********************************************************************' 
*********************************************************************** 

* SWITCHES USED BY X~0 HANDLER 
*********************************************************************** 

* SWITCH DESCRIPTION 

* o -- OFF - NO HANGUP ON INTERFACE 

* ON - HANGUP OCCURRED 


15JUN67 

130498 


ID F819-0 
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i 

2540 READER STACKER SELECT TEST - 

SECTION F819 









* 1 


! 

OFF - NO CSWS STORED 

001162 

47 

80 

F 

16E 




BC 

NONE,IHI 

BR. IF OFF 







♦ . 


ON - ONE CSW STORED 

001166 

9C 

00 

C 

000 




SIO 

0IR12) 

START 1-0 







* 2 

— * — * , 

OFF — SECOND CSW NOT RECEIVED 

00116 A 

47 

FO 

F 

156 




BC 

UNC,IHANG 

BR. UNCONDITIONAL 







♦ • 


ON - SECOND CSW RECEIVED 

00116 E 

58 

9€ 

0 

198 



IHI 

L 

R9,WT(R14) 

PICK UP DM WAIT FACTOR. 







* . 3 

-- 

OFF «- DID NOT ENABLE 

001172 

88 

90 

0 

003 




SRL 

R9, 3 

CUT IT DOWN TO 1.25 SECS. 







♦ . 


ON - ENABLED ONCE 

001176 

9D 

00 

c 

000 



GREG 

TIO 

0( R12) 

TEST 1-0 TO DEVICE. 







* 4 

- — . 

OFF - DID NOT ENABLE TWICE 

00117A 

47 

80 

F 

182 




BC 

CCO,JOHN 

BR IF AVAILABLE. 







* . 


ON - ENABLED TWICE 

00117E 

46 

90 

F 

176 




BCT 

R9,GREG 

LOOP UNTIL TIME OUT. 







♦ 5 

-— 

OFF - NO SENSE DATA RECEIVED 

001182 

07 

01 

F 

0E8 

F 

0E8 

JOHN 

XC 

ISW( 2),ISW 

ZERO THE 1-0 HANDLER SWITCHES. 







* 


ON - SENSE DATA RECEIVED 

001188 

96 

80 

F 

0E8 




01 

ISW,X* 80' 

TURN ON THE HANG SWITCH. 







♦ 6 

—— 

OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

00118C 

92 

E7 

F 

5F3 




MVI 

IACTCC+5,C'X' 

MOVE IN A -X- 







♦ 


ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

001190 

9C 

00 

C 

000 



ISSUE 

SIO 

0(R12) 

1-0 COMMAND- SIO, TIO, OR HIO 







♦ 7 

--- 

OFF - NO ERROR DETECTED 

001194 

47 

80 

F 

1C2 




BC 

CCO,IZERO 

BR. IF COND. CODE 0 







* 


ON - AN ERROR WAS DETECTED 

001198 

47 

40 

F 

1B0 




BC 

CC1,1ONE 

BR. IF COND. CODE 1 







*********************************************************************** 

00119C 

47 

20 

F 

1A8 




BC 

CC2,1 TWO 

BR. IF COND. CODE 2 







* 


REGISTERS USED IN 1-0 HANDLER 

0011 AO 

92 

F3 

F 

5F3 




MVI 

IACTCC+5,X'F3• 

INDICATE COND. CODE 3 







*********************************************************************** 

001IA4 

47 

FO 

F 

IC6 




BC 

UNC,INOW 

BR. UNCONDITIONAL 







* 

REG 

COMMENTS 

0011A8 

92 

F2 

F 

5F3 



ITWO 

MVI 

IACTCC+5,X'F2 • 

INDICATE COND. CODE 2 







♦ 

5 

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

0011 AC 

47 

FO 

F 

1C6 




BC 

UNC,I NOW 

BR. UNCONDITIONAL 







* 


PREVIOUS HANGUP ON INTERFACE DETECTED. 

0011 BO 

92 

FI 

F 

5F3 



IONE 

MVI 

I ACTCC+5,X'Fl• 

INDICATE COND. CODE 1 







* 



0011B4 

D2 

07 

F 

5B0 

D 

040 


MVC 

ICSW1(8),HC SW(R13) 

SAVE CSW 







* 

8 

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

0011 BA 

96 

40 

F 

0E8 




01 

ISW,X * 40' 

INDICATE 1 CSW 







♦ 



0011 BE 

47 

FO 

F 

1C6 




BC 

UNC,INOW 

BR. UNCONDITIONAL 







* 

9 

USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

0011C2 

92 

FO 

F 

5F3 



I ZERO 

MVI 

IACTCC+5,X'F0' 

INDICATE COND. CODE 0 







* 



0011C6 

94 

7F 

F 

0E8 



INOW 

N I 

ISW,X'7F' 

TURN OFF HANG UP SWITCH 







* . 

10 

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

0011CA 

91 

40 

B 

000 




TM 

0<R11),X'40« 

CHECK CONTROL SWITCH FOR NO ENABLE 







* . 


l < 

0011CE 

47 

10 

F 

26 A 




BC 

ALL,I SEN 

BR. IF ON 







* 

11 

MUST BE USED AS LINK REG TO THIS ROUTINE 

0011D2 

96 

10 

F 

0E8 




01 

ISW.X'IO' 

INDICATE ENABLED ONCE 







* . 


1 ' 

0011D6 

56 

9E 

0 

198 



IWAIT 

L 

R9,WTCR14) 

LOAD DM WAIT FACTOR 







* . 

12 

MUST CONTAIN DEVICE ADDRESS 

0011DA 

88 

90 

0 

003 




SRL 

R9, 3 

ADJUST 







* 



OOIIOE 

96 

80 

F 

0E8 




01 

ISW,X'80* 

TURN ON HANG UP SW 






4 

*************************** **St! ***************************** ************ 

0011E2 

80 

00 

F 

706 




SSM 

MSK1 

ENABLE 

0010E8 

0000 




ISW 

DC 

XL2'0' 

0011E6 

46 

90 

F 

1E6 




BCT 

R9,* 

WAIT 







*********************************************************************** 

0011EA 

80 

00 

F 

707 




SSM 

MSK2 

DISABLE 







*********************************************************************** 

0011 EE 

94 

7F 

F 

0E8 




N I 

I SW, X' 7F ' 

TURN OFF HANG SW 







* . 


♦ 1-0 HANDLER SUB-ROUTINE * 

0011F2 

47 

FO 

F 

26 A 




BC 

UNC,I SEN 

BR. UNCONDITIONAL 







*********************************************************************** 








*********************************************************************** 

0010EA 

92 

9D 

F 

190 


IT 10 

MVI 

ISSUE,X , 9D * SET UP FOR TEST 1-0 








* 


ALL 1-0 

INTERRUPTS RETURN HERE 

0010EE 

92 

9D 

F 

146 



MVI 

I LOOP »X* 9D' 








*********************************************************************** 

0010F2 

92 

E3 

F 

690 



MVI 

I0PT1+25,X'E3 8 MOVE -T- TO OPTION MSG. 

0011F6 

49 

CO 

F 

03 A 



IRETRN 

CH 

R12,IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

0010F6 

92 

E3 

F 

604 



MVI 

IOADDR+12, X'E3 1 

0011 FA 

47 

60 

F 

218 




BC 

UNEQ,IUIO 

BR. IF UNEQUAL 

0010FA 

47 

FO 

F 

10E 



BC 

UNC,IEYEOH BR. UNCONDITIONAL 

0011FE 

94 

7F 

F 

0E8 




NI 

ISW,X*7F ' 

RESET HANG UP SW 

0010FE 

92 

9C 

F 

190 


ISIO 

MVI 

I SSUE , X' 9C • SET UP FOR START 1-0 

001202 

91 

40 

F 

0E8 




TM 

ISW,X*40® 


001102 

92 

9C 

F 

146 



MVI 

ILOOP »X'9C ' 

001206 

47 

10 

F 

248 




BC 

ALL , ISV2 

BR. IF 1 CSW ALREADY STORED 

001106 

92 

E2 

F 

69D 



MVI 

I0PT1+25*X*E2 • MOVE -S- TO OPTION MSG. 

00120A 

D2 

07 

F 

5B0 

F 

040 


MVC 

ICSWK8) ,HCSW(R15) 

SAVE CSW 1 

00110A 

92 

E2 

F 

604 



MVI 

IOADDR+12 , X'E2 ' 

001210 

96 

40 

F 

0E8 




01 

ISW , X'40* 

INDICATE 1 CSW STORED 

ooiioe 

D2 

01 

F 

680 

B 002 

IEYEOH 

MVC 

ITSTNO+5!21,2(Rll) SAVE TEST NUMBER 

001214 

47 

FO 

F 

252 




BC 

UNC,INT3 

BR. UNCONDITIONAL 

001114 

90 

09 

F 

588 



STM 

R0,R9,ISAVE SAVE WORK REGISTERS. 

001218 

D2 

07 

F 

5C8 

F 

040 

IUIO 

MVC 

WORK!8),HCSW(R15) 


001118 

D2 

00 

F 

708 

F 003 


MVC 

RTSV(1)•SECNO+3 SAVE RT NO. FOR HANGUP. 

00121E 

OA 

DD 






SVC 

X * DD 1 

CONVERT ADDRESS 

>0011IE 

50 

AD 

0 

048 


CQNP 

ST 

R10,HCAW(R13) STORE CMD ADDRESS. 

001220 

0002 






DC 

AL2(2) 

2 BYTES OF 1-0 OLD PSW. 

001122 

D7 

07 

D 

040 

D 040 


XC 

HCSW(8»R13)»HCSW(R13) 

001222 

003 A 






DC 

AL2(I00PSW+2-SECN0) 

FROM HERE. 

001128 

D7 

OB 

E 

080 

E 080 


XC 

LOGOUT!12 »R14)»LOGOUT(R14) 

001224 

071 A 






DC 

AL2!IUNEX+17-SECN0) 

TO HERE 

00112E 

91 

80 

B 

000 



TM 

0( Rll)»X* 80* CHECK CONTROL SWITCH FOR NO 1-0 

001226 

OA 

DO 






SVC 

X* DO' 

PRINT UNEXPECTED INTERRUPT DEVICE 

001132 

47 

10 

F 

1C6 



BC 

ALLtINOW BR. IF ON 

001228 

64 







DC 

X' 64' 

ADDRESS 

001136 

91 

CO 

F 

004 



TM 

SNSW, X'CO 1 

001229 

15 







DC 

X' 15' 


00113A 

47 

80 

F 

182 



BC 

NONE,JOHN 

00122A 

F709 






DC 

A L 2! IUNE X-SECN0+ REG 5 








*********************************************************************** 

00122C 

D2 

02 

F 

62 A 

F 

623 


MVC 

IBLAH+i( 3),ICSW 

MOVE -CSW- TO MESSAGE 







♦ 


SENSE SWITCH LOOPS 

001232 

92 

1A 

F 

3F9 




MVI 

ICNT,X•1A• 

ADJUST COUNT 







*********************************************************************** 

001236 

D2 

02 

F 

640 

F 

643 


MVC 

IBLAH+23!3),IACT 

MOVE -ACT- TO MESSAGE 

00113E 

91 

80 

F 

004 


ITRY1 

TM 

SNSW«X'80' i CHECK SECTION SENSE SWITCH 0 

00123C 

45 

90 

F 

3E2 




BAL 

R9, ICOUT 

BR. TO OUTPUT CSW 

001142 

47 

80 

F 

14E 



BC 

NONE11TRY2 BR. IF OFF 

001240 

96 

02 

F 

0E8 




01 

ISW,X'02« 

INDICATE UIO 

001146 

9C 

00 

C 

000 


ILOOP 

SIO 

0CR12) i SIO, TIO, OR HIO 

001244 

47 

FO 

F 

4C4 




BC 

UNC,ILOGED 

BR. UNCONDITIONAL 

00114A * 

47 

FO 

F 

13E 



BC 

UNC,ITRY1 BR. UNCONDITIONAL 

001248 

D2 

07 

F 

5B8 

F 

040 

ISV2 

MVC 

ICSW2!8),HC SW(R15) 

SAVE CSW 2 

00114E 

91 

40 

F 

004 


ITRY2 

TM 

SNSW,X'40' CHECK SECTION SENSE SWITCH 1 

00124E 

96 

20 

F 

0E8 




01 

ISW,X*20' 

INDICATE 2 CSWS STORED 

001152 

47 

80 

F 

16E 



BC 

NONE,IHI BR. IF OFF 

001252 

91 

10 

8 

000 



INT3 

TM 

0( Rll ) ,X'10« 

CHECK CTRL SW FOR 2 INTR EXPECTED 

001156 

9D 

00 

C 

000 


IHANG 

TIO 

0( R12 ) TEST 1-0 

001256 

47 

80 

F 

26A 




BC 

NONE,I SEN 

BR. IF NOT 

00115A 

47 

70 

F 

13E 



BC 

NCCO,ITRY1 BR. IF NOT COND. CODE 0 

00125A 

91 

08 

F 

0E8 




TM 

ISW,X'08' 


00115E 

91 

40 

F 

004 



TM 

SNSW,X'40' CHECK SECTION SENSE SWITCH 1 

00125E 

47 

10 

F 

26 A 




BC 

A L L , I SE N 

BR. IF ALREADY ENABLED TWICE 


DATE 

EC 
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001262 

96 

.08 

F 

0E8 



01 

I$W,X*08* 

INDICATE ENABLED TWICE 

001266 

47 

FO 

F 

1 D 6 



BC 

UNO 9 1 WAIT 


00126A 

91 

80 

F 

AB 8 



I SEN TM 

SS, X* 80® 

SEE IF 1400 STK SELECT• 

00126E 

47 

10 

F 

2 DC 



BC 

ALL »IBSN 

BR IF YES. 

001272 

91 

02 

B 

000 



TM 

0 (Rll),X *02 * 

CHECK CTRL SW FOR SNS ON UC. 

001276 

47 

80 

F 

29A 



BC 

NONE 9 IDOSNS 

BR. IF OFF TO ISSUE SENSE 

00127A 

91 

40 

F 

0E8 



TM 

ISW,X*40* 

SEE IF 1ST CSW IN. 

00127E 

47 

80 

F 

2 DC 



BC 

NONE 9 IBSN 

BR IF NONE. 

001282 

91 

02 

F 

5B4 



TM 

ICSW1+4,X*02® 

CHECK FOR UNIT CHECK 

001286 

47 

10 

F 

29A 



BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

00123A 

91 

20 

F 

0E8 



TM 

ISW,X*20* 

CHECK FOR SECOND CSW 

00128E 

47 

80 

F 

2DC 



BC 

NONE,IBSN 

BR IF NONE. 

001292 

91 

02 

F 

5BC 



TM 

ICSW2+4,X*02• 

CHECK FOR UNIT CHECK 

001296 

47 

80 

F 

2 DC 



BC 

NONE,IBSN 

BR IF NONE. 

00129A 

41 

80 

F 

580 



IDOSNS LA 

R 8 , I SENSE 

LOAD SENSE COMMAND ADDR. 

00129E 

45 

70 

F 

54A 



BAL 

R7,ISTRT 

BR TO AUX START 1-0. 

0012A2 

91 

80 

F 

0E9 



TM 

ISW+1,X*80* 

CHK FOR DATA RECEIVED 

0012 A 6 

47 

80 

F 

2 DC 



BC 

NONE,IBSN 

BR IF NONE. 

0012AA 

96 

04 

F 

0E8 



01 

I SW, X 9 04 * 

INDICATE SENSE RECIEVED 

0012AE 

94 

7F 

F 

0E9 



NI 

ISW+1,X* 7F• 

TURN OFF DATA RECEIVED. 

0012B2 

D5 

00 

F 

659 

B 

005 

CLC 

IACSNS+5(1),5(Rll) 

COMPARE FOR EXPECTED SENSE 

0012B8 

47 

80 

F 

2 DC 



BC 

EQ,IBSN 

BR IF EQUAL. 

0012BC 

96 

01 

F 

0E8 



01 

ISW,X*01* 

INDICATE AN ERROR. 

0012C0 

47 

FO 

F 

2 DC 



BC 

UNC , IB SN 

BR TO CONTINUE. 

0012C4 

91 

40 

F 

0E8 



INQEX1 TM 

ISW,X»40* 


0012C8 

47 

10 

F 

32A 



BC 

ALL,INDER 

BR. IF CSW STORED 

0012CC 

47 

FO 

F 

32E 



BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012DO 

91 

20 

F 

0E8 



IN0EX2 TM 

ISW,X*20* 


0012 D4 

47 

10 

F 

32A 



BC 

ALL,INDER 

BR. IF CSW 2 STORED 

0012D8 

47 

FO 

F 

32E 



BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012DC 

D5 

00 

F 

5F3 

B 

o 

o 

IBSN CLC 

IACTCC+5(1),4(Rll) 

COMPARE FOR EXPECTED COND. CODE 

0012E2 

47 

60 

F 

32A 



BC 

UNEQ,INDER > 

BR. IF UNEQUAL 

0012E6 

91 

08 

B 

000 



TM 

O(Rli),X*08* 


0012EA 

47 

80 

F 

2C4 



BC 

NONE,INOE XI 

BR. IF NO CSW EXPECTED 

0012EE 

91 

40 

F 

0E8 



TM 

ISW,X*40* 


0012F2 

47 

80 

F 

32A 



BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

0012 F 6 

48 

8 B 

0 

006 



LH 

R3, 6 (Rll) 

LOAD CSW ADDR 

0012 F A 

40 

80 

F 

302 



STH 

R 8 ,ICCSW1+4 . 

STORE IN COMPARE INSTR. 

0012 FE 

D5 

07 

F 

5B0 

F 

5B0 

ICCSWl CLC 

ICSWK 8 ) , ICSWl 

COMPARE FOR EXPECTED CSW 

001304 

47 

60 

F 

32 A 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001308 

91 

04 

B 

000 



TM 

0<R11),X*04* 


00130C 

47 

80 

F 

2 DO 



BC 

NONE,INOEX2 

BR. IF NO CSW 2 EXPECTED 

001310 

91 

20 

F 

0E8 



TM 

ISW,X 8 20* 


001314 1 

47 

80 

F 

32A 



BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

001318 

41 

88 

0 

008 



LA 

R 8 , 8 (R 8 ) 

UPDATE TO SECOND CSW 

00131C 

40 

80 

F 

324 



STH 

R 8 ,ICCSW2+4 


001320 

D5 

07 

F 

5B8 

F 

5B8 

ICCSW2 CLC 

ICSW2( 8 ) , IC SM2 

COMPARE FOR EXPECTED CSW 2 

001326 

47 

80 

F 

32E 



BC 

EQ,IDUNCK 

BR. IF EQUAL 

00132A 

96 

01 

F 

0E8 



INDER 01 

ISW,X*01* 

INDICATE AN ERROR 

00132E 

92 

64 

F 

36E 



IDUNCK MVI 

I FLAG 1,X *64• 

SET UP FOR ERROR PRINTOUT 

001332 

92 

CO 

F 

502 



MVI 

IFLAG2,X*C0* 


001336 

91 

01 

F 

0 E 8 



TM 

ISW,X* 01 * 

CHECK FOR A DETECTED ERROR 

00133A 

47 

10 

F 

34E 



BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

00133E 

91 

01 

F 

004 



TM 

SNSW,X * 01• 

CHECK SECTION SENSE SWITCH 7 

001342 

47 

80 

F 

51E 



BC 

NONE,I LEAVE 

BR. IF OFF 

001346 

92 

24 

F 

36E 



MVI 

IFLAG1,X*24* 

SET UP FOR CORRECT PRINTOUT 

00134A 

92 

80 

F 

502 



MVI 

IFLAG2,X*80* 


00134E 

95 

40 

F 

659 



IOUTIT CLI 

IACSNS+5,X*40* 

SEE IF INTERVENTION REQUIRED. 

001352 

47 

80 

F 

534 



BC 

EQ,RRM 

BR IF YES. 

001356 

91 

01 

F 

5B4 



TM 

ICSW1+4,X*01* 

SEE IF UNIT EXCEPTION. 

00135A 

47 

10 

F 

534 



BC 

ALL.RRM 1 

BR IF YES. 

00135E 

D 2 

01 

F 

680 

B 

002 

MVC 

ITSTN0+5C 2),2(Rll) 

MOVE TEST NUMBER TO PRINT 

001364 

OA 

DD 





SVC 

X*DD • 

CONVERT TEST NUMBER 

001366 , 

0002 





DC 

AL2(2) 


001368 

0680 





DC 

AL 2 ( ITSTN0+5-SECN0) 


00136A 

0680 





DC 

AL2UTSTN0+5-SECN0) 


00136C 

OA 

DO 





SVC 

X 'DO* 

PRINT TEST NUMBER 

00136E 

64 






IFLAG1 DC 

X* 64* 
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0013 6 F 

09 





DC 

X* 09* 


001370 

F67B 





DC 

AL2( ITSTNO-SECNO+REG) 


001372 

41 80 

0 

004 



LA 

R8,4 

ADJUST LINK ADDRESS FOR PRINTOUT 

001376 

IB B 8 





SR 

R11,R 8 


001378 

50 BO 

F 

60C 



ST 

R11,ILINK+5 


00137C 

OA DD 





SVC 

X*DD* 

CONVERT LINK ADDRESS 

00137E 

0003 





DC 

AL2(3) 


001380 

063 D 





DC 

AL2t I LI NK-** 6 —SEC NO) 


001382 

060C 





DC 

AL2(ILINK+5-SECNO) 


001384 

OA DO 





SVC 

X*DO* 

PRINT LINK ADDRESS 

001386 

AO 





DC 

X* AO* 


001387 

10 





DC 

X*10* 


001388 

F607 





DC 

AL2(ILINK-SECNO+REG) 


00138A 

41 BB 

0 

004 



LA 

R11,4(R11) 


00138E 

91 80 

B 

000 



TM 

0(R11),X*80* 


001392 

47 10 

F 

410 



BC 

ALL,IOCSW 

BR. IF NO 1-0 COMMAND ISSUED 

001396 

OA DD 





SVC 

X*DD* 

CONVERT I-0 ADDRESS 

001398 

0003 





DC 

AL2(3) 


00139A 

0703 





DC 

AL2(I0ADR-SECN0> 


00139C 

05 FD 





DC 

AL2(IOADDR+5-SECNO) 


00139E 

OA DO 





SVC 

X'DO* 

PRINT 1-0 ADDRESS 

0013 AO 

AO 





DC 

X* AO* 


0013A1 

OF 





DC 

X * OF * 


0013A2 

F5F8 





DC 

AL2(IOADDR-SECNO+REG) 


0013A4 

95 9C 

F 

190 



CLI 

ISSUE,X*9C* 

COMPARE FOR SIO COMMAND 

0013A8 

47 60 

F 

3FE 



BC 

UNEQ,ICCOUT 

BR. IF NOT 

0013AC 

50 AO 

F 

61C 



ST 

RIO, ICAW+5 

STORE CCW ADDR. 

0013B0 

OA DD 





SVC 

X *DD * 

CONVERT CAW 

0013B2 

0003 





DC 

AL2(3) 


0013B4 

061 D 





DC 

AL2( ICAW+ 6 -SECNO) 


0013B6 

061 C 





DC 

AL2(ICAW+5-SECNO) 


0013B8 

OA DO 





SVC 

X*DO* 

PRINT CAW 

0013BA 

AO 





DC 

X* AO* 


0013BB 

OB 





DC 

X * OB * 


0013BC 

F61 7 





DC 

AL2(ICAW-SECNO+REG) 


0013BE 

D 2 02 

F 

62A 

F 

626 

MVC 

IBLAH+H3), ICCW 

MOVE -CCW- TO MESSAGE 

0013C4 

92 16 

F 

3F9 



MVI 

ICNT,X*16* 

ADJUST COUNT 

0013C8 

D2 07 

F 

5C8 

A 

000 

ICWOUT MVC 

WORK( 8 ) tOi RIO) 

MOVE CCW TO WORK AREA 

0013CE 

45 90 

F 

3E2 



BAL 

R9, ICOUT 

BR. TO OUTPUT CCW 

0013D2 

91 CO 

A 

004 



TM 

4(R10),X*CO* 

CHECK FOR ANY CHAIN FLAGS 

0013D6 

47 80 

F 

3FE 



BC 

NONE,ICCOUT 

BR. IF NONE 

0013DA 

41 AA 

0 

008 



LA 

RIO, 8 (RIO) 

UPDATE TO NEXT CCW 

0013DE 

47 FO 

F 

3C8 



BC 

UNC, ICWOUT 

BR. UNCONDITIONAL 

0013E2 

OA DD 





ICOUT SVC 

X*DD* 

CONVERT 

0013E4 

0008 





DC 

AL2( 8 ) 


0013E6 

05C8 





DC 

AL2(WORK—SECNO) 


0013E8 

05C8 





DC 

AL2(WORK—SECNO) 


0013EA 

D2 07 

F 

62E 

F 

5C8 

MVC 

IBLAH+5C 8 ) , WORK 

MOVE TO MESSAGE 

0013 FO 

D2 07 

F 

637 

F 

5 DO 

MVC 

IBLAH+14C 8 ),W0RK+8 


0013F6 

OA DO 





SVC 

X*D0* 

PRINT 

0013F8 

AO 





DC 

X* AO* 


0013F9 

1A 





ICNT DC 

X* 1A • 


0013FA 

F629 





DC 

AL2(IBLAH-SECNO+REG) 


0013FC 

07 F9 





BCR 

UNC,R9 

RETURN VIA REG 9 

0013 FE 

D 2 00 

F 

5E9 

B 

004 

ICCOUT MVC 

IEXPCC+5I1),4(Rll) 

MOVE EXP CC TO MESSAGE 

001404 

OA DO 





SVC 

X *D0 • 

PRINT EXPECTED COND. CODE 

001406 

AO 





DC 

X* AO* 


001407 

OA 





DC 

X * OA' 


001408 

F5E4 





DC 

AL2( IEXPCC-rSECNO+REG) 


00140A 

OA DO 





SVC 

X*00* 

PRINT ACTUAL COND. CODE 

00140C 

AO , 





DC 

X* AO* 


00140D 

OA 





DC 

X* OA * 


00140E 

F5EE 





DC 

AL2(IACTCC-SECNO+REG) 


001410 

D2 02 

F 

62 A 

F 

623 

IOCSW MVC 

IBLAH+113),ICSW 

MOVE -CSW- TO MESSAGE 

001416 

92 1A 

F 

3F9 



MVI 

ICNT,X*1A• 

ADJUST COUNT 

00141A 

91 08 

B 

000 



TM 

0(R11),X*08* 


00141E 

47 80 

F 

442 



BC 

NONE »IDIDI 

BR. IF NO CSW EXPECTED 

001422 

D2 02 

F 

640 

F 

646 

MVC 

IBLAH+2313),IEXP 

MOVE -EXP- TO MESSAGE 


DATE 

15JUN67 

ID 

F819-0 

EC 

130498 

PAGE 

4A 


•OOOOOOOOOOOOO 








oocoocccc 


c c C C C C C 0 0 c 


C C C C 0 0 


0 0 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840574 IBM MAINTENANCE DIAGNOSTIC PROGRAM 

PAGE 5 


2540 READER STACKER SELECT TEST - SECTION F819 


2540 READER STACKER SELECT TEST - SECTION F819 


P/N 840574 
PAGE 5A 


001428 

48 88 

0 

006 



LH 

R8« 6( Rll) 


00142C 

40 80 

F 

43C 



STH 

R8,ICHNG1+4 


001430 

41 88 

0 

008 



LA 

R8,8(R8) 


001434 

40 80 

F 

46C 



STH 

R8*1CHNG2+4 


001438 

02 07 

F 

5C8 

F 

5C8 

ICHNG1 MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

00143E 

45 90 

F 

3E2 



BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

001442 

91 40 

F 

0E8 



1DIDI TM 

ISWv X 1 40• 


001446 

47 80 

F 

45 A 



BC 

NONE,IMORST 

BR. IF NO CSW STORED 

00144A 

D2 02 

F 

640 

F 

643 

MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

001450 

D2 07 

F 

5C8 

F 

5 BO 

MVC 

WORK!8),IC SW1 

MOVE ACTUAL CSW TO WORK AREA 

001456 

45 90 

F 

3E2 



BAL 

R9, ICOUT 

BR. TO OUTPUT ACTUAL CSW 

00145A 

91 04 

B 

000 



IMORST TM 

0(R11),X'04» 


00145E 

47 80 

F 

472 



BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

001462 

D2 02 

F 

640 

F 

646 

MVC 

IBLAH+2313),IEXP 

MOVE -EXP- TO MESSAGE 

001468 

D2 07 

F 

5C8 

F 

5C8 

ICHNG2 MVC 

WORK!8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

00146E 

45 90 

F 

3E2 



BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

001472 

91 20 

F 

0E8 



IDID TM 

ISW* X * 20' 


001476 

47 80 

F 

48 A 



BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

00147 A 

D2 02 

F 

640 

F 

643 

MVC 

IBLAH+2313),IACT 

MOVE -ACT- TO MESSAGE 

001480 

D2 07 

F 

5C8 

F 

5B8 

MVC 

WORK( 8) , IC SW2 

MOVE CSW TO WORK AREA 

001486 

45 90 

F 

3E2 



BAL 

R9, If OUT 


00148 A 

D2 00 

F 

64E 

B 

005 

IPAS MVC 

IEXSNS+5C1),5(Rll) 

MOVE EXP SENSE TO MESSAGE 

001490 

91 04 

F 

0E8 



TM 

I SW,X 1 04 * 


001494 

47 80 

F 

4BC 



BC 

NONE,IPASS 

BR. IF NO SENSE DATA RECIEVED 

001498 

OA DD 





SVC 

X' DD * 

CONVERT EXPECTED SENSE 

00149A 

0001 





DC 

AL2(1) 


00149C 

064 E 





DC 

AL2(IEXSNS+5-SECN0) 


00149E 

064 E 





DC 

AL2(IEXSNS+5-SECtyO) 


0014A0 

OA DO 





SVC 

X'DO' 

PRINT EXPECTED SENSE 

0014A2 

AO 





DC 

X'AO' 


0014 A3 

OB 





DC 

X • OB' 


0014A4 

F649 





DC 

AL2UEXSNS-SECN0+REG) 


0014A6 

OA DD 





SVC 

X* DD • 


0014A8 

0001 





DC 

AL2C1) 


0014AA 

0659 





DC 

AL2( IACSNS+5-SECNQ) 


0014AC 

0659 





DC 

AL2(IACSNS+5-SECNO) 


0014AE 

OA DO 





SVC 

X'DO' 

PRINT ACTUAL SENSE DATA 

001480 

AO 





DC 

X'AO* 


0014B1 

OB 





DC 

X*OB • 


0014B2 

F654 





DC 

AL2(IAC SN S-SECNO+REG1 


0014B4 : 

95 F4 

F 

659 



CL I 

IACSNS+5,C'4* 

TEST FOR INTERVENTION REQUIRED. 

0014B8 

47 10 

F 

534 



BC 

ALL,RRM : 

BR IF YES. 

0014BC 

95 30 

e 

181 



IPASS CLI 

SYSMOD(R14),X'30* 

CHECK FOR MODEL 30 

0014C0 

47 60 

F 

4F0 



BC 

UNEQ,ICUIO 

BR IF NOT. 

0014C4 

D2 OB 

F 

5C8 

E 

080 

ILQGED MVC 

WORK!12),LOGOUT(R14) 

MOVE LOG OUT TO WORK AREA 

0014CA 

OA DD 





SVC 

X'DD' 

CONVERT 

0014CC 

000 C 





DC 

AL2(12) 


0014CE 

05C8 





DC 

AL21WORK-SECNO) 


0014DO 

05C8 





DC 

AL2(WORK-SECNO) 


0014D2 

D2 01 

F 

664 

F 

5C8 

MVC 

I0L0G+5I2),WORK 

MOVE LOG OUT TO MESSAGE 

0014D8 

D2 05 

F 

667 

F 

5CA 

MVC 

I0L0G+8(6),WORK+2 


0014DE 

D2 05 

F 

66E 

F 

5D2 

MVC 

I0LQG+15(6),WQRK+10 


0014E4 

D2 05 

F 

675 

F 

5 DA 

MVC 

I0L0G+22(6),WORK+18 


0014EA 

OA DO 





SVC 

X'DO' 

PRINT LOG OUT 

0014EC 

AO 





DC 

X'AO' 


0014ED 

1C 





DC 

X'lC' 


0014EE 

F65F 





DC 

AL2(IOLOG-SECNO+REG) 


0014F0 

91 02 

F 

0E8 



ICUIO TM 

I SW, X • 02 • 

SEE IF UIO. 

0014F4 

47 80 

F 

500 



BC 

NONE,IOPOUT 

BR. IF NOT UIO 

0014F8 

94 FD 

F 

0E8 



NI 

ISW.X'FD' . 

RESET UIO SWITCH 

0014FC 

47 FO 

F 

1D6 



BC 

UNC , I WAIT 

BR. UNCONDITIONAL 

001500 

OA DO 





4 IOPOUTSVC 

X'DO' 

PRINT LOOP OPTIONS 

001502 

CO 





IFLAG2 DC 

X'CO' 


001503 

36 





DC 

X ' 36* 


001504 

F684 





DC 

AL2 ( I0PT1-SECN0+REG ) 


001506 

OA DO 





SVC 

X'DO* 

SPACE A LINE 

001508 

AO 





DC 

X'AO' 


001509 

01 





DC 

X'Ol' 
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00150A 

F607 



DC 

AL2CILINK-SECNO+REGI 


00150C 

50 

AD 

0 

048 

ST 

R10,HCAW(R13) 

STORE CAW 

001510 

91 

CO 

F 

004 

TM 

SNSW,X'CO' 

CHECK SECTION SENSE SWITCH 0 AND l 

001514 

47 

50 

F 

13E 

BC 

ANY,ITRY1 

BR. IF ANY ON 

001518 

91 

80 

F 

0E8 

TM 

ISW,X•80' 


00151C 

07 

15 



BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

00151E 

91 

08 

B 

000 

ILEAVE TM 

0(R11),X'08' 


001522 

47 

80 

F 

52 A 

BC 

NONE,IUP 

BR. IF NO CSW EXPECTED 

001526 

41 

BB 

0 

002 

LA 

Rll,2(Rll) 

UPDATE LINK ADDRESS FOR RETURN 

00152A 

41 

BB 

0 

006 

IUP LA 

R11,6(R11) 


00152E 

98 

09 

F 

588 

LM 

R0*R9,ISAVE 

RESTORE WORKING REGS. 

001532 

07 

FB 



BCR 

UNC,Rll 

RETURN VIA REG 11 






*********************************************************************** 
♦ INTERVENTION REQUIRED ROUTINE 

*********************************************************************** 

001534 

OA 

DO 



RRM SVC 

X'DO' 

PRINT -MAKE DEVICE READY- 

001536 

2410 



DC 

X•2410* 


001538 

F6BA 



DC 

AL2(MDR-SECNO+REG) 


00153A 

OA 

DA 



SVC 

X • DA' 

HALT 

00153C 

9D 

00 

C 

000 

TIO 

0(R12) 

TEST 1-0 

001540 

OA 

DO 



SVC 

X'DO' 

PRINT A BLANK. 

001542 

8001 



DC 

X • 8001 • 


001544 

F6B A 



DC 

AL2(MDR-SECNO+REG) 


001546 

47 

FO 

F 

HE 

BC 

UNC,CONP 

BR TO CONTINUE. 


*********************************************************************** 


* AUXILIARY START 1-0 ROUTINE 

*********************************************************************** 


00154A 

58 9E 0 198 

ISTRT 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR. 

00154E 

88 90 0 002 


SRL 

R9, 2 

CUT IT DOWN TO 2.5 SECS. 

001552 

50 8D 0 048 


ST 

R8,HCAW(R13) 

STORE IN CAW 

001556 

9C 00 C 000 


SIO 

Ot R12) 

ISSUE SENSE 

00155A 

47 7Q F 56A 


BC 

NCCO,IBACK 


00155E 

9D 00 C 000 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 

001562 

47 40 F 56C 


BC 

CC1,ILOKE 

BR. IF CSW STORED 

001566 

46 90 F 55E 

IT IC 

BCT 

R9,ITIOLP 


00156A 

07 F7 

IBACK 

BCR 

UNC »R7 

BR UNCONDITIONAL BACK TO RTN« 

00156C 

91 04 D 044 

ILOKE 

TM 

HC SW+4(R13),X * 04' 

CHECK FOR DEVICE END. 

001570 

47 80 F 566 


BC 

NONE,I TIC 

BR IF NOT IN YET. 

001574 

96 80 F 0E9 


01 

ISW+1,X'80' 

INDICATE THE DATA RECEIVED. 

001578 

47 FO F 56A 


BC 

UNC,IBACK 

RETURN TO MAIN ROUTINE. 



*********************************************************************** 



* 

1-0 

HANDLER WORK AREA. 




*********************************************************************** 

001580 

04 001659 0000 0001 

I SENSE 

CCW 

X'04',IACSNS+5,X'00» 

,1 

001588 

00000000 

ISAVE 

DC 

10F'O' 


00158C 

00000000 





001590 

00000000 





001594 

00000000 





001598 

00000000 





00159C 

00000000 





0015A0 

00000000 





0015A4 

00000000 





0015A8 

00000000 





0015AC 

00000000 





0015B0 

0000000000000000 

ICSW1 

DC 

XL8'O' 


0015B8 

0000000000000000 

ICSW2 

DC 

XL8* O' 


0015C0 

+00.00000000000000 

DBWD 

DC 

D' O' 


0015C8 


WORK 

DS 

24C 


0015E0 

00000000 

RANDOM 

DC 

F * O' 


0015E4 

40C3C34040E740C5E7 

IEXPCC 

DC 

C' CC X EXP' 


0015ED 

D7 





0015EE 

40C3C34040E740C1C3 

IACTCC 

DC 

C» CC X ACT' 


0015F7 

E3 





0015F8 

40C1C4D940E7E7 E7E7 

IOADDR 

DC 

C ADR XXXXXX XI0* 


001601 

E7E740E7C9D6 





001607 

00 


DC 

X'OO' 


001608 



CNOP 

0,4 



001607 


ORG 

*-l 
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00160? 

40C1C4D940E7E7E7E7 

ILINK 

DC 

C* ADR XXXXXX LINK* 


001610 

E7E740D3C9D5D2 





001617 

00 . 


DC 

X*0©» 


001613 



CNOP 

0,4 



001617 


ORG 

*-l 


001617 

4QC3CIE640E7E7E7E7 

ICAW 

DC 

C* CAW XXXXXX 8 


001620 

E7E740 





001623 

C3E2E6 

ICSW 

DC 

c*csw* 


001626 

C3C3E6 

ICCW 

DC 

c*ccw® 


001629 

40C3E2E640E7E7E7E7 

IBLAH 

DC 

C* CSW XXXXXXXX XX* 


001632 , 

E7E7E7E740E7E7 





001639 

E7E767E7E7E740C5E7 


DC 

C*XXXXXX EXP* ■ 


001642 

D7 





001643 

C1C3E3 

I ACT 

DC 

C * ACT 9 


001646 

C5E7D7 

IE XP 

DC 

C • E XP * 


001649 

40E2D5E240E7E740C5 

IEXSNS 

DC 

C* SNS XX EXP* 


001652 

E7D7 



, 


001654 

40E2D5E24QE7E740C1 

1ACSNS 

DC 

C® SNS XX ACT* 


00165D 

C3E3 



! 


00165F 

40D3D6C740E7E740E7 

IOLOG 

DC 

C» LOG xx xxxxxk X* 


001668 

E7E7E7E7E740E7 



1 


00166F 

E7E7E7E7E740E7E7E7 


DC 

C'XXXXX XXXXXX* 


001678 

E7E7E7 





001678 

40E3E2E340E7E7E7E7 

ITSTNQ 

DC 

C* TST XXXX* 


001684 

40E2C5E340E2E240F0 

I0PT1 

DC 

C* SET SS 0 ON FOR* 


00168D 

40D6D540C606D9 





001694 

40D3D6D6D740D6D540 


DC 

C* LOOP ON XIO, SS* 


001690 

E7C9D66B40E2E2 





0016A4 

40F140D6D540C6D6D9 


DC 

C* 1 ON FOR TIG SI* 


0016AD 

40E3C9D640E2C9 





001684 : 

D640D3D6D6D7 


DC 

C*0 LOOP* 


0016BA 

40D4C1D2C540C4C5E5 

MDR 

DC 

C* MAKE DEVICE RDY* 


0016C3 

C9C3C540D9C4E8 





0016CA 

40E2C8C440C8C1E5C5 

SHDAVE 

DC 

C* SHD HAVE * 


0016D3 

40 





0016D4 : 

4040404040C3C4E240 

RIP 

DC 

C* CDS IN Rlv • 


0016DD 

C9D54009F16B40 





0016E4 1 

4040404040C3C4E240 


DC 

C* CDS IN R2» * 

1 

0016ED 

C9D540D9F26B40 





0016F4 

4040404040C3C4E240 


DC 

C* CDS IN RP3* 


0016FD 

C90540D9D7F3 





001703 

001190 

IOADR 

DC 

AL3(ISSUE) 


001706 

FE 

MSK1 

DC 

X*FE* 


001707 

01 

MSK2 

DC 

X*01* 


001708 

00 

RTSV 

DC 

X*00* 

SAVE RT NO. FOR HANGUP. 

001709 

40E4C9D640C6D9D6D4 : 

IUNEX 

DC 

C* UIO FROM DEVICE* 


001712 

40C4C5E5C9C3C5 





001719 

40E7E7E7E7 


DC 

C* XXXX* 




*********************************************************************** 



* 


INITIALIZE ROUTINE 



*********************************************************************** 

00171E 

IB DD 

IN IT 

SR 

R13»R13 

ZERO REG 13 

001720 

91 40 E 196 


TM 

406(R14)•X *40 * 

CHECK FOR FORCED PROBLEM STATE 

001724 

47 80 F 72A 


BC 

NONE,NITWIT 

BR. IF NOT 

001728 

18 OF 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

00172A 

58 CO F OEO 

NITWIT 

L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

00172E 

54 CO F 7A4 


N 

R12,M0D50 

SAVE ONLY THE READER ADDR. 

001732 

50 CO F 798 


ST 

R12,RDR 

SAVE IT 

001736 

D7 OB F A9C F A9C 


XC 

CCSS(12),CCSS 

ZERO THE COUNT AREA 

00173C 

D2 02 F AAC F AAF 


MVC 

NCARDl3),ONES 


001742 

07 01 F 7F8 F 7F8 


XC 

MSSW(2),MSSW ! 

ZERO TWO SWITCH BYTES. 

001748 

IB 66 


SR 

R6,R6 

ZERO REG 6. 

00174A 

43 6E 0 1B9 


IC 

R6,DMI0L(R14) 

PUT LENGTH OF DMIO TABLE INTO 6. 

00174E 

4A 6E 0 1BC 


AH 

R6,DMPTR«R14) 

ADD OFFSET ADDRESS TO LENGTH. 

001752 

1A 6E 


AR 

R6,R14 

ADD BASE REG VALUE. 

001754 

06 60 


BCTR 

R6, 0 

SUBTRACT 2 TO GET 

001756 

06 60 


BCTR 

R6, 0 

TO LOADER ADDR. 

001758 

49 C6 .0 000 


CH 

R12,0«R6) 

SEE IF TEST DEVICE IS LOADER. 
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00175C 

47 60 F 764 


BC 

UNEQ,BLOOP 

BR IF NOT. 

001760 

96 80 F 7F9 


01 

LDSW,X*80* 

TURN ON LOADER SW. 

001764 

91 80 F 0E8 

BLOOP 

TM 

ISW,X * 80 * 

CHECK FOR HANG UP 

001768 

47 10 F 77C 


BC 

ALL,HANGUP 

BR. IF DETECTED 

00176C 

92 40 F 7A8 


MVI 

BUFFER,C• • 

CLEAR DATA AREA. 

001770 

D2 4E F 7A9 F 7A8 


MVC 

BUFFER+1C79) ,BUFFER 

CLEAR DATA AREA. 

001776 

41 AO F A88 


LA 

RIO,NOOP 

PUT ADDR OF NOOP INTO REG 10. 

00177A . 

07 F4 


BCR 

UNC,R4 

RETURN VIA REG 4 

00177C 

D2 00 F 003 F 708 

HANGUP 

MVC 

SECN0+3U) *RTSV 

RESTORE RT NO. 

001782 

OA DO 


SVC 

X *D0* 

PRINT 

001784 

64 


DC 

X • 64* 

-PREVIOUS HANGUP DETECTED- 

001785 

1A 


DC 

X* 1A * 


001786 

F7FB 


DC 

AL2(HUNG-SECNO+REG) 


001788 

96 01 F 0E8 


01 

ISW,X*01* 

TURN ON ERROR SWITCH. 

00178C 

45 50 F 29A 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

001790 

92 00 F 0E8 


MVI 

ISW,X*00* 

RESET HANGUP SWITCH 

001794 

47 FO F 764 


BC 

UNC,BLOOP 


001798 



CNOP 

0,4 




***********************************************4 (] t l4c4( **** ;M '**,|' S t 4(] | l $4££4 4uMt 



* 

AUXILIARY WORK AREA. 




*********************************************************************** 

001798 

00000000 

RDR 

DC 

F * 0* 


00179C 

00000051 

AT El 

DC 

F • 81 • 


0017 AO 

00000000 

RETURN 

DC 

F • 0* 


0017A4 

00003FFF 

M0D50 

DC 

X* 00003FFF * 


0017A8 


BUFFER 

DS 

80C 


00I7F8 

00 

MSSW 

DC 

X*00* 


0017F9 

00 

LDSW 

DC 

X*00« 


0017FA 

00 

BYSW 

DC 

X*00* 


0017FB 

4007D9C5E5C9D6E4E2 

HUNG 

DC 

C* PREVIOUS HANG U* 


001804 

40C8C1D5C740E4 





00180B 

D740C4C5E3C5C3E3C5 


DC 

CP DETECTED* 


001814 

C4 






4^*****4^***«******************************;M*******4uMt ****** ********** 
* INITIALIZATION MESSAGES 

****************************************************, M( * l fc* ]Mt **, M '* ] | 4 't 4(]M[3 t 


001816 

91 40 

F 

AB8 

OPMSG 

TM 

SS,X* 40* 

SEE IF 360 STK SEL DONE. 

00181A 

47 10 

F 

858 


BC 

ALL,TOPS 

BR IF YES. 

00181E 

92 04 

F 

84C 

M IF 1 

MVI 

M IF , X • 04 * 

PUT PRINT HEAD FLG ON IN MSG. 

001822 

92 AO 

F 

860 


MVI 

TOP+2,X*AO* 

SUPPRESS HEADER IN MSG. 

001826 

91 80 

F 

7F9 


TM 

LDSW,X* 80* 

SEE IF TESTING LOAD DEVICE 

00182A 

47 80 

F 

84A 


BC 

NONE,BILM 

BR IF NO 

00182E 

OA DO 




SVC 

X*DO* 

PRINT -REMOVE CDS FROM STKR 

001830 

2429 




DC 

X* 2429* 

OF LOADER DEVICE. 

001832 

FB2 9 




DC 

AL2(RTD1-SECNO+REG) 


001834 

OA DO 




SVC 

X*DO* 

PRINT -REMOVE REMAINING TEST 

001836 , 

A03C 




DC 

X* A03C • 

DECKS FROM LOADER HOPPER. 

001838 

FB52 




DC 

AL2(RTD2-SECNO+REG) 


00183A 

OA DO 




SVC 

X*DO* 

PRINT -RUN CDS OUT OF READER AND 

00183C 

AO 40 




DC 

X * A 04 0 * 

PUT THEM IN FRONT OF REMAINING 

00183E 

FB3E 




DC 

AL2(RTD3-SECNO+REG) 

TEST DECKS. 

001840 

OA DO 




SVC 

X • DO* 

PRINT -SAVE REMAINING TEST DECKS 

001842 

AO 4 5 




DC 

X•A 045• 

UNTIL A MSG REQUESTS THEM. 

001844 

FBCE 




DC 

AL2(RTD4-SECNO+REG) 


001846 

92 80 

F 

84C 


MVI 

M1F,X•80* 

PUT SUPPRESS HDING FLG ON IN MSG 

00184A 

OA DO 



BILM 

SVC 

X *D0* 

PRINT PUT VALID CDS IN RDR 

00184C 

043 D 



M1F 

DC 

X* 043D* 


00184E 

FAEC 




DC 

AL2(D0NPR0-SECNO+REG) 


001850 

91 80 

F 

7F9 


TM 

LDSW,X* 80* 

SEE IF ON LOADER DEVICE. 

001854 

47 10 

F 

868 


BC 

ALL»HLT1 

BR IF YES. 

001858 

D2 05 

F 

C7A F C80 

TOPS 

MVC 

CLSTK+28(6),STK 

MOVE WORD STKRS TO MSG. 

00185E 

OA DO 



TOP 

SVC 

X*DO* 

TELL OPERATOR TO CLEAR ALL STKRS. i 

001860 

AO 2 2 




DC 

X*A022• 


001862 

FC5E 




DC 

AL2(CLSTK-SECNO+REG) 


001864 

92 24 

F 

860 


MVI 

TOP+2,X* 24* 

ALLOW HEADER IN MSG. 

001868 

OA DA 



HLT1 

SVC 

X*DA • 

-HALT- 

00186A 

9D 00 

C 

000 


TIO 

0(R12) 

TEST 1-0 TO BRING IN NOT RDY TO RDY. 

00186E 

OA DO 




SVC 

X* DO* 

PRINT A BLANK 
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001870 

8001 




DC 

X* 8001• 


001872 

FAEC 




DC 

AL2(DONPRO-SECNO+REG) 


001874 

07 

F4 




BCR 

UNC «R4 

RETURN TO MAIN ROUTINE. 

001876 






CNOP 

0,4 


001876 

07 00 



BCR 

0,0 







*********************************************************************** 






* ROUTINE 01 

- THE 360 STACKER SELECT TEST. 






* 


THIS ROUTINE ISSUES 

360 READ, FEED, AND STACKER SELECT 






* , 


COMMANDS. THE STACKER SELECT PATTERN IS AS FOLLOWS, 






* 


Rl, R2, Rl, RP3, DONE 10 TIMES IN A NORMAL PROGRAM 






* 


EXECUTION. THIS SHOULD PLACE 20 CARDS IN Rl, 10 CARDS 






* . 


IN R2, AND 10 CARDS 

IN RP3 IF THE STACKING PERFORMED 






* • 


PROPERLY. SENSE SWITCH CONTROL OR THE LOOP ROUTINE 






* 


OPTION ENABLES STACKING AS MANY CARDS AS DESIRED. 






*********************************************************************** 

001878 

01 




R0UT01 

DC 

X*01* 

ROUTINE NUMBER 

001879 

000804 



DC 

AL3(R0UT02-SECNO) 

ADDRESS OF NEXT ROUTINE 

00187C 

92 

00 

F 

ABB 


MVI 

SS,X»00* 

ZERO THE STK SEL SW. 

001880 

D2 

03 

F 

ABA F ABF 


MVC 

SSOP(4),NOSS 

MOVE INITIAL PATTERN TO WORK AREA. 

001886 

45 

40 

F 

71E 


BAL 

R4, INI T 

BR TO INITIALIZE 

00188A 

45 

40 

F 

816 


BAL 

R4-,0PMSG 

BR TO OPENING MSG. 

00188E 

96 

40 

F 

ABB 


01 

SS,X * 40 * 

TURN ON 360 STK SEL SW. 

001892 

41 

00 

0 028 

LP01 

LA 

RO, 40 

PUT 40 INTO REG 1. -TOTAL CDS- 

001896 

41 

10 

0 

001 


LA 

Rl, 1 

PUT 1 INTO REG 1 -COUNT- 

00189A 

41 

20 0 008 


LA 

R2, 8 

PUT 8 INTO REG 2 -CCW INDEX- 

00189E 

58 

CO 

F 

798 


L 

R12,RDR 

PUT RDR ADDR INTO REG 12. 

0018A2 

41 

40 

F 

8AA 


LA 

R4» SIO 

PICK UP THE RETURN ADDR. 

0018A6 

50 

40 

F 

7 AO 


ST 

R4,RETURN 

SAVE IT. 

0018 AA 

41 

A2 

F 

A48 

SIO 

LA 

R10,RDFD-8(R2) 

PICK UP ADDR OF READ FEED STK SEL. 

0018AE 

41 

3A 

0 

008 


LA 

R3, 8( RIO) 

PICK UP EXP CSW COMMAND ADDR 

0018B2 

40 

30 

F 

ADE 


STH 

R3,EXP5+2 

PUT IT IN EXP CSW 

0018B6 

45 

BO 

F 

OFE 


BAL 

RllylSlO 

BR TO ISSUE START 1-0 

0018BA 

3EOO 




DC 

X'3E00* 

CTRL SWITCHES 

0018BC 

0010 




DC 

X'OOIO* 

TEST NUMBER 

0018BE 

FOOO 




DC 

X'FOOO* 

EXP COND. CODE AND SENSE 

0018C0 

FADC 




DC 

AL2(EXP5-SECNO+REG! 

EXP CSW ADDR 

0018C2 

45 

40 

F 

982 


BAL 

R4,MRTN 

BR TO MAIN RTN. 

0018C6 

91 

08 

F 

004 


TM 

SNSW,X* 08 1 

SEE IF RTN LOOP SW ON. 

00I8CA 

47 

10 

F 

892 


BC 

ALL,LPOI 

BR IF YES. 

0018CE 

45 

40 

F 

A16 


BAL 

R4,COC 

BR TO CONVERT THE CD COUNT 

001802 

OA 

06 




SVC 

X , D6* 

-ROUTINE EXIT- 

0018D4 






CNOP 

0,4 







*********************************************************************** 






* ROUTINE 02 

- THE 1400 COMPATIBILITY STACKER SELECT TEST. 






♦ 


THIS ROUTINE ISSUES 

A 1400 READ NO FEED AND FOLLOWS NEXT 






* 


WITH A FEED TO ONE 1 

DF THE STACKERS. THE STACKER SELECT 






* 


PATTERN IS AS FOLLOWS, Rl, R2, Rl, RP3, DONE 10 TIMES 






* 


IN A NORMAL PROGRAM 

EXECUTION. THIS SHOULD PLACE 20 






* 


CARDS IN Rl, 10 CARDS IN R2, AND 10 CARDS IN RP3 IF THE 






* 


STACKING PERFORMED 1 

PROPERLY. 






♦ 


THIS TEST IS BYPASSED IF THE CORRECT PRINTOUT SENSE 






* , 


SWITCH -SSW 7- IS ON, DUE TO TIMING SENSITIVITY. 






*********************************************************************** 

001804 

02 




R0UT02 

DC 

X • 02 • 

ROUTINE NUMBER 

001805 

OOFFFF 



DC 

X* OOFFFF• 

LAST ROUTINE 

001808 

91 

08 

F 

0E1 


TM 

UNI T1+1, X *08 8 

SEE IF 1400 COMPATIBLE 2540 

00180C 

47 

10 

F 

918 


BC 

ALL,E X14 

BR IF YES. 

0018E0 

OA 

DO 



RBY 

SVC 

X* DO* 

PRINT -RTN BYPASSED- 

0018E2 

040 0 




DC 

X* 040D• 


0018E4 

FC5 1 




DC 

AL2(BYPASS-SECNO+REG) 


0018E6 

91 

40 

F 

AB8 


TM 

SS,X* 40* 

SEE IF 360 STK SEL EXECUTED. 

0018EA 

47 

10 

F 

8F0 


BC 

ALL,FINM 

BR IF YES. 

0018EE 

OA 

D6 



EX 

SVC 

X *06' 

-ROUTINE EXIT- 

0018F0 

91 

80 

F 

7F9 

FINM 

TM 

LD SW,X•80• > 

SEE IF ON LOADER. 

0018F4 

47 

80 

F 

BEE 


BC 

NONE,EX 

BR IF NOT. 

0018F8 

02 

05 

F 

C7A F C86 


MVC 

CLSTK+28C6),REDR 

MOVE WORD READER TO MSG. 

0018FE 

OA 

DO 




SVC 

X *00* 

PRINT -CLEAR READER OF CDS- 

001900 

2422 




DC 

X'2422* 
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001902 

FC5E 




DC 

AL2ICLSTK-SECN0+REG) 


001904 

OA 

DO 




SVC 

X* DO* 

PRINT -PUT THE TEST DECKS IN RDR. 

001906 

A03E 




DC 

X*A03E• 


001908 

FC1 3 




DC 

AL2(PTDB-SECNQ+REG) 


00190A 

OA 

DA 




SVC 

X'DA* 

-HALT- 

00190C 

9D 

00 

C 

000 


TIO 

0( R12) 

TEST 1-0 

001910 

OA 

DO 




SVC 

X • DO 1 

SPACE OUTPUT DEVICE 1. 

001912 

8001 




DC 

X 1 8001• 


001914 

FC1 3 




DC 

AL 2(P TDB-SECNO+REG) 


001916 

OA 

D6 




SVC 

X 1 D6 • 

-ROUTINE EXIT- 

001918 

45 

40 

F 

816 

EX14 

BAL 

R4.0PMSG 

BR TO OPENING MSG. 

00191C 

45 

40 

F 

71E 


BAL 

R4,INIT 

BR TO INITIALIZE. 

001920 

96 

80 

F 

AB8 


QI 

SS,X* 80* 

TURN ON THE 1400 STK SEL SWITCH. 

001924 

D2 

03 

F 

ABA F ABF 


MVC 

SSOP(4),NOSS 

MOVE INITIAL PATTERN TO WORK AREA. 

00192 A 

41 

00 

0 

028 

LP 14 

LA 

RO, 40 

PUT 40 INTO REG 0. -TOTAL CDS- 

00192E 

41 

10 

0 

001 


LA 

R 1,1 

PUT 1 INTO REG 1. -COUNT- 

001932 

41 

20 

0 

008 


LA 

R2,8 

PUT 8 INTO REG 2. -CCW INDEX- 

001936 

58 

CO 

F 

798 


L 

R12,RDR 

PICK UP READER ADDR. 

00193A 

41 

40 

F 

942 


LA 

R4,SI014 

PICK UP THE RETURN ADDR. 

00193E 

50 

40 

F 

7 AO 


ST 

R4,RETURN 

SAVE IT. 

001942 

41 

AO 

F 

A68 

S1014 

LA 

R10.RD14 

PICK UP ADDR OF 1400 RD NO FD CMD. 

001946 

91 

01 

F 

004 


TM 

SNSW,X* 01« 

TEST CORRECT PRINTOUT SSW 7. 

00194A 

47 

10 

F 

8E0 


BC 

ALL,RBY 

BR IF ON. 

00194E 

45 

BO 

F 

OFE 


BAL 

R11,ISI0 

BR TO ISSUE START 1-0. 

001952 

2A00 




DC 

X * 2A00* 

CTRL SWITCHES. 

001954 

0020 




DC 

X* 0020* 

TEST NUMBER 

001956 

FOOO 




DC 

X* F 000* 

EXP COND. CODE AND SENSE. 

001958 

FAC4 




DC 

AL2(EXP1-SECNO+REG! 

EXP CSW ADDRESS. 

00195A 

41 

A2 

F 

A68 


LA 

R10,FD14-8(R2) 

PICK UP ADDR OF 1400 STK SEL CMD. 

00195E 

45 

BO 

F 

OFE 


BAL 

Rll,ISIO 

BR TO ISSUE START 1-0. 

001962 

2E00 




DC 

X•2E00* 

CTRL SWITCHES. 

001964 

0030 




DC 

X•0030* 

TEST NU MBER 

001966 

F100 




DC 

X* F100* 

EXP COND. CODE AND SENSE. 

001968 

FACC 




DC 

AL2(EXP2-SECNO+REG! 

EXP CSW ADDRESS. 

00196A 

45 

40 

F 

982 


BAL 

R4,MRTN 

BR TO MAIN ROUTINE. 

00196E 

91 

08 

F 

004 


TM 

SNSW,X•08 ® 

SEE IF RTN LOOP SW ON. 

001972 

47 

10 

F 

92A 


BC 

ALL, LP14 

BR IF YES. 

001976 

45 

40 

F 

A16 


BAL 

R4,C0C 


00197 A 

92 

00 

F 

7FA 


MVI 

BYSW,X * 00• 

ZERO THE MSG BYPASS SW. 

00197E 

47 

FO 

F 

8F0 


BC 

UNC,FINM 

BR TO CHK END. 






*********************************************************************** 






♦ 

UPDATE STACKER CARD COUNT 







*********************************************************************** 

001982 

50 

40 

F 

A98 

MRTN 

ST 

R4,ENDRT 

SAVE END RETURN ADDR. 

001986 

88 

20 

0 

001 


SRL 

R2, 1 

DIVIDE REG 2 BY 2. 

00198A 

58 

32 

F 

A98 


L 

R3,CCSS-4(R2) 

PUT COUNT INTO REG 3 

00198 E 

41 

33 

0 

001 


LA 

R3f1{R3) 

ADD 1 TO THE COUNT 

001992 

50 

32 

F 

A98 


ST 

R3,CCSS-4(R2) 

STORE IT BACK 

001996 

89 

20 

0 

001 


SLL 

R2,1 

RESTORE REG 1 

00199A 

91 

10 

F 

005 


TM 

SNSW+1,X*10® 

SEE IF LOOP ON STACKER Rl DESIRED. 

00199E 

47 

10 

F 

9FE 


BC 

ALL,SET1 

BR IF YES. 

0019A2 

91 

08 

F 

005 


TM 

SNSW+1,X* 08• 

SEE IF LOOP ON STACKER R2 DESIRED. 

0019A6 

47 

10 

F 

A06 


BC 

ALL,SET2 

BR IF YES. 

0019AA 

91 

04 

F 

005 


TM 

SNSW-*-1,X•04 ® 

SEE IF LOOP ON STACKER RP3 DESORED. 

0019AE 

47 

10 

F 

AOE 


BC 

ALL,SET3 

BR IF YES. 

0019B2 

46 

00 

F 

9BC 


BCT 

RO,CNTCCW 

BR TO SET STK SELECT. 

0019B6 

58 

40 

F 

A98 


L 

R4,ENDRT 

RESTORE END RETURN ADDR. 

0019 BA 

07 

F4 




BCR 

UNC,R4 

RETURN TO ROUTINE. 






*********************************************************************** 






* . 

SET 

UP STACKER SELECT CCW 

HERE 






*********************************************************************** 

0019BC 

91 

03 

F 

ABA 

CNTCCW 

TM 

SSOP,X* 03 * 

SEE IF STACKER 3 DESIRED. 

0019C0 

47 

10 

F 

9EE 


BC 

ALL,FIX3 

BR IF YES. 

0019C4 

91 

02 

F 

ABA 


TM 

SSOP,X* 02• 

SEE IF STKR 2 DESIRED. 

0019C8 

47 

10 

F 

9F6 


BC 

ALL,FIX2 

BR IF YES. 

0019CC 

41 

20 

0 

008 


LA 

R2,8 

PUT STKR 1 CCW POINTER INTO REG 2. 

0019D0 

D2 

00 

F 

ABE F ABA 

SHDAT 

MVC 

SS0P+4(1),SSOP 

MOVE 1ST CHAR TO LAST. 

0019D6 

D2 

03 

F 

ABA F ABB 


MVC 

SSOPC 4),SSQP+1 

SHIFT THE PATTERN OVER 1. 
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0019DC 

88 20 0 003 



SRL 

R2« 3 

DIVIDE REG 2 BY 8 

001AD8 

04000000 


DC 

X®04000000* 

0019E0 

43 12 F AAB 



IC 

Rl,NCARD~l(R2) 

INSERT NEW COUNT INTO REG 1 

001 ADC 

00001A58 

EXP5 

DC 

AIRDFD+8) 

00I9E4 : 

89 20 0 003 



SLL 

R2.3 

MULTIPLY REG 2 BY 8 

001AEO 

08000000 


DC 

X®08000000® 

0019E8 

58 40 F 7AO 


RTLP 

L 

R4,RETURN 

PICK UP THE RETURN ADDR. 

001AE4 

00000000 


DC 

XL4® 00® 

0019EC 

07 F4 



BCR 

UNC«R4 

BR TO ROUTINE. 

001AE8 

04000000 


DC 

X®04000000® 

0019EE 

41 20 0 018 


FIX3 

LA 

R2« 24 

PUT STKR 3 CCW POINTER INTO REG 2. 



*********************************************************************** 

0019F2 

47 FO F 9 DO 



BC 

UNCtSHOAT 

BR TO SHIFT DATA. 



* 

MESSAGES 

0019F6 

41 20 0 010 


FIX2 

LA 

R2,16 

PUT STKR 2 CCW POINTER INTO REG 2. 



*********************************************************************** 

0019FA 

47 FO F 9 DO 



BC 

UNC , SHDAT 

BR TO SHIFT DATA. 

001AEC 

40D7D3C1C3C540 

DONPRO 

DC 

C® PLACE • 

0019FE 

41 20 0 008 


SET 1 

LA 

R2 * 8 

PUT STKR 1 CCW POINTER INTO REG 2. 

001AF3 

C1D7D7D9D6E740F1F0 


DC 

C * APPROX 100 VALID® 

001A02 

47 FO F 9E8 



BC 

UNC ,RTLP 

BR TO RETURN. 

001 AFC 

F040E5C1D3C9C4 




001A06 

41 20 0 010 


SET2 

LA 

R2» 16 

PUT STKR 2 CCW POINTER INTO REG 2. 

001B03 

40E2C3D9C1D740C3C4 


DC 

C® SCRAP CDS IN RD® 

001 AOA 

47 FO F 9E8 



BC 

UNC »RTLP 

BR TO RETURN. 

001BOC 

E240C9D540D9C4 




001A0E 

41 20 0 018 


SET3 

LA 

R2» 24 

PUT STKR 3 CCW POINTER INTO REG 2. 

001B13 

D94B40C8D7D96BD4C1 


DC 

C'R. HPR,MAKE RDY,• 

001A12 

47 FO F 9E8 



BC 

UNC,RTLP 

BR TO RETURN. 

001B1C 

D2C540D9C4E86B 







*********************************************************************** 

001B23 

C5D6C640D6D5 


DC 

C•EOF ON' 




* 

CONVERT THE CARD COUNT HERE, 


001B29 

40D9C5D4D6E5C540C3 

RTD1 

DC 

C® REMOVE CDS FROM® 




*************** I******************************************************** 

001B32 

C4E240C6D9D6D4 




001A16 

41 30 0 003 


COC 

LA 

R3* 3 

PUT 3 INTO REG 3. 

001B39 

40E2E3C1C3D2C5 D940 


DC 

C® STACKER OF LOAD® 

001A1A 

41 50 F 6D4 



LA 

R5,RIP 

PUT ADDRESS OF MSG AREA INTO REG 8. 

001B42 

D6C640D3D6C1C4 




001A1E 

IB 66 



SR 

R6,R6 

ZERO REG 6. 

001B49 

C5D940C4C5E5C9C3C5 


DC 

C•ER DEVICE® 

001A20 

58 76 F A9C 


CDNC 

L 

R7,CCSS(R6I 

PUT COUNT INTO REG 7. 

001B52 

4009C5D4D6E5C540E3 

RTD2 

DC 

C® REMOVE THE REMA® 

001A24 i 

4E 70 F 5C0 



CVD 

R7, DBWD 

CONVERT COUNT TO DECIMAL. 

001B5B 

C8C540D9C5D4C1 




001A28 

F3 37 5 000 F SCO 


UNPK 0<4,R5),D8WDC8) 

UNPACK 4 BYTES INTO PRINT AREA. 

001B62 

C905C9D5C740E3C5E2 


DC 

C'INING TEST DECKS® 

001A2E 

96 FO 5 003 



01 

3( R5) , X'FO® 

OR AN F INTO THE SIGN POSITION. 

001B6B 

E340C4C5C3D2E2 




001A32 

41 55 0 010 



LA 

R5,16(R5) 

ADD 16 TO REG 5. 

001B72 

6BC9C640C1D5E86B40 


DC 

C•,IF ANY, FROM TH• 

001A36 

41 66 0 004 



LA 

R6,4(R6) 

ADD 4 TO COUNT POINTER. 

001B7B 

C6D9D6D440E3C8 




001 A3A 

46 30 F A20 



BCT 

R3.C0NC 

BR TO CONVERT NXT COUNT. 

001B82 

C540D3D6C1C4C5D940 


DC 

C *E LOADER HPR• 1 

001A3E 

OA DO 



SVC 

X»D0® 

PRINT NUMBER OF CARDS IN STKRS. 

001B8B 

C8D7D9 




001A40 

2439 



DC 

X® 2439* 


001B8E 

40C4D640D5D6D7D9D6 

RTD3 

DC 

C® DO NOPRO AND PL® 

001A42 

F6CA 



DC 

AL2(SHDAVE-SECNO+REG) 


001B97 

40C1D5C440D7D3 




001A44 ; 

OA DO 



SVC 

X'DO® 

PRINT A BLANK. 

001B9E 

C1C3C540C3C4E240D9 


DC 

C • ACE CDS RUN OUT 9 

001A46 

8001 



DC 

X® 8001 • 


001BA7 

E4D540 D6E4E340 




001A48 

F6CA 



DC 

AL2(SHDA VE-SEC NO+REG) 


001BAE 

C9D 540C6D9D6D5 E34Q 


DC 

C ® IN FRONT OF REMA® 

001A4A 

07 F4 



BCR 

UNC , R4 

RETURN TO MAIN ROUTINE. 

001BB7 

D6C640D9C5D4C1 







*********************************************************************** 

001BBE 

C9D5C9D5C740E3C5E2 


DC 

C'INING TEST DECKS® 




* 

CCW 

AREA 


001BC7 

E340C4C5C3D2E2 







*********************************************************************** 

001 BCE 

40E2C1E5C540D9C5D4 

RT04 

DC 

C* SAVE REMAINING * 

001A50 

02 0017A8 2000 

0001 

RDFD 

ccw 

X®02®,BUFFER,X®20®,1 

* 

001BD7 

C1C9D5C9D5C740 




001A58 

42 0017A8 2000 

0001 


CCW 

X'42®,BUFFER,X*20®,1 


001BDE 

E3C5E2E340C4C5C3D2 


DC 

C ® TEST DECKS UNTIL® 

001A60 

82 0017A8 2000 

0001 


ccw 

X®82®,BUFFER,X®20®,1 


00IBE7 

E240 E4D5E3C9D3 




001A68 

D2 0017A8 2000 

0001 

RD14 

CCW 

X*D2®tBUFFER,X*20®,l 


001 BEE 

40C140D4E2C740D9C5 


DC 

C® A MSG REQUESTS • . 

001A70 

33 0017A8 2000 

0001 

FD14 

ccw 

X®33®,BUFFER,X®20®,1 


001BF7 

D8E4C5E2E3E240 




001A78 

73 0017A8 2000 

0001 


CCW 

X*73® ,*BUFFER,X *20 • ,1 


001BFE 

E3C8C5D440E3D640C2 


DC 

C ® THEM TO BE PUT I • 

001ABO 

B3 0017A8 2000 

0001 


CCW 

X»B3®,BUFFER,X®20®,1 


001C07 

C540D7E4E340C9 




001A88 

03 0017A8 2000 

0001 

NOOP 

CCW 

X*03®,BUFFER,X®20®,1 


001C0E 

D540C8D7D9 


DC 

C ®N HPR® 

001A90 

00000000 


0CT1 

DC 

F*0® 


001C13 

40D7E4E340D9C5D4C1 

PTDB 

DC 

C® PUT REMAINING T® 

001A94 

00000000 


ISLAVE 

DC 

F • 0® 


001C1C 

C9D5C9D5C740E3 




001A98 

00000000 


ENDRT 

DC 

F ® 0® 


001C23 

C5E2E340C4C5C3D2E2 


DC 

C'EST DECKS INTO R® 

001A9C 

000000000000000000 

CCSS 

DC 

XL12® 00® 


001C2C 

40C9D5E3D640D9 




001AA5 

000000 






001C33 

C4D940C8D7D940C1D5 


DC 

C ®DR HPR AND MAKE ® 

001AA0 

OOOOOOOF 


OF 

DC 

X®OOOOOOOF® 


001C3C 

C440D4C1D2C540 




001AAC 

000000 


NCARD 

DC 

XL3* 00® 


001C43 

D9C4D940D9C4E86BC5 


DC 

C ®RDR RDY,EOF ON® 

001AAF 

010 101 


ONES 

DC 

X'010101® 


001C4C 

D6C640D6D5 




001AB2 

OFOFOF 


REMOVE 

DC 

X®OFOFOF® 


001C51 

40D9E3D540C2E8D7C1 

BYPASS 

DC 

C® RTN BYPASSED® 

001AB5 

000000 


ZERO 

DC 

X'OOOOOO® 


001C5A 

E2E2C5C4 




001AB8 

00 


SS 

DC 

X®00® 


001C5E 

40D9C5D4D6E5C540C1 

CLSTK 

DC 

C® REMOVE ALL CDS ® 

001A 89 

00 


PC 

DC 

X®00® 


001C67 

D3D340C3C4E240 




001 ABA 

F2F1F3F140 


SSOP 

DC 

C•2131 * 


001C6E 

C9C640C1D5E86B 


DC 

C•IF ANY,® 

001ABF 

F2F1F3F1 


NOSS 

DC 

C * 2131 * 


001C75 

C6D9D6D440E2E3D2D9 


DC 

C ‘FROM STKRS. • 




*********************************************************************** 

001C7E 

E24B 







* 

EXP 

CSW AREA 


00IC80 

E2E3D2D9E24B 

STK 

DC 

C®STKRS.® 




*********************************************************************** 

001C86 

D9C5C1C4C5D9 

REDR 

DC 

C 'READER® 

001AC4 

00001A70 


EXP 1 

DC 

A(RD14+8) 




*********************************************************************** 

001AC8 

OCOOOOOO 



DC 

X®OCOOOOOO® 




4 

EQUATES 

001 ACC 

00000000 


EXP2 

DC 

XL4* 00® 




*********************************************************************** 

001ADO 

08000000 



DC 

X *08000000• 



000000 

NEVER 

EQU 

0 

001AD4 

00000000 



DC 

XL4•00® 



000007 

NCCO 

EQU 

7 


DATE 

EC 
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OQOOOF 

UNC 

EGU 

15 

000008 

NONE 

EQU 

8 

000004 

SOME 

EQU 

4 

000001 

ALL 

EQU 

1 

000005 

ANY 

EQU 

5 

000008 

CCO 

EQU 

8 

000004 

CC1 

EQU 

4 

000002 

CC2 

EQU 

2 

000001 

CC3 

EQU 

1 

OOOOOA 

CC02 

EQU 

10 

000006 

CC12 

EQU 

6 

000008 

EQ 

EQU 

8 

000004 

LO 

EQU 

4 

000002 

HI 

EQU 

2 

000006 

UNEQ 

EQU 

6 

OOOOOC 

EQLO 

EQU 

12 

OOOOOA 

EQHI 

EQU 

10 

000080 

LOGOUT 

EQU 

X 1 80* 

000181 

SYSMOD 

EQU 

X * 181• 

OOFOOO 

REG 

EQU 

X'FOOO* 

00005A 

WHAT 

EQU 

90 

000000 

RO 

EQU 

0 

000001 

RI 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

OOOOOB 

Rli 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001AO 

DMSSW 

EQU 

X* 01A0* 

0001B9 

DMIOL 

EQU 

X•01B9* 

0001BC 

DMPTR 

EQU 

X*01BC« 



END 

R0UT01 


DATE 

EC 


15JUN67 

130498 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


C ct 


c c c c 



P/N 840574 
PAGE 9 


2540 READER STACKER SELECT TEST - SECTION F819 


P/N 840574 
PAGE 9A 


POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


1 

8 

EQ 

12B8 » 

1326, 

1352 





2 

1BEE 

EX 

18F4 







1 

2 

HI 








1 

4 

LO 








4 

1AA8 

OF 








1 

1AB9 

PC 








1 

0 

RO 

1114* 

152E, 

1892, 

192A, 

1982 



1 

1 

R1 

1896* 

192E, 

19E0 





1 

2 

R2 

189A* 

18AA, 

1932, 

195A, 

1986, 

198A , 

1992 




1996, 

19CC, 

19DC, 

I960, 

19E4, 

19EE, 

19F6 




19FE, 

1A06, 

1A0E 





1 

3 

R3 

18AE, 

18B2, 

198A, 

198E, 

198E, 

1992, 

1A16 




1A3A 







1 

4 

R4 

177A, 

1874, 

1886, 

188A, 

18A2, 

18A6, 

18C2 




18CE* 

1918, 

191C, 

193A, 

193E , 

196A, 

1976 




1982, 

1986, 

19BA, 

19E8, 

19EC , 

1A4A 


1 

5 

R5 

151C, 

178C, 

1A1A, 

1A28, 

1A2E , 

1A32, 

1A32 

1 

6 

R6 

1748, 

1748, 

174A, 

174E « 

1752, 

1754, 

1756 




1758, 

1A IE, 

1A1E, 

1A20, 

1A36, 

1A36 


1 

7 

R7 

129E, 

156A, 

1A20, 

1A24 




1 . 

8 

R8 

129A, 

12F6, 

12FA, 

1318, 

1318, 

131C , 

1372 




1376, 

1428, 

142C, 

1430, 

1430, 

1434,' 

1552 

1 

9 

R9 

1114, 

116E, 

1172, 

117E, 

11D6, 

IIDA, 

11E6 




123C, 

I3CE, 

13FC, 

143E , 

1456, 

146E, 

1486 




I52E, 

154A, 

154E , 

1566 




1 

1AB8 

SS 

126A, 

1816, 

187C, 

188E, 

I8E6, 

1920 


1 

198 

WT 

116E, 

11D6, 

154A 





1 

1 

ALL 

1132, 

1 ICE, 

1206, 

125E , 

I26E , 

1206, 

12C8 




12D4, 

133A, 

135A, 

1392, 

14B8, 

151C , 

1768 




181A, 

1854, 

18C A, 

18DC, 

18EA, 

194 A , 

1972 




199E, 

19A6, 

19AE , 

19C0, 

19C8 



1 

5 

ANY 

1514 







4 

1048 

CAW 








1 

8 

CCO 

117A, 

1194 






1 

4 

CC1 

1198, 

1562 






1 

2 

CC2 

119C 







1 

1 

CC3 








4 : 

1A16 

COC 

18CE, 

1976 






8 

1040 

CSW 








2 

100 A 

I CM 








4 

116E 

IHI 

1152, 

1162 






2 

10E8 

ISW 

1182, 

1182, 

1188, 

HBAt 

11C6, 

1102, 

HIDE 




11EE, 

11FE, 

1202, 

1210, 

1240, 

124E, 

125A 




1262, 

127A, 

128A, 

12A2, 

12AA, 

12AE , 

I2BC 




12C4, 

1200, 

12EE, 

1310, 

132A, 

1336, 

1442 




1472, 

1490, 

14F0, 

14F8, 

1518, 

1574, 

1764 




1788, 

1790 






4 

152A 

IUP 

1522 







2 

184C 

M1F 

1816, 

1846 






16 

16BA 

MDR 

1538, 

1544 






1 

A 

RIO 

I11E, 

13AC, 

13C8, 

13D2, 

130A, 

13DA, 

150C 




1776, 

18AA, 

18AE, 

1942, 

195A 



1 

B 

Rll 

110E, 

112E, 

11CA, 

1252, 

1272, 

12B2 , 

12 DC 




12E6, 

12F6, 

1308, 

135E , 

1376, 

1378, 

138A 




138A, 

138E, 

13FE, 

141A , 

1428, 

145A , 

148A 




151E, 

1526, 

1526, 

152A, 

152A, 

1532, 

13B6 




194E, 

195E 






1 

C 

R12 

1146, 

1156, 

1166, 

1176, 

1190, 

11F6, 

153C 




1556, 

155E, 

172A, 

1726 , 

1732, 

1758, 

I86A 




189E, 

190C, 

1936 





1 

0 

R13 

111E, 

1122, 

1122, 

11B4, 

150C, 

1552, 

156C 
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me* 

me. 

1728 





1 

E 

R14 

1128, 

1128* 

116E, 

1106* 

14BC * 

14C4 * 

154A 




1720, 

174A, 

174E, 

1752 




1 

F 

R15 

120A* 

1218* 

1248* 

1728 




2 

18E0 

RBY 

19 4 A 







4 

1798 

RDR 

1732, 

189E, 

1936 





1 

FOOO 

REG 

122A, 

1370, 

1388* 

13A2* 

13BC * 

13FA * 

1408 




140E, 

14A4* 

14B2* 

14EE * 

1504* 

150A * 

1538 




1544, 

1786* 

1832, 

1838* 

183E, 

1844, 

184E 




1862* 

1872, 

18C0* 

18E4* 

1902, 

1908, 

1914 




1958, 

1968* 

1A42* 

1A48 




16 

16D4 

RIP 

1A1A 







2 

1534 

RRM 

1352, 

135A, 

14B8 





4 

18 AA 

SIO 

18A2 







6 

1C80 

STK 

1858 







2 

185E 

TOP 

1822, 

1864 






1 

F 

UNC 

10FA, 

114A* 

116A* 

11A4, 

11AC * 

UBE, 

11F2 




1214* 

1244* 

1266* 

12C0* 

12CC, 

12D8* 

130E 




13FC, 

14FC, 

1532, 

1546, 

156A, 

1578, 

177A 




1794, 

1874, 

197E* 

19BA * 

19EC * 

19F2 * 

19FA 




1A02, 

1A0A* 

1A12* 

1A4A 





4: 179C AT El 

2 184A BILM 182A 

1 UFA BYSW 197A 

1 A CC02 

1 6 CC12 

12 1A9C CCSS 1736* 1736* 198A* 1992* 1A20 

4 1A20 CONC 1A3A 

4 1UE CONP 1546 

8 15CO DBWD 1A24* 1A28 

4 1A90 DCT1 

1 A EQHI 

1 C EQLO 

4 1918 EX14 18DC 

4 1AC4 EXP1 1958 

4 1ACC EXP2 1968 

4 1ADC EXP5 1882* 18C0 

8 1A70 FD14 195A 

4 18F0 FINM 18EA* 197E 

4 19F6 F1X2 19C8 

4 19EE F1X3 19C0 

4 1176 GREG 117E 

1 48 HCAW 111E* 150C* 1552 

1 40 HCSW 1122* 1122* 1IB4, 120A* 1218* 1248* 156C 

2 1868 HLT1 1854 

16 17FB HUNG 1786 

3 1643 IACT 1236, 144A, 147A 

6 12 DC IBSN 126E* 127E* 128E, 1296* 12A6, 12B8* 12C0 

12 1617 ICAW 13AC* 13B4, 13B6, 13BC 

3 1626 ICCW 13BE 

1 13F9 1CNT 1232* 13C4, 1416 

3 1623 ICSW 122C* 1410 

4 1472 IDID 145E 

3 1646 1 EXP 1422* 1462 

2 17IE INIT 1886, 191C 

4 UC6 INOW 1132* 11A4, 11AC* 11BE 

4 1252 INT3 1214 

4 1180 IONE 1198 

6 148A 1PAS 1476 

4 126A IS EN 11CE* 11F2, 1256* 125E 

4 10FE IS 10 18B6* 194E* 195E 

6 1248 ISV2 1206 

4 1566 ITIC 1570 

4 10EA IT 10 

4 11A8 ITWO 119C 

6 1218 1UI0 UFA 

6 1182 JOHN 113A* 117A 

1 17F9 LDSW 1760, 1826* 1850, 18F0 
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4 

1892 

LP01 

18CA 







4 

192A 

LP 14 

1972 







4 

18 IE 

M1F1 








4 

1982 

MRTN 

18C2, 

196A 






1 

1706 

MSK1 

11E2 







1 

1707 

MSK2 

11EA 







1 

17 F8 

MSSW 

1742, 

1742 






1 

7 

NCCO 

115A, 

155A 






1 

100D 

NIOU 








1 

8 

NONE 

113A, 

1142, 

1152, 

1162, 

1256, 

1276, 

127E 




128E, 

1296, 

12A6, 

12EA, 

12F2, 

130C, 

1314 




1342, 

13D6, 

141E, 

1446, 

145E, 

1476, 

1494 




14F4, 

1522, 

1570, 

1724, 

182A, 

18F4 


8 

1A88 

NOOP 

1776 







4 

1 ABF 

NOSS 

I860, 

1924 






3 

1AAF 

ONES 

173C 







16 

1C13 

PTDB 

1908, 

1914 






8 

1A68 

R014 

1942, 

1AC3 






8 

1A50 

RDFD 

18AA, 

1ADC 






6 

1C86 

REDR 

18F8 







16 

1B29 

RTDl 

1832 







16 

1B52 

RTD2 

1838 







16 

1B8E 

RTD3 

183E 







16 

1BCE 

RT D4 

1844 







4 

19E8 

RTLP 

1A02, 

1A0A, 

1A12 





1 

1708 

RTSV 

1118, 

177C 






1 

100C 

SDMF 








4 

19FE 

SET 1 

199E 







4 

1A06 

SET 2 

19A6 







4 

1 AGE 

SET3 

19AE 







4 

1004 

SNSW 

1136, 

113E, 

U4E, 

115E , 

133E , 

1510, 

18C6 




1946, 

196E, 

199A, 

19A2, 

19AA 



1 

4 

SOME 








3 

1050 

SRET 








5 

1ABA 

SSOP 

1880, 

1924, 

19BC* 

19C4, 

19D0, 

1900, 

19D6 




1906 







6 

1858 

TOPS 

181A 







1 

10E1 

U10P 








1 

10E5 

U20P 








1 

6 

UNEQ 

UFA, 

12E2, 

1304, 

13A8, 

14C0, 

175C 


1 

5A 

WHAT 








1 

15C8 

WORK 

1218, 

13C8, 

13E6, 

13E8, 

13EA , 

13F0, 

1438 




1438, 

1450, 

1468, 

1468, 

1480, 

14C4 , 

14CE 




14D0, 

14D2, 

14D8, 

14DE , 

14E4 



3 

1AB5 

ZERO 








4 

1764 

BLOOP 

175C, 

1794 






16 

1C5E 

CL S TK 

1858, 

1862, 

18F 8, 

1902 




1 

1B9 

DMIOL 

174A 







1 

1BC 

DMPTR 

174E 







1 

1 AO 

DMSSW 








4 

1A98 

ENDRT 

1982, 

19B6 






1 

100E 

FLAG1 








1 

100F 

FLAG2 








2 

156A 

I BACK 

155A, 

1578 






16 

1629 

I BLAH 

122C, 

1236, 

13BE, 

13EA , 

13F0, 

13FA , 

1410 




1422, 

144A, 

1462, 

147A 




2 

13E2 

ICOUT 

123C, 

13CE, 

143E, 

1456, 

146E, 

1486 


8 

15 BO 

ICSW1 

1184, 

120A, 

1282, 

12FE , 

12FE, 

1356, 

1450 

8 

15B8 

ICSW2 

1248, 

1292, 

1320, 

1320, 

1480 



4 

14F0 

ICUIO 

14C0 







4 

1442 

IDIDI 

141E 







4 

1156 

I HANG 

U6A 







16 

1607 

ILINK 

1378, 

1380, 

1382, 

1388, 

150A 



4 

156C 

ILOKE 

1562 







4 

1146 

ILOOP 

10EE, 

1102 






4 

132 A 

INDER 

12C8, 

12D4, 

12E2, 

12F2, 

1304 1 

1314 


5 

1010 

INPSW 








3 

1703 

IOADR 

139 A 








OOflO 


DATE 

EC 


15JUN67 

130498 


ID F819-0 
PAGE 10A 
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6 

1410 

IOCSW 

1392 







16 

165F 

IOLOG 

14D2* 

14D8, 

14DE, 

14E4, 

14EE 



16 

1684 

I0PT1 

10F2* 

1106, 

1504 





4 ' 

14BC 

IPASS 

1494 







4 

1588 

ISAVE 

1114i 

152E 






4 

1190 

ISSUE 

lOEAf 

10FE, 

13A4, 

1703 




4 : 

154A 

ISTRT 

129E 







4 ' 

U3E 

ITRY1 

114A, 

115A, 

1514 





4 

114E 

ITRY2 

1142 







16 

1709 

IUNEX 

1224, 

122A 






4 

11D6 

IWAIT 

1266, 

14FC 






4 ! 

11C2 

HERO 

1194 







4 ' 

17 A4 

M0D50 

172E 







3 

1AAC 

NCARO 

173C, 

19E0 






1 

0 

NEVER 








4 

1816 

OPMSG 

188A, 

1918 






4 

1000 

SECNO 

1118, 

1222, 

1224, 

122A , 

1368, 

136A, 

1370 




1380, 

1382, 

1388, 

139A , 

139C, 

13A2, 

13B4 




13B6, 

13BC, 

13E6, 

13E8, 

13FA , 

1408, 

140E 




149C, 

149E, 

14A4, 

14AA , 

14AC, 

14B2 , 

14CE 




14D0, 

14EE, 

1504, 

150A, 

1538, 

1544, 

177C 




1786, 

1832, 

1838, 

183E, 

1844, 

184E , 

1862 




1872, 

1879, 

18C0, 

18E4, 

1902, 

1908, 

1914 




1958, 

1968, 

1A42, 

1A48 




6 , 

19D0 

SHDAT 

19F2, 

19FA 






4 

1942 

S 1014 

193A 







1 

10E0 

UNIT 1 

172A, 

18D8 






1 

10 E4 

UNIT2 








1 

17 A8 

BUFFER 

176C, 

1770, 

1770, 

1A50, 

1A58, 

1A60, 

1A68 




1A70, 

1A78, 

1A80, 

1A88 




13 

1C51 

BYPASS 

18E4 







4 1 

19BC 

CNTCCW 

19B2 







7 

1AEC 

DONPRO 

184E, 

1872 






5 

1058 

EXNPSW 








8 

1018 

EXQPSW 








6 

177C 

HANGUP 

1768 







11 

1654 

IACSNS 

12B2, 

134E, 

14AA, 

14AC, 

1462 , 

1484 ^ 

1580 

10 

15 EE 

IACTCC 

118C, 

HAD, 

11A8, 

11B0, 

11C2 , 

12DC, 

140E 

6 

13FE 

ICCOUT 

13A8, 

13D6 






6 

12FE 

ICCSWi 

12FA 







6 

1320 

ICCSW2 

131C 







6 

1438 

ICHNG1 

142C 







6 ' 

1468 

ICHNG2 

1434 







6 

13C8 

ICWOUT 

13DE 







4 

129A 

IDOSNS 

1276, 

1286, 

178C 





4 : 

132E 

IDUNCK 

12CC, 

12D8, 

1326 





10 

15E4 

IEXPCC 

13FE, 

1408 






11 

1649 

IEXSNS 

148A, 

149C, 

149E, 

14A^ 




6 . 

110E 

IEYE0H 

10FA 






1 

136E 

IFLAG1 

132E, 

1346 






l 

1502 

IFLAG2 

1332, 

134A 






4 

15 IE 

ILEAVE 

1342 







6 

14C4 

ILOGED 

1244 







4 

145A 

IMORST 

1446 







4 : 

12C4 

IN0EX1 

12EA 







4 : 

12 DO 

IN0EX2 

130C 







15 

15F8 

I0ADDR 

10F6,. 

110A, 

139C , 

13A2 




4 ! 

1078 

IONPSW 








8 

1038 

IOOPSW 

11F6, 

1222 






2 

1500 

IOPOUT 

14F4 







4 

134E 

IOUT IT 

133A 







4 

11F6 

IRETRN 

107C 







8 

1580 

ISENSE 

129A 







4 

1A94 

ISLAVE 








4 

155E 

ITIQLP 

1566 







9 

167B 

ITSTNO 

110E, 

135E, 

1368, 

136A , 

1370 



1 

80 

LOGOUT 

1128, 

1128, 

14C4 





8 

1070 

MCNPSW 









2540 READER STACKER SELECT TEST - SECTION F819 


8 

1030 

MCOPSW 



4 

172A 

NITWIT 

1724 


8 

1068 

PGNPSW 



8 

1028 

PGOPSW 



4 

15 EO 

RANDOM 



3 

1AB2 

REMOVE 



4 

17 AO 

RETURN 

18A6, 

193E, 

1 

1878 

ROUT01 

1015, 

ICBC 

1 

18D4 

R0UT02 

1879 


10 

16CA 

SHDAVE 

1A42, 

1A48 

8 

1060 

SVNPSW 



8 

1020 

SVOPSW 



1 

181 

SYSMOD 

14BC 


2 

10E2 

U1ADDR 



2 

10E6 

U2ADDR 



1 

1000 

XF8190 




NO ERROR DETECTED IN ABOVE ASSEMBLY 


DATE 15JUN67 ID F819-0 DATE 15JUN67 10 P819-0 
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F819 2540 READER STACKER SELECT TEST 


PERIODS CORRESPOND TO BLANK COLUMNS® 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 COLS. 41 THROUGH 60 COLS. 61 THROUGH 80 


BESD. 

• AA. 

•AAXF81 

9 

YQ 

Y9 


99 

9 

BTXT.AAA. 

• AS. 

•AA8JAA 

9 YQY 

Y9 

Y9 8YY 

999 

9 

9 999 

BTXT.AA3. 

. A8. 

.AAAAAA 

9 YQ9 

Y9 

Y9YYYY 

99 

9 

9 9999 

BTXT.AAO. 

• AA. 

«AAAAAA 

9 YQ+ 

YQ 

Y9YYYY 

99- 

99 

9 9999 

BTXT.AAS. 

. A8. 

•AAAAAA 

9 YQ8 

Y9 

Y90YYY 

99 

9 

9 9 9 

BTXT.AJQ. 

* A@. 

•AAKA7H 

9 Y99 

Y9 

Y9 Y 9 

9 

9 

9 9 

BTXT.AJ+. 

• A8. 

•AAODGA 

9 Y9 

Y9 

Y9 9ZY 

9 

9 

9 

BTXT•AJH® 

* A8« 

»AAFAOY 


9 Y90 Y9 Y9-Y 

9 9 9 

BTXY«AJO.*A8».AA1FB0 
9 Y9* Y9 Y9 - 

9 9 9 

8TXT.AJ8.®A8..AA02G- 
9 Y9 Y9 Y9 87 

9 9 9 9 

BTXT « AKA®.AS..AA6TBK 
9 Y9Q Y9 Y9 9-8 

9 Z 9 9 9 

BTXT.AKQ».A8..AA10AA 
9 Y9 l Y9 Y9 -Y 

9 9 9 

BTXT. AKJ.®A8..MS BAA 
9 Y9Y Y9 Y9 8-Y 

9 9 9 

BTXT.AKQ..A8.»AAG03W 
9 Y9 Y9 Y9Z 8 

9 9 9 9 

BTXT. ALA.• A8. . AAAJOY 
9 Y9Q Y9 Y9-Y 

9 9 9 9 9 

BTXT. ALH..A8w.AA3WBA 
9 Y9Z Y9 Y9 8-Y 

9 9 9 


90..AAAA.ADD........ 

YYQY Y8Y 
9999 99 

AAAAAAAAABGAADAAAAQH 
YYYYYYYYY9+Y99YYYY9R 
999999999 9 9999 0 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAADAAAAJ 6... 

YYYY99YYYY9 
9999 9999 

BAAAAABE1ABE1FBT6EBT 
OYYYYY-Q Q-Q Z- Q- 
99999 

OC+NAHPGO.Q.PCSASAAA 
9 YYZ 9- - 88Y8Y-Y 

9 9 

1WEA0AGG1&A ®9DGA1WDA 
8QY+YZ* 8- . 9ZY 8QY 
9 9-9 9 

BXS3DAQAG&1BG.1A6JIQ 
QY+YZY Z QZY 0 
9 9 0 9 

53D70YA.AAGA2+FA0YHF 
-8 - QYZQ —Q RQ 

09 9 9 

2QD70YA.0YGA2HK65A0. 
9-8 - ZQ Z 9 Q 

9 0 

39K86.6CEA3SFB0YG04D 
9 ZZQ -9 Z 


BHGA2DABAAGA2BA.0YGA 
QOZQ Q-9QYZY Q- ZY 
Z- 99 09 

0ZGA2DFD0YD70ZNA6JAE 
ZY Q-9 -8 Y 8Q9 

9 9 0 

NA53ADG-3SAHAAGA2DA. 
Y Q9Z 8-9QYZY - 
9 0 9 09 

GA3SAHAH.A3UNG5M5HGA 
ZY 8Z0Y9 Y 9 9 0 OZY 
9 9 - 

5BE.6JGA54AA5DGA54KA 
9- 8ZY 9-9 OZQ 9 9 
- 9 


840 


AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
VYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 


§DG01FBD1ABD1FB$6EB$ 
91 8-Q Q--Q Z- Q- 

9 

AA6A!FA00DGA1BAAODGA 
QYZQ , -+ 9ZY 0-Y 9ZY 
09 9 

0AG01FHFAHHAACEA0A6A 
*¥Z RRQ9-0QY9QY*YZY 
9 9 9 9 

S353GQ1FB253601FB153 
Z - Z 


AHHAACPAQYAA7FFA1WAA 

9-0QY9-Y YY 9ZQ YY 
9 9 9 

F.0YG02BKG5H0.BEABA2 
Z R 9 8QY9Y8 
999 99 

KG5H0.F JOVAAAAGA2+ AH 
9 0 -Y -QQYZY —9 
9 909 

2DAB5DGA2BAJ0YGA2DAB 
Q-9 OZQ G-Y ZY Q-9 
9-99 9 

GA2DFAOYG02DA.OYGA3S 

ZY Q-9 1 Q- ZQ 8 

9 9 9 9 

0YGA3SHCAF.A3BNG5A5A 
ZY 8ZYY9 Y 9 9 Q Q 

9 9 0 0 

3WFA0YBM3WB05BAA0YGA 
8-9 ~Z 8-+ 9-9 ZQ 
9 9 

6AAB8EABFAFAB0MA63AA 
YQ98QY99Y9Y8-Z8 8ZY 
0 999 9 9 


575.130498..81900001 


AAAAAAAAAAAA81900002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA81900003 

YYYYYYYYYYYY 

999999999999 

...81900004 


6DKA6AABAA5H81900005 
9 9 YQ9Q8 0 
0 9 

1FDA0AG016A.81900006 
8QY+YZ 8- 
9 9 9 

1BFA1FPA0Y0Y81900007 
OZQ R 9 
0 

KGSAO* F.OY G081900008 
9 Q- - Z 
0 

7GD70YG02+A081900009 
9-8 Z -8+ 


GKB0MN7 AK86$81900010 
988-Z9 898 
99 9 9 

0YGA2+FH0Y GO81900011 
ZQ —9 Z 
9 

5D6A2DAA5AE081900012 
QZY QZY YZ+ 

0 9 

G03WAJ0YGA3S81900013 
Z 8-Y ZQ 8 
9 9 9 9 

G-3SADAAGA2081900014 
Z 8-9QYZY - 
9 09 

3FAA0DGA50BU81900015 
8-9 9ZY 8-9 
9 

ADLH+A6DBEAC81900016 
Y980 Q 88QY9 
99-0 9999 
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BTXT.ALA. 

.AS. 

• AAFEFD 

9 Y9Y 

Y9 

Y99898 

9 

9 

9 9 9 

BTXT.ALH. 

.AS. 

•AABOJC 

9 Y9Q 

Y9 

Y98-Y8 

9 - 

9 

9 9 9 

BTXT.ALO. 

• A8 • 

•AAKG67 

9 Y9 

Y9 

Y9 9 9 

9 

9 

9 

BTXT.AMY. 

.A8. 

•AAHCAF 

9 Y99 

Y9 

Y9ZYY9 

9 

9 

9 9 

BTXT.AM-. 

• A8. 

•AA4BKB 

9 Y9 

Y9 

Y9 R 9 

9 

9 

9 0 

BTXT.AMH. 

• A8. 

•AABEAA 

9 Y9- 

Y9 

Y98QY9 

9 

9 

9 999 

BTXT.AMO. 

* AS. 

•AAEHKA 

9 Y9- 

Y9 

Y99 9 

9 

9 

9 

BTXT.ANH. 

* A8 • 

• AAJ A6G 

9 Y99 

Y9 

Y9Y9 9 

9 

9 

9 

BTXT.AN.. 

. A8. 

•AABOAA 

9 Y9 

Y9 

Y98-Y9 

9 

9 

9 9 

BTXT.ANH. 

.AS. 

•AAGOS+ 

9 Y9R 

Y9 

Y9Z - 

9 0 

9 

9 

BTXT.ANA. 

.AQ. 

•AAAAAA 

9 Y9Q 

Y9 

Y9YYYY 

9 0 

9 

9 9999 

BTXT.ANS. 

.AY. 

•AAAAAA 

9 Y98 

Y9 

Y9YYYY 

9 

9 

9 9999 

BTXT.AOG. 

• AJ. 

•AA.ADR 

9 Y99 

Y9 

Y9 

9 

9 

9 

BTXT.AGP. 

• AS. 

•AA.CAW 

9 Y99 

Y9 

Y9 

9 

9 

9 

BTXT.AOG. 

• A8. 

• AAX.EX 

.9 Y98 

Y9 

Y9 

9 

9 

9 

BTXT.AOG. 

• A8. 

.AAT.SS 

9 Y90 

Y9 

Y9 

9 

9 

9 

BTXT.AOG. 

• A8. 

•AA.DEV 

9 Y9Q 

Y9 

Y9 

9 0 

9 

9 


BOJ A6GACADAAAAGA4ABE 
8-YQ 9ZQY9-YQYZQ Q8Q 
99 09 09 9 999 

6PKB6S6WB039KG5HJAEA 
9 9 8 9-9 9 YYZQ 

9 9 

50B0JK6/G9KA5ZADB0JB 
-8-Y8 89 Y Q98-Y8 
9 9 9 9 0 9 9 

*A44AHAH.A4UKG5H5HEA 
Y 8Z0Y9 Y 8 9 ZQ 
9 9 

6.6 FK G5H5HEA3SAJ OYGA 
Z 9 ZQ -Y ZY 
9 

FFFFB0JC6ABEAAFJFJB0 
98988—Y8 88QY998988- 
9 9 999 9 

6M5HKE6P5BKE6W5KKE6E 
Z 9ZY98 9 R 

9 0 

+NAHA00DG+16AA0YGNAH 
YYZ-4 9Z 8-Y 99-9 

9 9 

6BG010HFAHHAAB+EAHDA 
QZ 8RQ9-0QY9 YYZQY 
0 9 9 9 9 

AAAADAOJAAAAAAAAAAAA 
YYYY9Y98YYY9YYYYYYYY 
9999 9 999 99999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

.CC..X.EXP.CC..X.ACT 


•XXXXXX.LINKA. 

Y 

9 

.XXXXXX.CSWCCW.CSW.X 


P.SNS.XX.ACT.LOG.XX. 


.0.ON.FOR.LOOP.ON.XI 


ICE.RDY.SHD.HAVE.••• 


ACGCEEB0JG58ED1AG-3F 
Y9999Q8-Y8 -Q pZ Q 
9 Z9 9 Z 

3SA0JDGA3FAKAHG03HBE 
-♦Y9ZY QZYY9Z 8Q 
Z 9 99 

5UB0JB50KB6S6TBK39AH 
8-Y8 Y 9 8 9-8 -9 

9 9 9 9 9 

3SA.0YGA4KKB6.6CKG5H 
ZY 8 9 Z 9 


48 KB 6. 6CKG5H5HEA3SKA 
Y 9 19 OZQ Y 

9 

JC6DE46JGA54EAJAG-40 
Y8 R- 8ZQ 9-QZ0Z 
9 9 Z 

5BB0JM6PAB0YGA5ADE0Y 
Q8-Y8 8-9 ZY Y-Q 
99 9 9 Z 

AAGA5SACABACAFHA5HGC 
QYZY 8ZQY9ZQY9-8 09Q 
09 9 09 09 9 Z 

0AG05+EA0AG.5UFA5GG7 
♦YZ* -QY+YZ 8ZQ 89 
9 - 9 9 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 


• ADR.XXXXXX.XIOA. • • » 
Y 
9 


XXXXXXX.XXXXXXXX.EXP 


XXXXXX.XXXXXX.XXXXXX 


OT.SS.l.ON.FOR.TI0.S 
8 


*.CDS.IN.R1T......CD 

8 


♦J6MBEACFNFM81900017 
Y 88QY99898 
9999 9 9 

AHEHEHKG6W5H81900018 
Y99 9 98 

9 9 

AAGA4BKB6.6F81900019 
QYZY Z 9 Z 
09 

5AEA3SADAAGA81900020 
QZQ -9QYZY 
0 09 

6FAEAD0YGA4D81900021 
8Q9-9 ZY Q 
0 0 

KC5HSABEADEH81900022 

8 8Y8QY89 

9 9999 

GO10B0066DB081900023 
Z 8-+9 08- 
9 9 

BOUA6BBBEAOA81900024 
8-9Q Q8QQY+Y 
9 9 099 9 9 

ADODGAS0FA0Z81900025 
-9-ZZY Z-Y 


AAAAAAAAAAAA81900026 

YYYYYYYYYYYY 

999999999999 

.81900027 


81900028 


81900029 


ACTEX P.SNS.X81900030 


.TST.XXXX.SE81900031 


I0.L00P.MAKE81900032 


S.IN.R2T.••.81900033 
8 


DATE 15JUN67 ID F81$-0 
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BTXT.A07. 

• A 8 . 

•AA..CD 

9 Y9 

Y9 

Y9 

9 

9 

9 

BTXT.APX. 

• A 8 » 

•AA07M+ 

9 Y98 

Y9 

Y9 + 0 

9 9 

9 

9 

BTXT.APP. 

. A 8 . 

• AAYGA7 

9 Y9Z 

Y9 

Y9 ZQ 

9 

9 

9 9 

BTXT.APG. 

• AA. 

•AAAAAA 

9 Y9Q 

Y 8 

Y9RYYY 

9 

99 

9 999 

BTXT.APB » 

• A 8 . 

•AAAAA. 

9 Y9 

Y9 

Y9YYY 

9 

9 

9 999 

BTXT.AQA. 

• AB. 

•AAU/C/ 

9 Y9Q 

Y9 

Y998Q8 

9 Z 

9 

9 9Z9 

BTXT.AQQ. 

• A 8 . 

•AABBEA 

9 Y9Z 

Y9 

Y98QQY 

9 

9 

9 99 9 


S.IN.RP3AJAFAA.UI0.F 
Y9QQ9Y 
9 19 

07HPCBDBDKBBMBPPA787 
♦ - 8 QQQQ 9QYQY 9 
9Z Z Z Z 

4B.7QK F7R7QAJBHG4KA0 
8 - 080 0ZYQ09 Y 

Z 9 

AAA7G. 

YYY 8 Q 

99991 

PREVIOUS.HANG.UP.DET 


B0J4CBB0J.CFBOJECFBA 
8-Y8QR8-Y QY8-YZQY-Y 
9 9Z 9 Z 9 Z9 

0AB0AABMG4GAAAHMBABH 
+Y8-Y9QY9 9Y9Y9 -YQO 
99 Z9 99 91- 


ROM.DEVICE.XXXXLEA.J 
8 Q- Z 
99 

BLOCWAIBWADKWF-F-AFA 
8ZZ890889Q889 9 8 Y 
9-09 9 

C7HB0MK7CFA0YE+2BBA0 
9 98-Z8 Q-9 Z Q-Y 
9 9 Z 9 


ECTEDAA.BHGA 8 HBD 8 DBJ 
Y- QOZQ R—9 8 —Y 
9 Z^ 9 

I 

8DB0D5BMAA79GA8QKED2 
88-98QY-Y ZQ Z 9 Q 8 
9 9Z9 91 

KCBBBGE.70E.80F.BHAA 
9QQQQZ 8 Z 9- QOZY 
ZOZO 9 Z- 9 


FGA7SQGH00SD81900034 
-ZY 89QR+ 8 R 
9 9 

AG—7MFA79 AAOS1900035 
YZ Z-Y -Y 
9 


Y G07 MAAAAAAA81900036 
Z ZYYYYYYY 
9999999 

.81900037 


8 - AA7 9 G A 8 B BO 8190 0038 

-Y ZY 88 - 
9 

DAB0JSD0BU8-81900039 
QY8-Y9Q8-9 
Z 9 Z 

AY AAAAAJAHH081900040 
Y9ZQY9ZYY9R+ 

9 99 99 


BTXT.AKO. 

. A 8 . 

•AAHAAA 

9 Y 8 - 

Y9 

Y99YYY 

99 

9 

9 999 

BTXT.ALH. 

.AS. 

•AAP.CD 

9 Y89 

Y9 

Y9 

99 

9 

9 

BTXT.AL.. 

• A 8 • 

.AAR.OF 

9 Y 8 

Y9 

Y9 

99 

9 

9 

BTXT.ALH. 

• A 8 • 

.AAYT.F 

9 Y 8 R 

Y9 

Y9 8 

990 

9 

9 

BTXT.ALA. 

. A 8 . 

•AA.FRO 

9 Y 8 Q 

Y9 

Y9 

990 

9 

9 

BTXT.ALY. 

. A 8 . 

•AA.UNT 

9 Y 8 

Y 9 

Y9 

99 

9 

9 

BTXT.AMJ. 

. A 8 . 

• AAG.TE 

9 Y 8 Y 

Y9 

Y9 

999 

9 

9 


AAAADAAAAAKHHAAAAAAA 
YYYY9YYYYY8R9YYYYYYY 
9999 999999 9999999 

S•IN.RDRC.HPRTMAKE.R 
8 8 

.LOADER.DEV ICE.REMOV 

ROM.THE.LOADER.HPR.D 

NT.OF.REMAINING.TEST 

IL.A.MSG.REQUESTS.TH 

ST.DECKS.INTO.RDR.HP 


DAAA.PLACE.APPROX.10 
9YYY 
999 

DYTEOF.ON.REMOVE.CDS 
8 


E.THE.REMAINING.TEST 


0.NOPRO.AND.PLACE.CD 


.DECKS.SAVE.REMAINI N 


EM.TO.BE.PUT.IN.HPR. 


R.AND.MAKE.RDR.RDYTE 
8 


0.VALID. SCRAB1900051 

.FROM.ST ACKE81900052 

.DECKSTIF.AN81900053 
8 

S.RUN.OUT.IN81900054 

G.TEST.DECKS81900055 

PUT.REMAININ81900056 

OF.GN.RTN.BY81900057 


BTXT.AQJ..A 8 ..AA7HA. 
9 Y9Y Y9 Y9 ~Z 
9 9 9 


8K+.7JAKBHA2AH.ABFEA 
Y YZ0QZZ8Y9 QQQZQ 
Z 99 ZZ9 0 


0F6AAA0ABDE.9BAH0DGA 
Q 8 YYQ YQQZ 0-9 9ZQ 
19999 919 9 


8 BE.BOBOBAGG81900041 
-Z Q98 9YQQ 
Z 9 9ZZ 


BTXT.AMH..A4..AAPASS ED.REMOVE.ALL.CDS.IF 

9 Y 8 R Y9 Y9 
99 9 9 


•ANYTFROM.STKRSCSTKR 
8 8 


SCREADER....81900058 
8 


BTXT.AQQ. 

• AS. 

•AAAHOJ 

9 Y9 

Y9 

Y9-9 Z 

9 

9 

9 

BTXT.AJA. 

• A3. 

•AABOAA 

9 Y 8 Q 

Y9 

Y98-Y9 

999 

9 

9 9 

BTXT.AJH. 

. A 8 . 

•AAODGA 

9 Y 8 Z 

Y9 

Y9 9ZQ 

99 

9 

9 9 

BTXT.AJA. 

• A 8 . 

•AA80+. 

9 Y 8 Y 

Y9 

Y9 

99 

9 

9 

BTXT.AJH. 

• A 8 . 

•AABHG4 

9 Y80 

Y9 

Y9Q-9 

99 - 

9 

9 Z 

BTXT.AJO. 

• A 8 . 

•AAAQGO 

9 Y 8 

Y9 

Y9Y9Z 

99 

9 

9 9 

BTXT.AKY. 

• AB. 

•AA37+A 

9 Y89 

Y9 

Y9 9 Y 

99 

9 

9 9 

BTXT.AK-. 

• A 8 . 

•AABAPQ 

9 Y 8 

Y9 

Y90Y90 

99 

9 

9 9 

BTXT.AKH. 

. AB. 

.AAAAAA 

9 Y 8 - 

Y9 

Y9YYYY 

99 

9 

9 9999 


GA9QB0DEDAA.BHGA80B0 
ZQ 98-98QR- QOZQ 8 
9 9 9Z Z- 9 9 

DLB0E.80E.70FABHKCBB 
Q98 Z 91 8 -YQO 9QQ 
Z 9 9 Z- ZO 

8SEA0FSAAJ0ABDAKBQEA 
8 ZQ Q 8 YYY YQ ZOQZZQ 
0 Z9999 9Z Z 0 

BHHJ AAH2BHA3AA+2BHIJ 
Q-0YY9R9Q-Z9Y9 9Q-0Y 
Z 99 Z 9 Z 9 

ACBBGA90ABBBGA96AJAH 
-9QQZQ Y-9QQZQ ZYY9 
ZO 9 9 ZO 9 99 

90AJAAG090AJAHG09YAJ 
-ZYYQZ -ZYY9Z ZY 
999 99 9 

50F0+CAEAAA0ADFABJB0 
♦- 9ZRYQZZY9ZQQY8- 
99 9 ZZ99 

JAAAKAPQJAAA3APQJAAA 
YYY9 Y90YYY99Y90YYY9 
999 9 999 9 999 

AAAAAAAAAAAAAAAGAAAA 

YYYYYYYYYYYYYYY8YYY9 

9999999999999999999 


AA79GA80KED2DFB0USDQ 
-Y ZY Y 9Q8Q08-99Q8 
9 Z Z 9 Z 

BGAAAYA AAAAJAHH07HA. 
QQZYY9ZQY9ZYY9R+ -Z 
ZO 99 99 99 

OFWAAA1ABDE.93AH0DGA 
Q 8 YYQ YQYZ 0-9 9ZQ 
Z999Z 919 9 

AAAA0EGA9FAH0EGABFAD 
Y9-Q 9ZQ Q-9 9ZQQ9-9 
9 9 9 Z 9Z 

KABFBBKCBBBCHJACCKBL 
YQQQQ 9QQQQ0YY9Z9QY 
9Z0Z0 ZOZO 99 Z 

AAG09YAJAQG09YAAACA+ 
YQZ ZYY9Z ZQY9Z 
99 99 Z9 

U16BB0AA6BG4AAAABAPQ 
98 Y8-Y9 Y9 YYYY9Y90 
9 99 9 9999 9 

CAPQJAAACAPQJAAACAPQ 
RY90YYY90Y90YYY99Y90 
09 999 -9 999 9 

AAGGGAAAAA2131.2131A 
99888YYYYY Y 

99999999 9 


BOJ6DLBBEAOA81900042 
8-Y8Q98QQY+Y 
9 9Z 99 9 9 

9B+.7JAJBQAA81900043 
Z YZYQZ-9 
Z 

9SE.BOBA7BGO81900044 
8 Z Q9-Y QZ 
9 Z 9 Z 

0EGABFFA9DH.81900045 
9ZQQ8ZY QR 
9Z9 9 0 

IJACH.7JG4AJ81900046 
0YY9R Y9 ZY 
99 9 

6ML0HFBDF05081900047 
8 ZRRQQ 8 + ♦ 

9 0Z- 

JAAABAPQJAAA81900048 

YYY9ZY90YYY9 

999 9 999 

JAAAAAAAAAAA81900049 

YYY9YYYYYYYY 

999 99999999 

AAK0DAAAAAAA81900050 

YY 8 + 8 YYYYYYY 

999-99999999 


BRLD . 

• A 8 . 

...AAAA 

AAANEAA4AANAAAPCAAKA 

AAKJAAK/AAK/AAKAAAK 1 

AAKAAAKIDAKD81900059 

9 

Y9 

Y9Y9 

8YQ98YQ88Y908Y998Y8R 

8 Y 888 Y 8 8 Y 888 Y 8 R 8 Y 88 

8Y808Y808Y8 


9 

9 9 

999 999 99 99 999 

999 999 999 9990999 

999 999 999 

BRLD. 

.AH. 

...AAAA 

DAKD.... 



9 

Y9 

Y9Y9 

8 Y 8 Q 




9 

9 9 

9999 



BEND.AQH. 

• 9 m • 

a AA . ... 



fi 1 QAOA Z l' 

9 Y9R 


Y9 




9 0 


9 




BLOT. 

6 • •• 
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F820 2540 PUNCH FUNCTION TEST 
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l. PURPOSE 
1.1 INTENT 

F820 — PUNCH FUNCTION 1 TESTS ABILITY TO ... 

1. ADDRESS THE DEVICE UNDER TEST* 

2. ISSUE SENSE START 1-0. 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0. 

5* PROPERLY STORE CSW. 

6. RESPOND TO DIAGNOSTIC COMMANDS. 

7. RESPOND TO ALL VALID COMMANDS TO THE PUNCH. 

FB2IPUNCH FUNCTION 2 TESTS ABILITY TO ... 

1. PROPERLY RESPOND TO ALL INVALID COMMANDS ISSUED 
TO THE PUNCH. 

2. SET AND SUPPRESS INCORRECT LENGTH RECORD INDICATOR. 

3. BREAK COMMAND CHAINING WITH INCORRECT LENGTH RECORD 

OR COMMAND REJECT. \ 

4. RESET SENSE BITS WITH WRITE COMMANDS. 

5. DISTINGUISH BETWEEN COMMAND AND DATA CHAINING AND EXECUTE 
BOTH PROPERLY. 

6. PROPERLY STACKER SELECT ANY OF 3 STACKER POCKETS 
IN 360 OR 1400 PUNCH C0HPATIB1L1TY NODE. 

F822 — PUNCH FUNCTION 3 TESTS THE ABILITY TO... 

1. PUNCH ALL VALID EBDIC CHARACTERS AND INDICATE 
THE COLUHN LOCATION OF ANY ERRORS. 

ALSO ALLOWS ... 

2. READING THE DATA CARDS PUNCHED IN THE PUNCH ROUTINE. 

THIS IS UNDER CONTROL OF SECTION SENSE SNITCH 9. 


i 

i 

! 
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2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

THIS PROGRAM REQUIRES A DIAGNOSTIC MONITOR. 

DM MUST HAVE A FOUR BYTE UDT ENTRY, ONLY THE FIRST TWO BYTES ARE SHOWN 
BELOW. THE NEXT TWO BYTES MUST CONTAIN THE CHANNEL AND UNIT ADDRESS. 


P/N 640190 
PAGE 1A 



I UNIT TYPE 



I OPTIONAL FEATURE DIGIT 1 | OPTIONAL FEATURE DIGIT 2 I 

__ _ 

ZZ IBIT 0 |BIT 1 IBIT 2 IBIT 3 IBIT 4 |BIT 5 IB1T 6 I BIT T ( 
I HEX 8 I HEX 4 I HEX 2 |HEX 1 |HEX 8 IHEX 4 |HEX 2 (HEX 1 j 


(CARD |PUNCH 151 COL 11400 I 
I IMAGE |FEED |FEAT. IFEAT. I 
I IREAD I I I 


12 CHNLI 
ISH ON | 
12821 I 


NOTE. THIS PROGRAM ALLOHS READING CARDS PUNCHED BY THIS PROGRAM 
AND REQUIRES A 2540 READER UNIT TYPE 81 4 BYTE UDT 

ENTRY TO PROVIDE THE READER ADDRESS. OTHERNISE THE PROGRAM 
HILL NOT BE EXECUTED iBY THE DIAGNOSTIC MONITOR. 


NOTE. WHEN MORE THAN ONE READER/PUNCH IS PRESENT# ON UDT ENTRIES FOR 
THE COMBINATIONS MUST NOT BE MIXED. FOR EXAMPLE# ENTER 
READER 1 / PUNCH 1, THEN REAOER 2 / PUNCH 2. 


2.2 EQUIPMENT REQUIREMENTS 

PROGRAM 1L0ADING DEVICE 
HARD COPY OUTPUT 'DEVICE 
CPU 

4 K STORAGE PLUS THAT REQUIRED BY MONITOR 
CHAIWEL 

2540 -PUNCH— UNIT TESTED 




j 

If 
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I ' ' 

ij . 3. USE PROCEDURE 

1 

I 3.1 • PROGRAM LOADING 

STANDARD AS PROVIDED BY .MONITOR 
j 3.2 PROGRAM OPERATE 

^^♦♦^♦♦♦♦♦♦♦♦.♦♦♦♦♦♦♦♦♦♦♦♦^ MOfg ************4***********4***« 

! * IF 2 CHANNEL SWITCH FEATURE IS INSTALLED# DISABLE THE * 

! 4 UNUSED INTERFACE TO PREVENT NOT READY" TO READY .STATUS • 

i * - FROM BEING PRESENTED TO THE OTHER CHANNEL. * 

1 *** 4 * ******♦♦♦**♦♦*♦*♦**♦*♦♦*******$«♦♦**♦♦♦♦♦♦**♦♦♦***♦*♦****♦ 

1 

i IF EQUIPMENT CHECK TROUBLE IS EXPERIENCED WHILE RUNNING F820 OR F821# 

j .. IT IS SUGGESTED THAT F822 BE RUN TO ANALYZE THE TROUBLE. 


A PSW RESTART EXECUTED WHILE THE PROGRAM IS OPERATING NORMALLY MAY 
CAUSE A MISLEADING HANG UP MESSAGE. THE HANG UP MESSAGE: IS ONLY VALID 
WHEN A PSW RESTART IS INITIATED DURING A SYSTEM’HANG UP CONDITION. ' 

IF MORE THAN ONE 2540 IS DEFINED IN THE DM HOT# ALL ROUTINES IN EACH ' 
SECTION WILL-BE EXECUTED ON THE FIRST-2540 ALLOCATED BY DM BEFORE ANY , 
TESTING OCCURS ON THE NEXT DEVICE. 


j 3.2.I RIPPLE PUNCH TEST F822 RTN 01 

i 39 CARDS ARE PUNCHED BY ROUTINE 01 OF SECTION F822. THE FIRST'« 

| TWELVE CARDS ARE PUNCHED AS FOLLOWS- 

1 CARD 1-80 COLUMNS OF 12 PUNCHES® 

I CARD 2-8© .'COLUMNS OF 11 PUNCHES® 

I CARD 3-8© 'COLUMNS OF © PUNCHES* ' 

| CARD 4-8© COLUMNS OF ■ 1•PUNCHES* 

1 ETC®.. 

.j CARD 12 - 80 .'COLUMNS'OF 9 "PUNCHES. 

j THE NEXT 2? CARDS ARE PUNCHED WITH A RIPPLE PATTERN OF- AIL EBCDIC 

j CHARACTERS. 

! ROUTINE ©2 OF-'THIS SECTION IS m OVERLAY WHICH CONSISTS OF'A PROGRAM 

■' THAT WILL ENABLE THE OPERATOR- TO-' VERIFY- THE- CARDS PUNCHED IN ROUTINE 

I ©1. THIS IS OPTIONAL -UNDER -CONTROL OF SECTION SENSE SWITCH 9. A 

MESSAGE;IS ISSUED BY THE PROGRAM?INFORMING THE OPERATOR THAT THE 
OPTION EXISTS. 


! 
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F820 ’ 2540 PUNCH FUNCTION TEST 


3.2.2 SECTION SENSE SWITCHES 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR 
RESPECTIVE SECTION PREFACES. THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. THE SWITCH BITS ARE 
ZERO WHEN OFF# AND ONE WHEN ON. 


I SENSE 

1 Stt. 

2 NO. 

I 0 
I 

I 1 ' 

I 

I 

I 5 


FUNCTION 


1 ROUTINE I 
I I 


ON—LOOP ON CURRENT 1-0 COMMAND 
QFF-PROCEED NORMALLY 


I ROUTINE I 
1 ALL I 


ON—LOOP ON CURRENT SIO-TIO COMMAND 
OFF-PROCEED NORMALLY 

♦ SEE FURTHER USAGE BELOW WITH SS 11 12 OR 13 

ON—EXECUTE MANUAL INTERVENTION RTNS IN F820 
RTNS 13# 14# AND 15. OR EXECUTE STACKER 
SELECT RTNS IN F821# RTNS 12 AND 13. 
OFF-BYPASS ABOVE ROUTINES 


I ROUTINE I 
I ALL I 

I I 

I F820 I 

I F821 I 


ON—PERFORM MANUAL -OFF LINE- RTN IF SS 5 ON. 
OFF—BYPASS OFF LINE ROUTINE 


I—- 

I ■ 9 

I 

1 

i n 

i 

i 

I 12 

I 

I ■ 

I—- 
I 13 
I 


ON—ALLOWS CARDS PUNCHED IN ROUTINE ©1 TO BE 
READ AND COMPARED FOR VERIFICATION. 
OFF-PROCEEDS NORMALLY 

ON—LOOP STACKER SELECT POCKET 1 
OFF-DO NOT LOOP STACKER SELECT POCKET 1 

♦ IF SSI ♦ SS11 ON-UGHT SIO TIO LOOP STKR 1 

ON—-LOOP STACKER SELECT POCKET 2 
OFF-DO NOT LOOP STACKER SELECT POCKET 2 

♦ IF SSI * SS12 ON-TIGHT SIO TIO LOOP STKR 2 

ON—LOOP STACKER SELECT POCKET 3 
OFF-DO NOT LOOP STACKER SELECT POCKET 3 
♦IF SSI + SS13 ON-TIGHT SIO TIO LOOP STKR 3 


I F820 I 

I RTN 14 I 

I F822 I 

I RTN 02 1 

I I 

I F821 I 

IRTN 12-131 
I I 

I F821 I 

IRTN 12-13! 
1 I 

I F821 I 

IRTN 12-131 
I I 



3.3 HALTS 

3.3.1 NORMAL HALTS 

F820 

IF SENSE SWITCH 5 IS ON, A HALT WILL OCCUR AFTER AN OPERATOR 
INSTRUCTION, TO MAKE THE PUNCH NOT READY. 

IF SENSE SWITCHES 5 AND 8 ARE BOTH ON# A HALT Willi OCCUR AFTER AN 
OPERATOR INSTRUCTION TO MAKE THE PUNCH NOT OPERATIONAL. 

IF SENSE SWITCH 5 IS ON, A HALT WILL OCCUR AFTER AN OPERATOR 
INSTRUCTION* TO MAKE THE PUNCH OPERATIONAL AND READY. 


j , 

i ■ ' ' is j 

i ■ ■ 
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F821 

IF THE STACKER SELECT ROUTINES ~12 AND 13- ARE EXECUTED* A HALT 
WILL OCCUR AT THE START AND COMPLETION OF EACH TEST. THE FIRST 
HALT ENABLES PREPARING THE PUNCH FOR THE STACKER SELECT TEST AFTER 
A MESSAGE IS ISSUED TO THE OPERATOR. AT THE COMPLETION OF EACH 
TEST A MESSAGE IS ISSUED INSTRUCTING THE OPERATOR TO CHECK FOR A 
STACKER SELECT FAILURE. 

F822 

A HALT OCCURS AFTER AN OPERATOR INSTRUCTION THAT SAYS - DO NOPRO* 
EMPTY THE PUNCH STACKERS AND MAKE THE PUNCH READY. 

A HALT OCCURS AFTER THE OPERATOR IS INFORMED THAT THE CARDS PUNCHED 
BY ROUTINE 01 WILL BE VERIFIED IF SECTION SENSE SWITCH 9 IS SET ON. 

A HALT OCCURS IF SECTION SENSE SWITCH 9 IS ON* TO ALLOW THE OPERATOR 
TO REMOVE THE PUNCHED CARDS FROM STACKER PI AND PUT THEM IN THE 
READER HOPPER. 

A HALT OCCURS IF THE READER BEING USED IS THE LOADER TO ALLOW 
PROPER HANDLING OF THE TEST DECKS. 

3.3.2 ERROR HALTS 

HALTS ON ERROR PRINTOUTS ARE STANDARD AS PROVIDED BY MONITOR. 


4. PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 

NOTE...WHEN INSTRUCTED TO PLACE BLANK CARDS IN HOPPER* PUT IN A MINIMUM 
OF 300 CARDS. 


F820 -RTN BYPASSED- 
AND 

F821 THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED. 

—PLACE BLANK CARDS IN PUNCH HOPPER MAKE THE PUNCH OPERATIONAL AND READY- 
THE ABOVE MESSAGE OCCURS FOR ALL ROUTINES NOT EXPECTING INTERVENTION. 


F820 -MAKE THE PUNCH NOT READY- 

-MAKE THE PUNCH OPERATIONAL ANO READY- 

THE ABOVE MESSAGES OCCUR IF SENSE SWITCH 5 IS ON. 

-MAKE THE PUNCH NOT OPERATIONAL—OFF LINE- 

THE ABOVE MESSAGE IS ISSUED WHEN SECTION SENSE SWITCHES 3 ANO 0 ARE 
ON. PUT THE READER OFF LINE WITH THE C.E. TEST BOX* OR BY TURNING 
OFF THE 2821 METER SWITCH. THE METER SWITCH SHOULD NOT BE USED IF 
THE DML OUTPUT DEVICE IS ALSO ATTACHED TO THE 2821 ICU. 
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F820 2540 PUNCH FUNCTION TEST 


4«2 STATUS MESSAGES 

4.2.1 SAMPLE CORRECT PRINTOUT 


i 


LINE EXPLANATION 

01 THIS IS THE HEADER LINE'PRINTED BY DM. IF AN ASTERISK 

PRECEDES THE -SOD- AN ERROR HAS CAUSEO.^THE MESSAGE 
PRINTOUT» IF NO ASTERISK IS PRINTED* THE MESSAGE 
IS A RESULT OF EITHER HAYING THE CORRECT PRINTOUT 
SWITCH ON OR AN OPERATOR MESSAGE'IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF .THAT SAME 
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 
BY ANOTHER -SDO- PRINTOUT** THE -F820R- IS THE SECTION 
ID NUMBER WHERE -R~ REPRESENTS THE REVISION LEVEL OF 
THE PROGRAM. THE -OS*- IS THE PROGRAM ROUTINE NUMBER 
WHILE THE -OOD- .IS THE ADDRESS OF THE DEVICE UNDER 
TEST . 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 

BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 5 . 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE I~0 HANDLER 

SUBROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION YOU 
WANT TO LOGIC AT WILL 'BE THE NEXT ONE PERFORMED, YOU SHOULD 
RESTART THE PROGRAM WITH A SYSTEM RESET, PSW RESTART, AND 
ADDRESS STOP AT THE GIVEN ADDRESS. 

04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

m HALT <1-0 THAT MAS"ISSUED :1N THE 1-0 HANDLER SUB-ROUTINE. 

©5 THIS LINE SHOWS THE ADDRESS OF - THE CCW TO BE ISSUED BY 

A START-1-0- COMMAND. • IF CCWS ARE CHAINED,. THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN-THE CHAIN. 


- SDO F820R 08 0OI35C 000- 

- 1ST 0370- 

- ADR 001BA4 LINK- 

- ADR 001182 S10- 

- CAW 001BB8- 

- CCW 41001831 00000020- 

- CCW 00001831 90QOOO64H 

- CC 0 EXP- 

- CC 0 ACT- 

- CSW 00001BC8 08000001 EXP-* 

- CSW-00001BC8-08000001 ACT- 

- CSW 00000000 04000000 EXP- 

- CSW 00000000 04000000 ‘ACT- 

- SNS 00 EXP- 

- SNS 00 ACT- 

- LOG OO OO0OO0 ©00000 00000©- 

- SET SS 0 ON FOR LOOP ON PRESTKR CD OR 

- SS l ON ' FOR LOOP ON STACKED CD- 


4.2.2 ANALYSIS OF SAMPLE PRINTOUT 


06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 

THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 

THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 

3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN -i 

BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CODE EXPECTED, BY THE 

PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 

TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE DEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM iLI STING, FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECEIVED BY THE PROGRAM. 

NOTE...FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 

. , ONE CSW. i . 

12 THIS LINE WILL APPEAR IF THE PROGRAM RECEIVED A SECOND CSW* 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE 2540 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECEIVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 

MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON, 

A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR. 

SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP4 
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4.2.3 SAMPLE OF CARD PUNCH ERROR PRINT OUT OF SECTION F822. 

THE FOLLOWING MESSAGE IS GIVEN IN SECTION F822 ROUTINE 1, WHEN 
A PUNCH ERROR IS DETECTED# THIS DATA IS PRINTED IMMEDIATELY 
BEFORE LINE 16 OF A MESSAGE TYPE OF THE SAME FORMAT AS DESCRIBED 
IN 4#2#1 OF THIS DESCRIPTION. 


LINE MESSAGE 
01 - PUNCH ERR- 

02 - CARD IN PRESTKR STA 

03 - EXPECTED SHD BUF 


j 04 

- COL 

PUNCHES 

RD 

RD 

XU 

XL 

PAR 

ADR 

TRAN 

S' 05 

- 07 

689 

3E 

3E 

0 

1 

0 

0 

0 

i 06 

- 10 

T019 

41 

41 

0 

1 

0 

0 

0 

07 

- 22 

T58 

4D 

4D 

0 

1 

0 

0 

0 

! 08 

- 55 

068 

6E 

6E 

0 

1 

0 

0 

0 


4.2.4 ANALYSIS OF CARO PUNCH ERROR PRINTOUT OF SECTION F822. 

LINE EXPLANATION 

01 THIS MESSAGE INDICATES THAT A PUNCH ERROR OCCURRED. 

IT MAY BE DUE TO DIAGNOSTIC READ DATA OR DIAGNOSTIC CHECK 

READ INFORMATION. 

02 THIS MESSAGE TELLS WHERE THE CARD IN ERROR IS LOCATED. 

03 THIS IS THE FIRST PART OF THE HEADER WHICH IS USED 

TO EXPLAIN THE DATA OF LINES 05 THRU 08. THIS 

HEADER IS READ VERTICALLY WITH RESPECT TO LINE 04. 

04 THIS IS THE SECOND LINE OF THE DATA HEADER. AN 

EXPLANATION OF THE HEADER ABBREVIATIONS OF LINES 03 

AND 04 IS AS FOLLOWS- 

COL - THIS TELLS WHAT CARD COLUMN HAD AN ERROR. 

EXPECTEO 

PUNCHES - THIS TELLS WHAT THE EXPECTED CARD PUNCHES 
WERE FOR THE DATA IN THE SHD RD COLUMN. 

SHD 

RD ~ THIS IS THE EXPECTED HEX DATA. 

RD - THIS IS THE HEX BYTE WHICH WAS READ FROM 

THE PUNCH FOR THE INDICATED COLUMN. 

XU - THIS IS A BIT IN THE DIAGNOSTIC CHECK RD 

BYTE FOR THE INDICATED COLUMN THAT WILL BE 
A l OR A 0. IF 1, IT INDICATES THAT THE X 
UPPER CHECK PLANE WAS LEFT ON. 

XL - THIS IS THE X LOWER CHECK BIT. IF IN ERROR 

IT WILL BE A I, IF NOT IT WILL BE 0. 

PAR - THIS IS A BIT INDICATING A BUFFER PARITY 

CHECK WHEN 1. 

BUF 

ADR - THIS IS A BIT INDICATING A PUNCH BUFFER 

ADDRESS CHECK WHEN 1. 

TRAN - THIS IS A BIT INDICATING A PUNCH TRANSLATE 
CHECK WHEN 1. 


- PREVIOUS HANGUP DETECTED- 


THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANG UP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE. 
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5. COMMENTS 

5.1 LOOPING 

IN SOME CASES, YOU MAY DESIRE TO LOOP ON AN ENTIRE ROUTINE RATHER 
THAN USE THE SECTION SENSE SWITCH LOOPS PROVIDED. ONE METHOD OF 
DOING THIS IS TO MANUALLY ENTER THE NUMBER OF THE ROUTINE 
IN X04C. WHERE X STANDS FOR YOUR RELOCATION ADDRESS. THEN PERFORM 
A SYSTEM RESET-PSW RESTART, AND THE PROGRAM WILL LOOP ON THE ROUTINE. 
SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE OESIRED BITS. 

6. APPENDIX 

6.1 2540 COMMAND CODES. 


****** 44444444444444444444444444444444444444444444444444444444444444*444 

* COMMAND CODE BITS HEX 


* FUNCTION 
4 

* NO OP . 

4 TEST I/O. 

* SENSE.. . • 

* RD FD SEL R1 .. 

* RD FD SEL R2 ..... • 

* RD FD SEL RP3 . 

* RD NO FD NO SEL . • • . • 

* FD SEL R1 . 

4 FD SEL R2 . 

4 FD SEL RP3 . . 

4 WR FD SEL PI ...... 

4 WR FD SEL P2 .. 

4 WR FD SEL RP3 ...... 

4 WR FD SEL PI 1400 MODE . 

4 WR FD SEL P2 1400 MODE . 

4 WR FD SEL RP3 1400 MODE « 


0123 4567 CODE * 

.0000 0011 03 

• 0 0 0 0 0 0 0 0 DO 

• XXXX 0100 04 

. 0 0 - X XX 1 0 02 

. 0 1.- X X X 1 0 42 

. 10-1 X X 1 0 82 

. 1 1 - X X X 1 0 C2 

• 001X XX 11 23 

. 0 1 l X XXII 63 

• 1 0 1 X XX 11 A3 

.00-- 0X01 01 

.01-0 X 0 1 41 

• 10-0X01 81 

.00-1 0X01 11 

.01-1 0 X 0 1 51 

.10-1 0X01 91 


. 4 


4 WHERE X IS USED FOR OPTIONAL FEATURES 4 WHERE ALL MODIFIER 

4 OR DIAGNOSTICS, AND -INDICATES WHERE AND OPTIONAL BITS 

4 MODIFIER BITS MAY BE COMBINED. ARE IN THE 0 STATE 

*4**********************444*44444444444444444444444444444444444444444444 


6.2 2540 SENSE BYTE INFORMATION. 

*4t4i4i*4444444444444444444444444444444444444444444444444444444444444444444 

4 ONE SENSE BYTE FOR THE 2540 


MEANING 

COMMAND REJECT 
INTERVENTION REQUIRED 
BUS OUT CHECK 
EQUIPMENT CHECK 
DATA CHECK 
NOT USED 

UNUSUAL COMMAND SEQUENCE 
NOT USED 


1-UNIT CHECK IN STATUS. 

I 

I 

I 

-I 


4 *** 44 * 44***444444444444444444444444444444444444444444444444444444444444 


6.3 2540 DIAGNOSTIC INFORMATION 

***** 4 *** 4 ******** 4 ******* 4444444 * 4444444444444444444444*4444444444444444 


NONE 

NONE 

NONE 

X UPPER PLANE CHECK 


X LOWER PLANE 
PARITY CHECK 
TRANSLATE CHECK 
ADDRESS REGISTER CHECK 


44 * 4444444444444444444444444444444444444444444444444444444444444444 * 44*$4 
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2540 PUNCH FUNCTION TESTS - SECTION 1 F820 


8203 TITLE 
* . 

!£**********♦**************************♦*♦************************♦**♦** 

♦MODIFICATIONS 

♦ REVISION LEVEL 3 - THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS** 

♦ 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS-. 

♦ 2* THE PROGRAM NOW INCLUDES STANDARD ERROR MESSAGE PRINTOUTS* 

♦ 3* THE PROGRAM NOW TESTS THE RESPONSE TO ALL VALID COMMANDS 

♦ . INCLUDING 1400 COMPAT* PFR, AND COLUMN BINARY INDEPENDENT 

♦ OF WHAT FEATURES ARE INSTALLED. 

♦ 4. THE PROGRAM TESTS THE RESPONSE TO DIAGNOSTIC COMMANDS. 

♦ 5. THE PROGRAM TESTS FOR PROPER CHANNEL AND DEVICE STATUS. 

♦ ! 

♦ E.C. PREREQUISITES * 

♦ MACHINE ... NONE * 

♦ PROGRAM . . . NONE * 

♦ 

♦ USE DESCRIPTION F820* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 
*********************************************************************** 

♦ REVISION LEVEL 2 - THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS•« 

♦ 1. THE SENSE SWITCH LOOP OPTIONS IN THE PROGRAM DESCRIPTION HAVE 

♦ BEEN CORRECTED TO ALLOW PROPER ACTION. 
*********************************************************************** 
*********************************************************************** 
XF8203 START 4096 

USING **15 


*******4i*************************************************************** 

* TEST NUMBER DESCRIPTION * 

*******************************^*»*****************4^*****«********** 

*********************************************************************** 

* TEST s DESCRIPTION 


************** 

ROUTINE 01 0 

************** V 

% 

OPERATION ATTEMPTED 

A TEST 7—0 IS ISSUED TO A READY TEST DEVICE. 

EXPECTED RESPONSE " 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS T8 BE BUSY* 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 
DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 
FEATURE IS INSTALLED* THE PARTITIONING SWITCH FOR THIS 
INTERFACE MAY BE DISABLED. 

3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 
DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 
WAS PENDING IN THE CHANNEL. DEVICE OR CONTROL UNIT BUSY 
COULD INDICATE DEVICE OR CONTROL UNIT IS RESERVED TO THE 
OTHER INTERFACE, IF*THE 2 CHANNEL SWITCH FEATURE IS PRESENT 
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♦ 

* 

* 

* 

* 

* 

* 

* 0020 - 
* 

♦ • 

* 

♦ 

* 

* 

* 

* 

♦ 

* 

* ■ 

* 

* 

♦ 

* 

* 

* 0030 

* 

* 

* . 

* . 

* - 
* 

♦ 

* 

* • 

*. 

* 

* 

* - 
* 

* ■■ 

* 

♦ 0040 

* - 
♦ • 

* 

* . 

* 

* 

* . 

* 

* 

* 

* ■ 

* 

* 

* 

♦ ■ 

* . 

* 

* . . 

* 0050 

* 

* . 

* 

* 

* 

* 

* . 


************** 

ROUTINE 02 
************** 

- OPERATION ATTEMPTED 

A SENSE START 1-0 IS ISSUED TO READY DEVICE. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 (COMMAND ACCEPTED) 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 COULD BE DUE TO A PENDING CHANNEL END, OR 
A BUSY CHANNEL. 

2. IF CONDITION CODE 1 WAS SET, THE CSW MUST BE INSPECTED TO _ 
DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 
A DEVICE END WAS PENDING IN THE DEVICE. 

-OPERATION ATTEMPTED 

A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 
SENSE IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 
FROM THE PREVIOUS SENSE I/O COMMAND. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 

2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 
THE DEVICE FAILED TO PRESENT ENDING STATUS. 

> OPERATION ATTEMPTED 
ANOTHER TIO IS GIVEN. 

EXPECTED RESPONSE 

EXPECT CQNDW CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 
INTERRUPTS. 

POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 1 WITH UNIT CHECK IN THE CSW XOULD INDICATE 
A NOT READY DEVICE. CHANNEL OR DEVICE^END*INDICATES THE 
PREVIOUS TIO FAILED(TO CLEAR THEM. 

************** 

ROUTINE 03 
************** 

i- OPERATION ATTEMPTED i 

A SENSE START 1-0 IS ISSUED AND THE SYSTEM ENABLED FOR 1-0 
INTERRUPTS. 

EXPECTED RESPONSE 


EXPECT CHANNEL END DEVICE* END TOGETHER. 
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4 

4 
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4 

4 * 
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4 

4 
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4 
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4 . 

4 

♦ 

4 ’ 

4 - 

4 

4 . 

6 

4 , 

* 

4 
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POSSIBLE FAILURE CAUSES 

1# FAILURE TO RECEIVE CHANNEL iAND DEVICE';END- INDICATES THAT 
ENABLING THE CHANNEL FOR 1-0 INTERRUPTS FAILED TO BRING IN 
THE DEVICE STATUS. 

OPERATION ATTEMPTED 

TEST I-O IS ISSUED. 

EXPECTED RESPONSE 


EXPECT COND® CODE 0. 
INTERRUPTS. 


DEVICE SHOULD BE CLEAR OF PENDING 


44444444444444 
ROUTINE 04 
44444444444444 

OPERATION ATTEMPTED 

A NOP SIO IS ISSUED TO READY DEVICE® 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 WITH CHANNEL END DEVICE END STORED IN 
THE CSW. NO INTERRUPT SHOULD OCCUR. 


44444444444444 
ROUTINE 05 
44444444444444 


4*444*444444444444*4*4444444444444444*4444444444*44444444444444444*44*4 
! ROUTINE 05 IS BYPASSED WHEN CORRECT PRINTOUTS ARE BEING OUTPUT 

* INTERRUPT^ TEST IS DEPENDE , WT ;WI>0N O^VICE BUSY .WITHOUT STACKED 
**44*44444*4444*4444444444*4444444444*4**44*44**44**4*444**444444444444 

* 0080 - OPERATION ATTEMPTED 

4 , 

FE£ ° STACK£ ^ SELECT -41- IS ISSUED. THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT. 


4 

6 

* 

4 

4 

4 

* 

4 

* 

4 

4* 

4 

4 

4 

* 

* 


EXPECTED RESPONSE 


COND. CODE 
TO CHANNEL 


0 SHOULD BE SET ON 
END SHOULD OCCUR. 


THE START 1-0. INTERRUPT DUE 


009§ - .OPERATION ATTEMPTED 


* lZ Q tS ISSUED TO A DEVICE WITH CHANNEL - END CLEARED, BUT 

DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 
TO CLEAR THE DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE .1 SHOULD BE SET ON THE TEST tJHD* THE DEVICE BUSY 
^HOULD°NoS OCCUR CSW.- INTERRUPT DUE TO DEVICE END 


* mm - OPERATION ATTEMPTED 


A ; PUNCH FEED STACKER SELECT ! 
ENABLED - FOR I -INTERRUPT* 


”41- ;IS ISSUED* THE SYSTEM IS 


4 - 

4 

4 

4 

4 

4 DUO 
4 

4 • 

4 
4 
4 
' 4 
4 
4 
4 
4 
4 
4 

4 0120 
4 
4 
4 

4 

4 - 
4 

4 , 

4 

4 - 

4 0130 

4 

4 

4 

4 

4 

4 

.4 - 

* 

* - 
* 

* - 
4 
4 
' * 

4 - 

4 0140 

4 

4 - 

4 

4 

4 

4 

4 , 

4 

4 

4 0150 

4 . 

; * 

4 . 

4 

4 

4 

4 , 

4 

4 , 

4 

4 . 

4 . 

4 . 
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EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. 
TO CHANNEL ENb SHOULD OCCUR. 

- OPERATION ATTEMPTED 


INTERRUPT DUE 


A START I-O IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, 
BUT DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN 
ENABLED TO CLEAR THE DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE START I-O. THE DEVICE BUSY 
BIT SHOULD BE ON IN THE CSW. INTERRUPT DUE TO DEVICE END 
SHOULD NOW OCCUR. 


- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -41- IS ISSUED. THE SYSTEM IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. INTERRUPT 
DUE TO CHANNEL END SHOULD OCCUR* 

- OPERATION ATTEMPTED 

A HALT I-O IS ISSUED TO A DEVICE WITH CHANNEL END CLEARED, BUT 
DEVICE END HAS NOT OCCURRED YET. THE SYSTEM IS THEN ENABLED 
TO CLEAR DEVICE END WHEN IT OCCURS. 

EXPECTED RESPONSE 

COND. CODE 1 SHOULD BE SET ON THE HALT I-O. A CSW WITH NO 
BITS ON SHOULD BE STORED. INTERRUPT DUE TO DEVICE END SHOULD 
NOW OCCUR. 

4444444444***4 
ROUTINE 06 
44*44*4444644* . 

- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -41- IS ISSUED. THE SYSTEM IS 
ENABLED FOR I INTERRUPT# 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O. INTERRUPT DUE 
TO CHANNEL END SHOULD OCCUR. 

- OPERATION ATTEMPTED 

AN INVALID COMMAND JHF3- IS ISSUED TO A DEVICE WITH A PENDING 
DEVICE END. 

EXPECTED RESPONSE 

COND* CODE 1 SHOULD BE SET ON THE START-‘I-O# CSW STORED 
SHOULD CONTAIN DEVICE END AND DEVICE BUSY* NO SENSE BITS 
SHOULD BE ON* 
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* 

* 

$ 
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A READ COMMAND IS ISSUED AND 1 BYTE IS READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND® CODE 0 SHOULD BE SET ON THE START 1-0* AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 

OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

CQND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 


- OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND i BYTE IS READ* 
ENABLED FOR 1 INTERRUPT® 

EXPECTED RESPONSE 


THE CHANNEL IS 


COND* CODE 0 SHOULD BE SET ON THE START I-O, AND AFTER 
TRANSFERING 1 BYTE OF 'DATA, A CHANNEL .AND DEVICE END 
INTERRUPT SHOULD OCCUR* 

■ OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT® THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I«0* . A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT* 

OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND* CODE 0 SHOULD BE SET ON THE START I-O, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS® 

EXPECTED RESPONSE 


THE CHANNEL 


COND® CODE 0 SHOULD BE SET ON THE START I-O. - A CHANNEL-END 
INTERRUPT 'SHOULD OCCUR, FOLLOWgO BY A DEVICE END: INTERRUPT. 


OPERATION ATTEMPTED 
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THE CHANNEL IS 


A READ COMMAND IS ISSUED AND 1 BYTE IS READ* 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 


COND. CODE 0 SHOULD BE SET ON THE START I-O, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND l BLANK IS SENT* 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 


THE CHANNEL 


COND. CODE 0 SHOULD BE SET ON THE START I-O. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 


- OPERATION ATTEMPTED 


A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT*! 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-O, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 


THE CHANNEL 


COND. CODE 0 SHOULD BE SET ON THE START I-^0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 


OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS 


COND. CODE 0 SHOULD BE SET ON THE START I-O, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR® 


- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT. 
IS ENABLED TWICE ;FOR: INTERRUPTS. ' 

EXPECTED RESPONSE 


THE CHANNEL 


COND. CODE 0 SHOULD BE SET ON THE START l«<0« A CHANNEL »lEND 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVtCE^ENDcINTERRUPT* 
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4* . 

* , 

♦ 

♦ . 

* . 

4 

* 

* 0530 > 

* 


INTERRUPT SHOULD OCCUR# FOLLOWED BY A DEVICE END INTERRUPT* 


OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE 2$ READ* THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

CGND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER i 
TRANSFERING 1 BYTE OF DATA* A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 


OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT® THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND® CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR# FOLLOWED BY A DEVICE END INTERRUPT* 


4c 

* 0540 . 

* 


❖ 

4 

♦ 

4* 

4c . 

# 

♦ . 

* 

4 0550 


OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND I BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT* 

EXPECTED RESPONSE 

COND* CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA# A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR* 


OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS* 


* . 

4 

♦ 0560 
4 

4 • 

# 

4 

4c . 

* 

♦ 

4* 

4* 


EXPECTED RESPONSE 

COND® CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR# FOLLOWED BY A DEVICE END INTERRUPT. 

OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE © SHOULD BE SET ON THE START 1-0* AND AFTER 
TRANSFERING 1 BYTE OF DATA# A CHANNEL .AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


* -0570.: 
4 


OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND I BLANK IS SENT® THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS® 

EXPECTED RESPONSE 

CON©. CODE 0 SHOULD BE SET-ON THE START t-:Q® A CHANNEL END 
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4 
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4 

4s 

* 
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* 

* 
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♦ 
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4 

4s 

4s 

4 

4s 0600 
♦ 

4s 

4* 

4< 

* 

4s 

4 

4s 

4) 

* 

* 0610 
4s 

4» 

4 

4 

4 

4 

4 

4 

4 

4 

4 0620 
4 
4 
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INTERRUPT SHOULD OCCURf FOLLOWED BY A DEVICE END INTERRUPTi 


• OPERATION ATTEMPTED 

A READ COMMAND IS ISSUED AND 1 BYTE IS READ. THE CHANNEL IS 
ENABLED FOR 1 INTERRUPT. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0# AND AFTER 
TRANSFERING 1 BYTE OF DATA# A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT« THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 

* OPERATION ATTEMPTED 

A DIAGNOSTIC CHECK READ COMMAND IS ISSUED WITH 1 BYTE 
REQUESTED. THIS IS DONE TO SATISFY THE REQUIREMENT THAT 
A READ MUST FOLLOW A PFR WRITE COMMAND. IF THIS WAS NOT DONE* 
COMMAND REJECT WOULD OCCUR FOR ALL FOLLOWING WRITE COMMANDS. 


EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I HD. 
DEVICE END SHOULD OCCUR IN ONE CSW. 


CHANNEL AND 


4444*444444444 
ROUTINE 10 

44444444444444 
- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1*0. A CHANNEL END 
INTERRUPT SHOULD OCCUR* FOLLOWED BY A'DEVICE END INTERRUPT. 


- OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT 4 THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START-I-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR* FOLLOWED BY A DEVICE'END INTERRUPT. 


OPERATION ATTEMPTED 

A WRITE COMMAND IS ISSUED AND 1 BLANK IS SENT* THE CHANNEL 
IS ENABLED TWICE FOR INTERRUPTS. 
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COND. CODE 0 SHOULD BE SET ON THE START 1-0, AND AFTER 
TRANSFERING 1 BYTE OF DATA, A CHANNEL AND DEVICE END 
INTERRUPT SHOULD OCCUR. 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS ENABLED FOR ONE 


EXPECT CONO. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, ANO AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS ENABLED FOR ONE 


EXPECT CONO. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. THE CHANNEL IS ENABLED FOR ONE 
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INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERIN6 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS ENABLED FOR ONE 


EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF OATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS ENABLED FOR ONE 


EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


THE CHANNEL IS ENABLED FOR ONE 


OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 

INTERRUPT. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, AND AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 


THE CHANNEL IS ENABLED FOR ONE 


EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0, ANO AFTER TRANSFERING 
ONE BYTE OF OATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


- OPERATION ATTEMPTED 

A SENSE COMMAND IS ISSUED. 
INTERRUPT. 

EXPECTED RESPONSE 


THE CHANNEL IS ENABLED FOR ONE 


EXPECT COND. CODE 0 ON THE START 1-0, ANO AFTER TRANSFERING 
ONE BYTE OF DATA, A CHANNEL AND DEVICE END INTERRUPT SHOULD 
OCCUR 


DATE 

EC 
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4 , 

* NOTE—THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SW 5 IS ON. 
*********************************************************************** 
4 

* 1080 - OPERATION ATTEMPTED 

* 

* A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 

* 

* EXPECTED RESPONSE 

* 

♦ EXPECT DEVICE END ALONE* WITH A COND. CODE 1. 

♦ 

* 

* 

♦ 

*********************************************************************** 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 
******************* ******************* 


001000 

F8203000 

SECNO 

DC 

XL4•F 8203000 * 

PROGRAM,SECTION ANO REVISION NOS. 

* 

001004 

00000000 

SNSW 

DC 

XL4•00 * 

SECTION SENSE SWITCHES 

* 

001008 

0000 


DC 

XL2 * 00* 


* 

00100A 

0000 

ICM 

DC 

XL2•00® 

INTERRUPTION CONDITION MASK 

* 

00100C 

00 

SDMF 

DC 

XL1* 00* 

SECTION DM FLAGS 

* 

00100D 

01 

NIOU 

DC 

XL1*01 * 

NUMBER OF UNIT TABLE ENTRYS 

* 

00100E 

CO 

FLAG1 

DC 

X»CO* 

EXCLUSIVE CPU 

* 

00100F 

00 

FLAG2 

DC 

X*00 8 

I/O INT ARE ERR, EXT INT TO PROG 

* 

001010 

0104000000 

INPSW 

DC 

X*0104000000* 

DISABLED, SPVSR STATE, NO PGM MASK 

* 

001015 

001760 


DC 

AL3CR0UT01) 

ADR OF 1ST ROUTINE PREFIX 

* 

001018 

0000000000000000 

EXOPSW 

DC 

XL8* 0* 

SECTION OLD EXTERNAL PSW 

♦ 

001020 

0000000000000000 

SVOPSW 

DC 

XL8•00® 

CLEAR ALL OLD PSWS 

* 

001028 

0000000000000000 

PGOPSW 

DC 

XL8* 00* 

PROGRAM OLD PSW 

* 

001030 

0000000000000000 

MCOPSW 

DC 

XL8* 00* 

MACHINE CHECK OLD PSW 

* 

001038 

0000000000000000 

100PSW 

DC 

XL8* 00* 

I/O OLD PSW 

* 

001040 

0000000000000000 

CSW 

DC 

XL8* 00* 

CHANNEL STATUS WORD 

* 

001048 

00000000 

CAW 

DC 

XL4*00* 

CAW 

* 

00104C 

000000000000000000 


DC 

XL 12* 00* 

RESERVED FOR DM USE 

* 

001055 

000000 






001058 

0004000000 

EXNPSW 

DC 

X*0004000000* 

EXTERNAL NEW PSW 

* 

001OSD 

000000 

SRET 

DC 

XL3*0* 

ADR OF EXT INTRPT ROUTINE 

* 

001060 

0000000000000000 

SVNPSW 

DC 

XL8*00* 

SUPERVISOR NEW PSW 

* 

001068 

0000000000000000 

PGNPSW 

DC 

XL8*00* 

PROGRAM NEW PSW 

* 

001070 

0000000000000000 

MCNPSW 

DC 

XL8*00* 

MACHINE CHECK NEW PSW 

♦ 

001078 

01040000 

IONPSW 

DC 

XL4* 01040000* 

1/0 NEW PSW 

* 

00107C 

00001214 


DC 

AL4CIRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 

* 

001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM USE 

* 

0010E0 

82 

UNIT1 

OC 

X* 82* 

UNIT TYPE - 2540 PUNCH 


OOlftEl 

00 

U10P 

DC 

X*00* 

OPTIONAL FEATURES BYTE 

* 

0010E2 

8000 

U1ADDR 

OC 

X* 8000* 

FLAGS ANO CHAN/UNIT ADDRESS 

* 


******************************************* 3 |'***,| [: t 4(4(4[ ******* ************ 
***** 4 ***************************************************************** 
* 2540 PUNCH OPTIONAL FEATURES ASSIGNMENT 


^ft*************************************************************^*^** 

* 


* UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 

******i*****i****************************|***************************** 


* 

1 

IBIT 

0 

BIT 1 

BIT 2 

BIT 3 

I 

BIT 4 

BIT 

5 

BIT 6 

BIT 7 

* 

S 

1HEX 

8 

HEX 4 

HEX 2 

HEX 1 

I 

HEX 8 

HEX 

4 

HEX 2 

HEX 1 

*2540 

I 82 

I 


CARD 

PUNCH 

51 COL 

I 

1400 




2 CHAN 

*PUNCHI 

I 


IMAGE 

FEED 

FEAT. 

I 

COMPAT 




SW. ON 

* 

I 

I 



READ 


I 

FEAT. 




2821 


******i*****i****************************2 ***************************** 


* 

**************************************************************, 1 *****^** 
*********************************************************************** 
♦ 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 

*********************************************************************** 
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* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 X UPPER CHECK PLANE 

* 4 X LOWER CHECK PLANE 

* 5 BUFFER PARITY CHECK 

* 6 PUNCH TRANSLATE CHECK 

* 7 PUNCH BUFFER ADDRESS CHECK 

*********************************************************************** 
*********************************************************************** 

* 2540 PUNCH SENSE BYTE 
*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR. 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

*********************************************************************** 

*********************************************************************** 

* 2540 PUNCH STATUS BYTE 
*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 

*********************************************************************** 
♦♦**♦***♦************************************************************** 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 
*********************************************************************** 

* BAL R11,ISIO LINK TO 1-0 HANDLER 

* DC XL2*0000* CONTROL SWITCHES 

* DC X* 0014® TEST NO. IN DEC EXPRESSED IN HEX 

* DC X•FO* EXPECTED COND. CODE 

* DC X«00* EXPECTED SENSE DATA 

* DC AL2(ADR-BASE+REG) ADDR. OF EXPECTED CSW IF NEEDED 

*********************************************************************** 
*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********************************************************************** 


* SWITCH 

* 0 — 


DESCRIPTION 



ISSUE AN 1-0 COMMAND 

DO NOT ISSUE AN 1-0 COMMAND 

ENABLE 

DO NOT ENABLE 

EXPECT NO INTERRUPT 

EXPECT AN INTERRUPT 

DO NOT EXPECT 2 INTERRUPTS 

EXPECT 2 INTERRUPTS 

EXPECT NO CSWS 

EXPECT A CSW 

DO NOT EXPECT 2 CSWS 

EXPECT 2 CSWS 

ALWAYS TRY TO ISSUE SENSE 

SENSE ON UNIT CHECK ONLY 
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t**********************************************^*^^^^^^^^ 

* SWITCHES USED BY 1-0 HANDLER 

*****************************************++*+W+W^+^^^^^ 

* SWITCH DESCRIPTION 


0010£6 
00106A 
OOiOEE 
0010F2 
0010F6 
0010FA 
0010FE 
001102 
001106 
OOliOA 
OOliOE 
001112 
001116 
00111A 
0011IE 
001124 
001128 
001l2C 
001132 
001136 
001ISA 
001140 
001146 
001I4C 


NO HANGUP ON INTERFACE 
HANGUP OCCURRED 
NO CSWS STORED 
ONE CSW STORED 
SECOND CSW NOT RECEIVED 
SECOND CSW RECEIVED 
DID NOT ENABLE 
ENABLED ONCE 
DID NOT ENABLE TWICE 
ENABLED TWICE 
NO SENSE DATA RECEIVED 
SENSE DATA RECEIVED 

NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 
NO ERROR DETECTED 
AN ERROR WAS DETECTED 


. .^ r 

* ' REGISTERS USED IN 1-0 HANDLER 

*************************************,*, 

* COMMENTS 

* 5 USED AS um TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED* 

4 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 9 USED As HCRK REGISTER. WILL BE RESTORED UPON RETURN. 

* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

* MUST BE USED AS LINK REG TO THIS ROUTINE 

* 12 MUST CONTAIN DEVICE ADDRESS 

4 . 

ISW DC XL2 ? 0® 

++********************+*++**+++++++++++++++++++++++ 0 + 1 ^++^^^^*. 
* 4 t************************************************************,***,**,,,* 
****** 4. * f ^ G HANDLER sub-routine * 

IHIO MVI ' ISSUF«X®QF® tCT 119 CDD Ull T * r% 


: t SHS ° MVI ISSUE,X® 9E 9 SET UP FOR HALT 1-0 

t XU MVI I0PTl+25f X*C8 ® MOVE -H- TO OPTION MSG* 

F bm MVI I0ADDR+12,X»C8» ' 

: F 164 MVI 1 LOOP»X*9E * 

, t III v t fn 25, UNC*IEYEOH BR. UNCONDITIONAL 

F ITIO MVI 1 SSUE ,X®9D 8 SET UP FOR TEST I-Q 

F 164 MVI ILOOP,X 8 9D 9 

l til MVS S0PT1+25,X *E3* ■ MOVE -I- TO OPTION MSG* 

f MVI I0ADDR*12»X *E3 8 

p HJ tctn UNC *IEYEOH BR. UNCONDITIONAL 

i Y't IS2 ° N¥l I SSUE ,X 9 9€* SET UP FOR START 1-0 

F 164 MVI 1L0QP,X*9C® 

l tH IOPTl+25,X*E2* MOVE -S- TO OPTION MSG* 

f 3M mi I0AGDR412 ,X*£2 * 

F 61C 8 002 IEYEOH MVC 1TSTN0*9(2»,€UUU SAVE TEST NUMBER 

F SLAVE SAVE REG 10 AND REG 11 

Z 5613 , ST ^ : RB,R9,I3AYIE SAVE REGS 8 AND 9 

t tjl F ■ NTSVI IS 9 SEGNO*3 SAVE RT NO® FOR HANGUP* 

Z J?*® Bmm ST RI0,HCAWIRi3! STORE COMMAND ADDRESS 

1 til r Ana toll ^HARtC^ * CLEAR WORK AREA* 

ft nit n tin *1° PCHAR+IC79) ,PCHAR CLEAH WORK AREA* 

2 It® £ 21® XC HCSWI'8tR13) vHCSWIftlS) 

E 080 i 080 XC LOGOUT!12*R14)»L0G0UTfR14» 

B ® m 0IRU>#X»80*- CHECK CONTROL SWITCH FOR NO I~ 


BR. UNCONDITIONAL 
SET UP FOR TEST I-Q 

MOVE -T- TO OPTION MSG. 

BR. UNCONDITIONAL 
SET UP FOR START 1-0 

MOVE.—S— TO OPTION MSG* 

SAVE TEST NUMBER 
SAVE REG 10 AND REG II 
SAVE REGS 8 AND 9 
SAVE RT NO® FOR HANGUP* 
STORE COMMAND ADDRESS 
CLEAR WORK AREA* 

CLEAR WORK AREA* 
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001150 

47 

10 

F 

1E4 



BC 

ALL,INOW 

BR. IF ON 

001154 

91 

CO 

F 

004 



TM 

SNSW,X *C0® 


001158 

47 

80 

F 

1A0 



BC 

NONEtJOHN 








*4t^«*4i4nK4c4 I 4.^4t4.4t4t4i«4t4i**********************4i*******************4i***««#t#* 







* 


SENSE SWITCH LOOPS 







*+*+*****+*+*+*******++++**#+*++*+*+**+*++*++*+*++++++**+*++++++++##+1,# 

00115C 

91 

80 

F 

004 


ITRY1 

TM 

SNSW,X®80* 

CHECK SECTION SENSE SWITCH 0 

001160 

47 

80 

F 

16C 



BC 

NONE ,ITRY2 

BR. IF OFF 

001164 

9C 

00 

C 

000 


ILOOP 

SIO 

0CR12) 

SIO, TIO, OR HIO 

001168 

47 

FO 

F 

15C 



BC 

UNCtITRYl 

BR. UNCONDITIONAL 

00116C 

91 

40 

F 

004 


ITRY2 

TM 

SNSWt X , 40* 

CHECK SECTION SENSE SWITCH 1 

0011T0 

47 

80 

F 

18C 



BC 

NONE,IHI 

BR. IF OFF 

001174 

9D 

00 

C 

000 


IHANG 

TIO 

0CR12I 

TEST 1-0 

001178 

47 

70 

F 

15C 



BC 

NCCO,ITRV1 

BR. IF NOT COND. CODE 0 

00117 C 

91 

40 

F 

004 



TM 

SNSW,X«40* 

CHECK SECTION SENSE SWITCH 1 

001180 

47 

80 

F 

18C 



BC 

NONE,IHI 

BR. IF OFF 

001184 

9C 

00 

C 

000 



SIO 

0(R12) 

START 1-0 

001188 

47 

FO 

F 

174 



BC 

UNC,IHANG 

BR. UNCONDITIONAL 

00118C 

58 

IE 

0 

198 


IHI ■ 

L 

R1,WTI14) 


001190 

88 

10 

0 

003 



SRL 

Rl, 3 


001194 

9D 

00 

C 

000 


GREG 

TIO 

0(R12) 


001198 

47 

80 

F 

1 AO 



BC 

CCO,JOHN 


00119C 

46 

10 

F 

194 



BCT 

RlsGREG 


0011 AO 

D7 

01 

F 

0E4 F 

0E4 

JOHN 

XC 

ISW<2J,ISW 


0011A6 

96 

80 

F 

0E4 



01 

1 SW,X , 8Q 8 


OOUAA 

92 

E7 

F 

58F 



MVI 

IACTCC45,C*X* 

MOVE IN A -X- 

0011AE 

9C 

00 

C 

000 


ISSUE 

SIO 

0(R12) 

1-0 COMMAND- SIO, TIO, OR HIO 

001132 

47 

80 

F 

1E0 



BC 

CCO,IZERO 

8R. IF COND. CODE 0 

Q011B6 

47 

40 

F 

ICE 



BC 

CC1,IONE 

BR. IF COND. CODE 1 

0O118A 

47 

20 

F 

1C6 



BC 

CC2,1 TWO 

BR. IF COND. CODE 2 

OOliBE 

92 

F3 

F 

58F 



MVI 

IACTCC45,X»F3 f 

INDICATE COND. CODE 3 

0011C2 

47 

FO 

F 

!E4 



BC 

UNC,INOW 

BR. UNCONDITIONAL 

00UC6 

92 

F2 

F 

58F 


nwo 

MVI 

IACTCC63 t X*fF2» 

INDICATE COND. CODE 2 

0011CA 

47 

FO 

F 

1E4 



BC 

UNC,INOW 

BR. UNCONDITIONAL 

0011CE 

92 

FI 

F 

58F 


IONE 

MVI 

IACTCC*5,X®F1« 

INDICATE COND. CODE 1 

001102 

D2 

07 

F 

656 D 

040 


MVC 

ICSWK B) ,HC$W(R13$ 

SAVE CSW 

0011D8 

96 

40 

F 

0E4 



01 

ISW,X , 40* 

INDICATE 1 CSW 

0011DC 

47 

FO 

F 

1E4 



BC 

UNC,INOW 

BR. UNCONDITIONAL 

Q011E0 

92 

FO 

F 

58F 


IZERO 

MVI 

IACTCC+5,X # FO* 

INDICATE COND. CODE 0 

0011E4 

94 

7F 

F 

0E4 


INOW 

MI 

I$W,X*7F* 

TURN OFF HANG UP SWITCH 

0011E8 

91 

40 

B 

000 



TM 

0(Rll),X*40® 

CHECK CONTROL SWITCH FOR NO ENABLE 

0011 EC 

47 

10 

F 

288 



BC 

ALL,I SEN 

BR. IF ON 

OOilFO 

96 

10 

F 

0E4 



01 

ISW,X 9 10® 

INDICATE ENABLED ONCE 

0011F4 

58 

9E 

0 

198 


IWAIT 

L 

R9,WTIR14> 

LOAD DM WAIT FACTOR 

0Q11F8 

88 

90 

0 

003 



SRL 

R9,3 

ADJUST 

OOliFC 

96 

80 

F 

0E4 



01 

1SW,X*80® 

TURN ON HANG UP SW 

00120G 

80 

00 

F 

673 



SSM 

MSK1 

ENABLE 

001204 

46 

90 

F 

204 



BCT 

R9,* 

WAIT 

001208 

80 

00 

F 

674 



SSM 

MSK2 

DISABLE 

00120C 

94 

7F 

F 

0E4 



N1 

ISW,X®7F ® 

TURN OFF HANG SW 

001210 

47 

FO 

F 

288 



BC 

UNC,I SEN 

BR. UNCONDITIONAL 







to********************************************************************** 







* 


ALL I-Q 

INTERRUPTS RETURN HERE 







*********************************************************************** 

001214 

49 

CO 

F 

03A 


1RETRN 

CH 

R12,I00PSW42 

COMPARE FOR CURRENT I-Q ADDRESS 

001218 

47 

60 

F 

236 



BC 

UNEO,1UIO 

BR. IF UNEQUAL 

00121C 

94 

7F 

F 

0E4 



NI 

ISW,X*7F ® 

RESET HANG UP SW 

001220 

91 

40 

F 

0E4 



TM 

ISW,X*40 9 


001224 

47 

10 

F 

266 



BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

001228 

02 

07 

F 

'■656 F 

040 


MVC 

ICSW1(8),HCSW(R15I 

SAVE CSW 1 

00122E 

96 

40 

F 

0E4 



01 

ISW,X»40 9 

INDICATE 1 CSW STORED 

001232 

47 

■ FO 

F 

270 



BC 

UNC,INT3 

BR* UNCONDITIONAL 

001236 

D2 

07 

F 

568 F 

040 

IUIO 

MVC 

WORK!8)#HCSWIR15I 


001230 

OA 

DO 





SVC 

X s DO 8 

CONVERT ; ADDRESS 

0O123E 

0003 





DC 

AL2I3I 


001240 

0039 





DC 

AL2lI00PSW41~SECN0i 


001242 

067 B 





DC 

AL2IIUNEX45—SECNOI 


001244 i 

DA 

DO 





SVC . 

X*DO« ■ 

PRINT'UNEXPECTED: INTERRUPT DEVICE 

DATE 

05 MAY 65. 


10AUG&5 

22FEB66 15JUN6? • 


■ I© F820-3 

EC 

124252 


125580 

125621 130498 ' 
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00I35C 

92 CO 

F 

52C 




MVI 

IFLAG2,X®C0® 


001360 

91 01 

F 

0E4 




TM 

ISW,X®01® 

CHECK FOR A DETECTED ERROR 

001364 

47 10 

F 

378 




BC 

ALL♦IOUTIT 

BR. IF ERROR DETECTED 

001368 

91 01 

F 

004 




TM 

SNSWtX*01® 

CHECK SECTION SENSE SWITCH 7 

00136C 

47 80 

F 

548 




BC 

NONE , 1LEAVE 

BR. IF OFF 

001370 

92 24 

F 

388 




MVI 

IFLAG1,X*24® 

SET UP FOR CORRECT PRINTOUT 

001374 

92 80 

F 

52C 




MVI 

IFLAG2# X*80* 


001378 

D2 01 

F 

61C 

B 

o 

o 

IOUTIT 

MVC 

ITSTN0+5C 2),2(Rll) 

MOVE TEST NUMBER TO PRINT 

00137E 

OA DO 






SVC 

X®DD® 

CONVERT TEST NUMBER 

001380 

0002 






DC 

AL2(2) 


001382 

061C 






DC 

AL2UTSTN0+5-SECN01 


001384 

061C 






DC 

AL2(ITSTNQ+5—SECNOJ 


001386 

OA DO 






SVC 

X®DO® 

PRINT TEST NUMBER 

001388 

64 





I FI, AG 1 

DC 

X • 64® 


001389 

09 






DC 

X • 09® 


00138A 

F617 






DC 

AL2<ITSTNO-SECNO+REGS 

ADJUST LINK ADDRESS FOR PRINTOUT 

00138C 

41 80 

0 

004 




LA 

R8,4 

001390 

IS B8 






SR 

R11 «R8 


001392 

50 BO 

F 

5A8 




ST 

RlitILINK+5 


001396 

OA DD 






SVC 

X*DD® 

CONVERT LINK ADDRESS 

001398 

0003 






DC 

AL2I3) 


00139A 

05A9 






DC 

AL2ULINK46-SECN0I 


00139C 

05A8 






DC 

AL2(ILINK*5-SECN0) 


00139E 

OA DO 






SVC 

X*DO® 

PRINT LINK ADDRESS 

0013 AO 

AO 






DC 

X • AO® 


0013Al 

10 






DC 

X®10® 


0013A2 

F5A 3 






DC 

AL2MLINK-SECN04REGI 


0013A4 

41 BB 

0 

004 




LA 

Rll*4fRiU 


0013A8 

91 80 

B 

000 




TM 

0 (Rin»X® 80 * 

BR. IF NO 1-0 COMMAND ISSUED 

0013AC 

47 10 

F 

42A 




BC 

ALL#IOCSW 

0013BO 

OA DD 






SVC 

X*DD® 

CONVERT 1-0 ADDRESS 

0013B2 

0003 






DC 

AL2(3) 


0013B4 

0670 






DC 

AL2(IOADR-SECNOI 


0013B6 

0599 






DC 

AL2(I0ADDR+5~SECN0> i 


0013B8 

OA DO 






SVC 

X*DO* 

PRINT 1-0 ADDRESS 

0013BA 

AO 






DC 

X® AO® 


0013BB 

OF 






DC 

X® OF * 


0013BC 

F594 






DC 

AL2 (1OADDR-SECNO+REG1 


0013BE 

95 9C 

F 

1AE 




CLI 

ISSUE # X*9C• 

COMPARE FOR SIO COMMAND 

0013C2 

47 60 

F 

418 




BC 

UNEQ«ICCOUT 

BR. IF NOT 

0013C6 . 

50 AO 

F 

5B8 




ST 

RIO#ICAW+5 

STORE CCW ADDR. 

0013CA 

OA DD 






SVC 

X®DD* 

CONVERT CAW 

0013CC 

0003 






DC 

AL2(3) 


0013GE 

05B9 






DC 

AL2(ICAW+6-SECN01 


0013D0 

05B8 






DC 

AL2IICAW*5-SECN0l 


0013D2 

OA DO 






SVC 

X*DO® 

PRINT CAW 

0013D4 

AO 






DC 

X* AO* 


0013D5 

OB 






DC 

X * OB * 


0013D6 

F5B3 






DC 

AL2UCAW-SECN0+REGI 


0013D8 

D2 02 

F 

5C6 

P 

5C2 


MVC 

IBLAH+1(3 5 #ICCW 

MOVE -CCW- TO MESSAGE 

0013DE 

92 16 

F 

413 




MVI 

ICNT»X®16® 

ADJUST COUNT 

0013E2 

D2 07 

F 

568 

A 

000 

ICWOUT 

MVC 

WORKl8)# OlR10I 

MOVE CCW TO WORK AREA 

0013E8 

45 90 

F 

3FC 




BAL 

R9#ICOUT 

BR. TO OUTPUT CCW 

0013EC 

91 CO 

A 

004 




TM 

4(R101# X *C0 ® 

CHECK FOR ANY CHAIN FLAGS 

0013F0 

47 80 

F 

418 




BC 

NONE,ICCOUT 

BR. IF NONE 

0013F4 

41 AA 

0 

008 




LA 

RIO,8CRIQI 

UPDATE TO NEXT CCW 

0013F8 

47 FO 

• F 

3E2 




BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

0013FC 

OA DD 





SCOUT 

SVC 

X * DD® 

CONVERT 

0013FE 

0008 






DC 

AL2C85 


001400 

0568 






DC 

AL2C WORK-SEGNOI 


001402 

0568 






DC 

AL2C WGRK-SECNOI 


001404 

D2 07 

F 

5CA 

F 

568 


MVC 

IBLAH+5C 8)tWORK 

MOVE TO MESSAGE 

00140A 

02 07 

F 

5D3 

F 

570 


MVC 

IBLAH-f 141 81 ,WORK*t§ 


001410 

OA DO 






SVC 

X®DO® 

PRINT 

001412 

AO 






DC 

X * AO® 


001413 

1A 





ICNT 

DC 

X* 1A® 


001414 

F5C5 






DC 

AL2S18LAH-$ECNO*REGI 


001416 

0? -F9 






BCR 

UNC $R9 

RETURN VIA REG 9 

DATE 

05MAT65 


10AU665 

22FEB66 15JUN6? 


ID F820-3 

EC 

124252 


125580 

125621 130498 
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P/N 840191 
PASS 14 




001418 

D2 

00 

F 

585 

B 

004 

ICCOUT MVC 

IEXPCC+5(&) 9 4(R11) 

MOVE EXP CC TO MESSAGE 

00141E 

OA 

DO 





SVC 

X ®D0® 

PRINT EXPECTED COND. CODE 

001420 

AO 






DC 

X*AO* 


001421 

OA 






DC 

X»OA» 


001422 

F580 





DC 

AL2 CIE XPCC-SECNQ+REGI 


001424 

OA 

DO 





SVC 

X®D 0* 

PRINT ACTUAL COND. CODE 

001426 

AO 






DC 

X ® A0® 


00142T 

OA 






DC 

X ® OA ® 


00142® 

FSB A 





DC 

AL2CIACTCC-SECNO+REG ) 


00142A 

02 

02 

F 

5C6 

f 

5BF 

IOCSW MVC 

IBLAH+1t 3),1CSW 

MOVE -CSW- .TO MESSAGE 

001430 

92 

1A 

F 

413 



■ NVI 

1CNT * X 9 1A * 

ADJUST COUNT 

001434 . 

91 

08 

B 

000 



TM 

Of RID »X*©8® 


001438 

4T 

80 

F 

45C 



BC 

NONE*IOIDI 

8R. IF NO CSW EXPECTED 

00143C 

D2 

02 

F 

SD€ 

F 

5E2 

me ; 

I81AH+23I3I«IEXP 

MOVE -EXP- TO MESSAGE 

001442 ‘ 

4® 

06 

0 

.'006 



LH 

Rft,6(Rll) 


001446 < 

40 

80 

■ F 

456 



STH 

R8tICHNGl44 


00144A 

41 

8® 

3 

008 



' LA ■ 

R8«8(R8) ' 


00144E 

40 

80 

. F 

488 



STH 

R8,lCHNG2+4• 


001452 

02 

0? 

F 

568 

•F 

■5m * 

1CHNG1 MVC 

workc 8) 9 mm 

MOVE EXPECTED CSW TO WORK AREA 

001458 ' 

45 

90 

F 

3FC 



BAL 

R9,IC0UT 

BR* TO OUTPUT EXPECTED CSW 

00145C : 

■ 91 

40 

F 

0E4 



IDI01 TM 

isy @ x @ 40® 


001460 

47 

80 

F 

474 



BC . 

NONE*I HORST 

m« IF NO CSW STORED 

001464 1 

02 

02 

f 

5DC 

F 

5DF : 

MVC 

IBLAH+23(3)11 ACT 

MOVE -ACT- TO MESSAGE 

00146A 

D2 

07 

■F 

58® 

■F 

■ 856 . 

MVC 

WORK!8)tlCSHl 

MOVE ACTUAL CSW TO WORK AREA 

0014TO 

45 

90 

F 

3FC 



BAL 

R9,ICQUT 

BR* TO OUTPUT ACTUAL CSW 

0014T4 : 

91 

04 

B 

000 



iriORST - TM 

OIRll) ,X*04® 


0014?® '■ 

47 

BO 

F 

48C 



BC 

NONE?IDID 

BR. IF NOT EXPECTING 2 CSWS 

00147C 

02 

02 

F 

5DC: 

F 

5E2 ' 

MVC 

IBLAH+23(3),IEXP 

MOVE -EXP- TO MESSAGE 

001482 

02 

0? 

F 

•58® 

F 

56S • 

1CBNG2 MVC 

worms), woax 

MOVE EXPECTED CSW TO WORK AREA 

00148® ■ 

45 

90 

F 

3FC 



BAL 

R9*1C0UT 

SR* TO OUTPUT EXPECTED CSW 2 

00148C 

91 

20 

F 

-0E4 



1010 TM 

ISW,X«20® 


001490 - 

4? 

80 

:F 

4A4 



BC 

NONEt1PAS 

BR® IF NO SECOND CSW STORED 

001494 

02 

02 

F 

5DC. 

F 

5DF ‘ 

MVC 

1BLAH423C3I V 1ACT 

MOVE -ACT- TO MESSAGE 

00149A 

02 

0? 

F 

56® 

F 

■65E 

me 

WORM 8) ,1CSW2 

HOVE CSW.TO' WORK AREA 

0014 AO. 

45 

90 

F 

3F€ 



BAL 

R9,ICOUT 


0014A4 : 

02 

00 

:F 

sm 

■B 

-005 

IPAS MVC 

IEXSNS+5C1),5{R11) 

MOVE EXP SENSE TO MESSAGE 

00I4AA 

91 

04 

! F 




TM 

ISW,X®04* 


0014AE 

4 7 

■80 

J F 

-4E§ 



®C 

NONE*IPASS 

8R. IF NO SENSE DATA RELIEVED 

001482 

OA 

DO 





SVC 

X«DD® 

CONVERT EXPECTED SENSE 

0014B4 

0001 





DC 

AL2 f11 


001486 ’ 

05£ A 





■ DC 

AL2<IEXSNS+5-SECN0) 


0014B8 r 

©SEA 





DC 

AL2IIEXSNS+5-SECN0) 


00148A 

OA 

DO 





' SVC 

.X s DO® ■ 

PRINT EXPECTED SENSE 

0014 SBC 

AO 






DC 

X®AO® 


001480 

OB 






DC 

X * 06 ® 


00I4BE 

FSE5 





DC 

AL 2 (IEXSN5-5ECN0+RE61 


0014C0 

OA 

OD 





SVC 

MOD® 


0014C2 

0001 





DC 

AL2I1) 


0014C4 

QSF 

3 





DC 

AL2tIACSNS‘>’5~SECNO) 


0014C6 

05F 5 





DC 

AL2fIAC$NS+5-$ECNQJ 


0014C8 

OA 

DO 





SVC 

X®DO® 

PRINT ACTUAL SENSE DATA 

001404 

AO . 






DC 

MAO® 


0QJ.4CB 

oe 






DC 



0014CC 

F5F0 





DC 

AL2C1ACSNS-SECNO+REGI 


0014CE 

95 

13 

F 

003 



CL I 

S£CN0*3,X®13® . 

SEE IF.IN MANUAL INTERV RTNS® 

091402 

4? 

AO 

F 

4E6 



BC ^ 

EQHI 9 IPASS 

BR IF YES® 

001406 

95 

F4 . 

F 

SEA 



CL I 

IEXSN$+5»C*4® 

SEE IF EXPECTED INTV REQ-0 

0014DA 

47 

80 

F 

4E8 



BC 

ED*IPASS 

BYPASS INTV REQD MESSAGE 

ooi 4eg - 

95 

F4 

F 

5F5 



CL I 

IAC$NS+5,C*4® 

SEE IF RECEIVED INTV REQD SN5 

0O14E2 

47 

BO 

f 

742 



BC 

EQtTELHIN ; 

BR® ro PRINT OUT INTV REQD MESSAGE 

0014E6 

95 

30 

■E 

181 



IPASS CL I 

SVSM00(R14)*X«30* 

CHECK FOR MODEL 30 

0014EA 

47: 

60 

•F 

51A 



BC 

uneq v icuro 

BR# IF NOT 

001.4EE 

D2 

m 

F 

3m 

E 

mo 

ILOGED MVC 

WORK S12 D LOGOUT UU41 

MOVE LOG OUT TO WORK AREA 

Q014F4 ' 

OA 

DO 





SVC 

x*so» 

CONVERT 

0014F6 ■. 

QO&C 





DC 

AL2I12) ' 


0014F8 

056®. 





DC 

AL2IWORR^SECNOI 


O014FA 

05?>8 





DC 

il2ItlO§lK-$ECMO) 


0014FC 

m 

01 

F 

mo 

F 

3m 

MVC 

10LOG+St 21 « WORK 

MOVE • LOG OUT : TO MESSAGE 


date mnmm mmms 22PEB66 isjun 67 j 

EC • 124252 12S5i© “ 125621 130498 
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001502 

02 05 F 603 F 56A 


MVC 

10106+8161tWORK+2 




001508 

D2 05 F 60A F 572 


MVC 

IQL0G+I5C 6)*WORK*i© 




0015OE 

02 05 F 611 F 57A 


MVC 

10LQG+22I6)#WORK+18 




001514 

OA DO 


SVC 

X*DO® 

PRINT LOG OUT 



001516 

AO 


DC 

X® AO® 




001517 

1C 


DC 

X»1C* 




001518 

F5F 8 


DC 

AL2<IOLOG-SECNO+REGS 




00151A 

91 02 F 0E4 

ICU10 

TM 

ISWfX®02* 

TEST FOR UNEXPECTED 

1-0 

INTERRUPT m 

0015lE 

47 80 F 52A 


BC 

NONE,IOPOUT 

BR. IF NOT UIO 



001522 

94 FD F 0E4 


N1 

1SW,X *FD• 

RESET UIO SWITCH 



001526 

47 FO F 1F4 


BC 

UNC,1 WAIT 

BR. UNCONDITIONAL 



00152A 

OA DO 

IOPOUT 

SVC 

X®D0* 

PRINT LOOP OPTIONS 



00152C 

CO 

IFLAG2 

DC 

X*C0* 




00152D 

36 


DC 

X * 36® 




00152E 

F620 


DC 

AL2CI0PT1-SECN0+RE6I 




001530 

OA DO 


SVC 

X®DO® 

SPACE A LINE 



001532 

AO 


DC 

X* AO® 




001533 

01 


DC 

X®01» 




001534 : 

F5A3 


DC 

AL21ILINK-SECN0+RE6) 




001538 

50 AD 0 .048 ■ 


ST 

R10,HCAW(R13) 

STORE CAW 



00153A 

91 CO F 004 


TM 

SNSW,X*CO® 

CHECK SECTION SENSE 

SWITCH 0 AND 1 

00153E 

4? 50 F ISC 


BC 

ANY,ITRY1 

BR. IF ANY ON 



001542 

91 SO F 0E4 


TM 

ISW,X®80* 




001548 

01 15 


BCR 

ALL,R5 

RETURN VIA REG 5 IF 

HANG 

- UP 

001548 

91 08 B 000 

HEAVE 

TM 

0CR11),X»08* 




00154C 

47 80 F 554 ' 


BC 

NONE,I UP 

BR. IF NO CSW EXPECTED 


001550 

41 88 0 002 


LA 

Rllt2(Rll) 

UPDATE LINK ADDRESS 

FOR 

RETURN 

001554 

41 SB 0 006 

IUP 

LA 

R11 , 6 ( R11) 




001558 

98 89 F 560 


LM 

R8,R9,1 SAVE 

RESTORE REGS 8 AND 9 

r ■ 


00155C 

0? F0 


BCR 

UNC,R11 

RETURN VIA REG 11 








* ■ 

1-0 HANDLER WORK AREA. 






m*********+****+******+*+*****m**m**********m***m&+****m+**mmm* 

00155E 



CNOP 

0,8 



'■ V 

00155E 

07 00 

BCR 

0^0 




001560 

0000000000000000 

1SAVE 

DC 

XL8»0® 




001568 


WORK 

DS 

24C 




001580 ; 

40C3C34040E740C5E7 : 

IEXPCC 

DC 

c« cc x exp« , 




001589 « 

D7 







00158A 

40C3C34040E740C1C3 

EACTCC 

DC 

C* CC X ACT® 




001593 

E3 







001594 

40C1C4D940ETE7E7E? 

IOADDR 

DC 

C* ADR XXXXXX XIO® 




001590 

E7E740E7C9D6 







0015A3 

00 


DC 

X®00® 




0015A4 



CNOP 

0,4 





0015A3 


ORG 





0015A3 

40C1C4D940E7E7E7E7 

IL INK 

DC 

C® ADR XXXXXX LINK® 




0015AC 

E7E74003C9D5D2 







001583 

00 


DC 

x *oo« 




001584 



CNOP 

0,4 





0015B3 


ORG 

*-l 




0015B3 

40C3C1E640E7E7E7E7 

ICAW 

DC 

C® CAW XXXXXX * 




G015BC 

E7E740 







0015BF 

C3E2E6 

2CSW 

DC 

C*C$W® 




0015C2 

C3C3E& 

ICCW 

DC 

e«ccw« 




0015C5 

40C362E640E7E7E7E7 

IBLAH 

DC 

C® CSW XXXXXXXX XX®.. 




0015CE 

E7E7E7E740E7E7 







0015D5 

E7E7E7E7E7E740C5E7 


DC 

C*XXXXXX EXP* ■ 




0015DE 

07 







0015DF 

C1C3E3 

IACT 

DC 

C • ACT 9 




0015E2 

C5E7D7 : 

1EXP 

DC 

C • £ XP ® . 




0013E5 

40E2D5E240E7E740C5 

I EXSNS 

DC 

C® SNS XX EXP® . 




0015EE 

£707 







0015F© 

40E2D5E240E7E740C1 

IACSNS 

DC 

C® : SNS XX ACT® 




0015F9 

C3E3 







0015FB 

40D3D6C740E7E740E7 

IDLOG 

DC 

C® LOG XX XXXXXX- X® . 




001604 ' 

E7E7E7E7E740E7 







001608 ( 

E7E7E7E7E740E7E7E7 


DC 

C 8 XXXMX XXXXXX® ’ 





DATE 05MAY65 10AUG65 22FEB66 15JUN6T 
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001752 

FFAF 



DC 

AL2C PCH3-SECNQ+REGI 


001754 

OA DA 



SVC 

X'DA • 

HALT FOR MANUAL INTERVENTION 

001756 

9D 00 

C 

000 

TIO 

0CR12) 

CLEAR PENDING INTERRUPT 

00175A 

47 FO 

F 

132 

BC 

UNC,GOMAN 


00175E 




CNOP 

QyA 


00175E 

07 OQ 



BCR 

0,0 






44444444444444444444444444444444444444444444444444444444444444444444444 





*********************************************************************** 





* ROUTINE 01- 

- ISSUE A TESTI-0 TO AN AVAILABLE AND IDLE DEVICE. 





4 

EXPECT CONDITION CODE 0. 





*********************************************************************** 

001760 

01 



ROUT01 DC 

X»01« 

ROUTINE NUMBER. 

001761 

000774 


DC 

AL3(R0UT02—SECNO) 

ADDRESS OF NEXT ROUTINE. 

001764 

45 40 

F 

690 

BAL 

RA,INIT 

BR. TO INITIALIZE 

001768 

45 BO 

F 

OFA 

BAL 

RllyITIO 

BR. TO ISSUE TIO 

00176C 

0200 



DC 

X* 0200* 

CONTROL SWITCHES 

00176E 

0010 



DC 

X»0010® 

TE ST NUMBER 

001770 

FOOO 



DC 

X•FOOO 1 

EXP COND CODE - EXP SENSE 

001772 

OA D6 



SVC 

X»D6« 

ROUTINE EXIT 

001774 




CNOP 

0,4 






n^********************************************************************* 





*********************************************************************** 





* ROUTINE 02- 

- ISSUE A SENSE SIO - 

04- EXPECT COND. CODE 0 ON THE SIO* 





4 

ISSUE A TIO EXPERT 

COND. CODE 1 WITH CHANNEL END - DEVICE 





4 

END IN THE CSW. ISSUE ANOTHER TIO AND EXPECT COND. 





4 

CODE 0. 






♦*♦♦♦*♦* 4444*4*44444444444444444444444***44*4*4***444444444444444444444 

001774 

02 



R0UT02 DC 

X e 02 8 

ROUTINE NUMBER. 

001775 

0007A4 


DC 

AL3IR0UT03-SECNO) 

ADDRESS OF NEXT ROUTINE 

001778 

45 40 

F 

690 

BAL 

RA.INIT 

BR. TO INITIALIZE 

00177C 

92 04 

F 

F58 

MVI 

CCW,X 8 OA* 

INSURE SENSE CCW 

001780 

45 BO 

F 

10E 

BAL 

RllylSIO 

BR. TO ISSUE SENSE 

001784 

4200 



DC 

X* 4200* 

CONTROL SWITCHES 

001786 

0020 



DC 

X* 0020* 

TEST NUMBER 

001788 

FOOO 



DC 

X 8 F000* 

EXP. COND. CODE - EXP. SENSE 

00178A 

45 BO 

F 

OFA 

BAL 

Rll,ITIO 

BR. TO ISSUE TEST 1-0 

00178E 

4A00 



DC 

X*AAOO* 

CONTROL SWITCHES 

001790 

0030 



DC 

X’0030* 

TEST NUMBER 

001792 

F100 



DC 

X'FIOO* 

EXP. COND. CODE - EXP. SENSE 

001794 

FF4C 



DC 

AL2 C PRDCSW-SECNO+REG) EXP. ADDRESS OF CSW 

001796 

45 BO 

F 

OFA 

BAL 

RllylTIO 

BR. TO ISSUE TEST 1-0 

00179A 

0200 



DC 

X* 0200* 

CONTROL SWITCHES 

00179C 

0040 



DC 

X•0040* 

TEST NUMBER 

00179E 

FOOO 



DC 

X 8 FQ00* 

EXP. COND. CODE - EXP. SENSE 

0017 AO 

OA 06 



SVC 

X • D6 • 

ROUTINE EXIT 

0017A2 




CNOP 

0, A 


0017A2 

07 00 



8CR 

0,0 






*********************************************************************** 





44444444444444444444444444444444444444444444444444444444444444444444444 





* ROUTINE 03- 

- ISSUE A SENSE SIO - 

-04- EXPECT COND. CODE 0 WITH CHANNEL 





4 , 

END DEVICE END INTERRUPT. ISSUE TEST 1-0 EXPECT COND 





4 

CODE 0. 






44444444444444444444444444444444444444444444444444444444444444444444444 

Q017A4 

03 



R0UT03 DC 

X»03« 

ROUTINE NUMBER 

0017A5 

0007C8 


DC 

AL31R0UT04-SECNO) 

ADDRESS OF NEXT ROUTINE 

0017A8 

45 40 

F 

690 

BAL 

RAyINIT 

BR. TO INITIALIZE 

0017 AC 

92 04 

F 

F58 

MVI 

CCW,X *04* 

INSURE SENSE CCW 

0017B0 

45 BO 

F 

10E 

BAL 

RllylSIO 

BR. TO ISSUE SENSE 

0017B4 

2 AOO 



DC 

X * 2AOO* 

CONTROL SWITCHES 

0017B6 

0050 



DC 

X * 0050* 

TEST NUMBER 

0017B8 

FOOO 



DC 

X 8 FOOO* 

EXP. COND. CODE - EXP. SENSE 

0017BA 

FF4C 



DC 

AL2«PRDCSW-SECNQ+REG) EXP. ADDRESS OF CSW 

0017BC 

45 BO 

F 

OFA 

BAL 

RllylTIO 

BR. TO ISSUE TEST 1-0 

0017C0 

0200 



DC 

X*0200 8 

CONTROL SWITCHES 

0017C2 

0060 



DC 

X* 0060 8 

TEST NUMBER 

0017C4 

FOOO 



DC 

X'FOOO* 

EXP* COND. CODE - EXP. SENSE 

0017C6 

OA D6 



SVC 

X«D6* 

ROUTINE EXIT 

0017C8 




CNOP 

OyA 



DATE 

05MAY65 

10AUG65 

22FEB66 

15JUN67 

ID 

F820K3 

EC 
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125580 
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* RDUT »"E 04- ISSUE NOP -03- EXPECT COND. CODE 1 ON THE StSSTTmTH 

CHANNEL END AND DEVICE END STORED IN THE CSW. 

* NO INTERRUPT SHOULD OCCUR* 


001TC8 

04 


R0SJT04 DC 

0017C9 

000768 

DC 

0017CC 

45 4© 

F 690 

BAL • 

001700 

92 03 

F F58 • 

MVI 

001704 

41 A© 

F -F98 ' 

LA 

001708 

45 i© 

F 10E 

BAL 

0017DC 

©ao© ; 


DC 

0017DE 

©0? 0 


DC 

0017EO 

F1Q0 


DC 

001762 

FF02 


DC 

O017E4 ' 

©a m 


SVC 

0017E6 



CNGP 

0017E6 

©7 0© 


BCR 


001TE8 ' 
001TE9 ■ 
001TEC 
0017F0 
001? F4 
001?F8 
0017FC 
001800 
001802 
001804 . 
001806 
001008 
00180C 
00180E 
00I810 
001812 
001814 . 
001818 
00181A 
001SIC 
0018 IE 
001820 
001824 : 
001826 
001828 
00182A 
00182C 
001830 
001832 
001834 
001836 
001838 
001BBC 
001836 


x#04# ROUTINE NUMBER 

AL3<R0UT05-SEC NO) ADDRESS OF NEXT ROUTINE 

R4 f INIT BR. TO INITIALIZE 

INSURE CCW TO PERFORM NO OP* 
RlOtCCW LOAD NOOP CCW ADDRESS 

TO ISSUE START 1-0 NOOP 
X«OAOO* CONTROL SWITCHES 

TEST NUMBER 
x EXP. COND* CODE ~ EXP* SENSE 

AL2?NOPCSW-SEC N0+ REG $ EXP. CSW ADDRESS 
X#D6 * ROUTINE EXIT 


ill******************************************************************** 
* «D»iTi2**M**?«r^*r******************************************** # ***** 

* R0UT,NE 0S_ i^SUE A PUNCH FEED STACKER SELECT POCKET 2 -41-. ENABLE 


05 

000848 

91 01 F 
4? 10 F 
45 40 F 

92 41 F 
45 BO F 
2A00 
0080 
F0OO 
FF3C 

45 BO F 
3C00 
0090 : 
FIDO 
FF0 A 
45 BO F 
2 ADO 
0100 
FOOD 

me 

45 80 r ' 
SCO© 

0110 
FIDO ‘ 

FFQ A 
45.BO F 
2AOO 
012 © . 
FOOD 
FF3C 

45 BO F 1 
3CQ0 ' 
013©; 


ROUT09 DC 
DC 
TM 
BC 
BAL 
MVI 
BAL ' 
DC ' 
DC 
DC 
DC 
BAL 
DC 
DC 
DC 
DC 
BAL 
DC 
DC 
DC 
DC 
BAL 
DC 
DC 
DC 
DC 
BAL 
DC 
. DC 
DC 
DC . 
BAL 
DC 
DC 


e&m ?S E re!! TEfWJPT . Exp ECT COND. CODE 0 AND CHANNEL 

fcs^u IN C»5$v« 

*”!**. IfST 1-0 BEFORE DEVICE END OCCURS. EXPECT COND. 
CODE 1 WITH DEVICE BUSY ONLY IN THE CSW. AFTER DEVICE 
BUSY HAS OCCUREO EXPECT AN INTERRUPT WITH DEVICE END FROM 
«L , ?1J. UL PUNCH UNHAND. REPEAT FOR START I—0.”*EXPECT 

wm. rs css^sr halt ! -°- expect cond - code 5 

NOTE— THI SPROUT!NE^WILL BE BYPASSED IF SECTION SENSE 


X s 09® . 

AL3IR0IJT06-SECN0I 
SNSW,X*01 ? 

ALLtSOLONG 
R4tINIT 
€€W« X *41 9 ■ 

RlltISIO 
X 8 2AOO s 
X ® 0080® 

X* FQQO® 

AL2IPFRCSW-SECNO+REGI 

Rll»ITIO 
X* 3C0G* 

X®009© 9 - 
X’FIOO* 

At 2 S DBIZ-S6CNCRREG $ 
RlltlSIO 
X 8 2A00* 

X 9 0100® ■ 

X*FOOO* . 

AL2«PFRC$W-»S6CN0*R6GI 

RlltlSIO 

X* 3C00® 

x*©rio® 

X*F100* 

AL2!DBfZ*»$ECN0*REG§ 

RlltlSIO 

X 9 2A©0® 

X® ©120 s 
X 9 FOOD 9 

AL2IPFRCSW-SECNO^REGI 

IUHIHI0 

X*3C0©« 

X*0130® 


routine number 

ADDRESS OF NEXT ROUTINE 

TEST SECTION SENSE SWITCH 7 

BR. TO BYPASS RTN IF SS ? IS ON 

8R« TO INITIALIZE 

INSURE PUNCH CCW 

BR* TO ISSUE S10 PUNCH 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND CODE - EXP. SENSE 

EXP. ADDRESS OF CSW 

BR. TO ISSUE TEST 1-0 

CONTROL SWITCHES 

test number 

EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
BR. TO ISSUE SIO PUNCH 
CONTROL SWITCHES 

test number 

EXP. COND. CODE - EXP. SENSE 

EXP. ADDRESS OF CSW 

BR. TO ISSUE START 1-0 • 

CONTROL SWITCHES 

test NUMBER 

EXP. COND CODE - EXP. SENSE 

EXP. CSW ADDRESS 

BR. TO ISSUE SIO PUNCH 

CONTROL SWITCHES 

test number 

EXP. COND. CODE EXP* SENSE 
EXP. ADDRESS OF CSW 
BR. TO' ISSUE HALT 1-0 
CONTROL SWITCHES 
TEST N U M 8 E r 


B E R 
SENSE 


DATi 05 MAY 69 10AIIS65 

EC 124252 12598© • 


timm 

129621 


.1 BMIMJ 
!3©4fS 
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2540 PUNCH FUNCTION TESTS - SECTION i F820 


* IS N 0 T PRESENT ON THE DEVICE* WHEN PFR FEATURE IS 

* NOT PRESENT AND PFR COMMANOS ARE ISSUED* THE COMMANDS 

: ARE DECODE^ is A NORMAL PUNCH FEED STACKER SELECT COHNANO 

* EXPECT COND* CODE 0 ON THE START 1-0 WITH CHANNEL END 

* AND THEN DEVICE END INTERRUPTS* 

* ISSUE ALL VALID PFR READ COMMANDS. THESE COMMANDS WILL 

* BE DECODED AS A DIAGNOSTIC READ COMMAND. 

* EXPECT COND* CODE 0 WITH CHANNEL END AND DEVICE END 

* NOTE T ”- R THIS ROUTINE BYPASSED IF PFR FEATURE DEFINED. 
*****iM**************************************************************** 

or v i no * ROUTINE NUMBER 


00193C 

09 

00193D 

000B78 

001940 

45 40 F 690 

001944 

92 C2 F F58 

001948 

45 BO F 10E 

00194C 

2 AGO 

00194E 

0265 

001950 

FOOO 

001952 

FF4C 

001954 

92 29 F F58 

001958 

45 BO F 10E 

00195C 

3EOO 

00195E 

0270 

001960 

FOOO 

001962 

FF3C 

001964 

92 C2 F F58 

001968 

45 BO F 10E 

00196C 

2A00 

00196E 

0280 

0019T0 

FOOO 

001972 

FF4C 

001974 

92 39 F F58 

001978 

45 BO F 10E 

00197C 

3E00 

00197E 

0290 

001980 

FOOO 

001982 

FF3C 

001984 

92 D2 F F58 

001988 

45 BO F 10E 

00198C 

2A00 

00198E 

0300 

001990 

FOOO 

001992 

FF4C 

001994 

92 69 F F58 

001998 

45 BO F 10E 

00199C 

3E00 

00199E 

0310 

0019AO 

FOOO 

0019A2 

FF3C 

0019A4 

92 E2 F F58 

0019A8 

45 BO F 10E 

0019AC 

2 AOO 

0019AE 

0320 

0019BO 

FOOD 

0019B2 

FF4C 

0019B4 

92 T9 F F58 

0019B8 

45 BO F 10E 

0019BC 

3E00 

0019BE 

033 0 

0019 CO 

FOOO 

0019C2 

FF3C 

0019C4 

92 F2 F F58 

00I9C8 

45 BO F 10E 

0019CC 

2 AOO 

0019CE 

0340 

G019D0 

FOOO 

DATE 

05MAY65 10AUG65 

EC 

124252 125580 


ROUT09 DC 
DC 
BAL 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MV! 
BAL 
DC 
DC 
DC 


X* 09* 

AL3(ROUTIO-SECNO! 
R4*INIT 
CCW,X*C2* 
RllylSIO 
X•2AOO* 

X* 0265* 

X * FOOD* 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR* TO INITIALIZE 
INITIALIZE CCW 
BR TO ISSUE START 1-0 
CTRL SWITCHES. 
TEST N U M I 
EXP COND CODE AND SNS. 


AL2CPRDCSW-SECM0+REG) EXP CSW ADDR 


CCW,X*29* INITIALIZE CCW 

RllylSIO BR. *0 ISSUE START I“0 

X*3E00* CTRL SWITCHES 

X* 0270* TEST N U M 

X*FOOO* EXP. COND. CODE — EXP. 

AL2{PFRCSW-SECN0+RE6) EXP CSW ADDRESS 
CCW*X*C2* INITIALIZE CCW 

R11 * ISIO BR. TO ISSUE START 1-0 

X*2A00* CTRL SWITCHES 

X * 0280* TEST N U M 

X*FOOO* EXP. COND. CODE — EXP. 

AL2(PRDCSVKSECNOFREG) EXP CSW ADDRESS 
CCW*X*39* INITIALIZE CCW 

RllylSIO BR. TO ISSUE START 1-0 

X* 3E00* CTRL SWITCHES 

X* 0290* TEST HUM 


UMBER 
- EXP. SENSE 


UMBER 
■ EXP. SENSE 


X*FOOO* EXP. COND. CODE 

AL2C PFRCSW-SECNO+REGJ EXP CSW ADDRESS 
CCW*X*D2* INITIALIZE CCW 

RllvlSIO BR. TO ISSUE START 1-0 

X*2A00* CTRL SWITCHES 

X*0300* TEST NUMBE 

X*FOOO* EXP. COND. CODE ~ EXP. SENSE 

AL2C PRDCSW-SECNO+REG) EXP CSW ADDRESS 


M B E R 
EXP. SENSE 


CCW,X*69* 

RllylSIO 

X*3E00* 

X* 0310* 
X’FOOO* 


INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

T EST NUMBE 

EXP. COND. CODE - EXP. SENSE 


AL2(PFRCSW-SECNO+REG! EXP CSW ADDRESS 


CCW,X *E2 
RllylSIO 
X* 2A00* 

X * 0320* 
X*FOOG* 


INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

test n u m 

EXP. COND. CODE - EXP. 


a ruuu w - — 

AL2(PRDCSW-SECN0*REG) EXP CSW ADDRESS 


CCW.X'79' INITIALIZE CCW 

RlltlSlO BR* TO ISSUE START 1-0 

X'3E0Q fl CTRL SWITCHES 

X* 0330* T EST NUH.BE 

X*FOOO* EXP. COND. CODE - EXP. SENSE 

AL2IPFRCSW-SECNO+REGI EXP CSW ADDRESS 
CCW,X'F2* INITIALIZE CCW 

R1UISI0 BR. TO ISSUE START 1-0 

X<2A00* CTRL SWITCHES 

X*0340* T EST NUH B E 

X'FOOO* EXP. COND. CODE - EXP. SENSE 


22FEB66 15JUN6? 

125621 130498 


ID F820-3 
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1 0019D2 

FF4C 

f Q0I9D4 

92 89 F F58 

I 0019D8 

45 BO F 10E 

1 0019DC 

3E00 

1 0019DE 

0350 

0019E0 

FOOO 

0019E2 

FF3C 

00I9E4 

92 CA F F58 

' 0019E8 

45 BO F 10E 

J 0019EC 

2A00 

I 0019EE 

0360 

0019F0 

FOOO 

0019F2 

FF4C 

| 0019F4 

92 B9 F F58 

00I9F8 

45 80 F 10E 

! 0019FC 

3E00 

I 0019FE 

0370 

| 001 AGO 

FOOO 

1 001AO2 

FF3C 

| 0G1AQ4 

92 DA F F58 

1 001A08 

45 BO F 10E 

! 001AOC 

2AQ0 

; OOIAOE 

0380 

I 001A10 

FOOO 

) ^ 001A12 

FF4C 

i • 001A14 : 

92 09 f F58 

1 001A18 ■ 

45 BO F IOE 

1 001A1C 

3E00 

| 001AiE 

0390 

1 O01A2O 

FOOO 

! 001A22 

FF3€ 

i 00IA24 ' 

92 £A F F5i 

^ 001A28 ! 

45 BO F IOE 

00IA2C 

2A00 

! ©01A2E 

0400 . 

■j ©01A3Q 

FOOO 

| 001A32 

PP4C 

■j 001A34 ' 

92 00 F ; F5S ’■ 

; 00IA38 

45 80 F IOE 

001A3C ' 

3E00 

00IA3E 

0410 

QO1A40 

FOOO 

001A42 

FF3C 

001A44 

92 FA F F5© 

D01A48 

45 B0 F IOE 

001A4C 

2 ADO 

001A4E 

0420 

j OQ1A50 

FOOO 

j 001A52 

FF4C 

1 001A54 

92 19 F F5S 

? 00IA58 

45 BO F IOE 

001A5C 

3E00 

I ■ 001A5E 

0430 

001A60 

FOOO 

001A62 

FF3C 

001A64 . 

92 C2 F F5® 

0QIA68 

45 BO F 106 

001A6C 

2A00 

001A6E 

0440 : 

! 001ATO 

FOOO 

1 001A72 

FF4C 

001AZ4 

92 ID F -FS® • 

00IAT8 

45 80 F IOE 

001 A?C - 

3 EDO 

001ATE 

0450 

1 001 ABO 

FOOO 

j 001A82 

FF3C 

001A84 ■ 

92 02. F F5® ' 


At2IPRDCS^~SECN0^RE6! 

CCW,X*89* 

RlltlSIO 
X 9 3E00* 

X* 0350* 

X* FOOO* 

AL2«PFRC$W~SECNOM*EG> 
CCWtX *CA * 

RlltlSIO 
X* 2A00* 

X * 0360* 

X 8 FOOO* 

AL2tPR0CSW~$£CN0*REGJ 
CCW ®X *89* 

RlltlSIO 
X® 3E00® 

X * 0370® 

X ® FOOO® 

AL2C PFRCSH-SECNO^REGS 
CCW®X ®DA * . 

Rll tISIO 
X 8 2A00® 

X * 0380® 

X®FOOO® - 

AL2CPRDC$y-$ECN0*REGf 
CCW,X * 09 * 

R1111SIO 
X* 3E0O® 

X 9 0390® 

X® FOOO* 

AL2SPFRe$W~5eCNO*!lgGi 

CtWsX*EA* 

RlltlSIO 
X* 2A00* . 

X * 0400 * . 

X 9 F GOO ® 

A12IPRDCSW-SECNCKREGJ 
CCWtX ® 00 8 
RllvISIO 
X® 3E00® 

X® 0410* 

X 8 IF 000 * 

AL2CPFRCSW-SECN04RESI 
CCWfX®FA* 

Ril s SSIO 
X*2A0O* 

X 8 0420* 

X 8 FOOD* 

AL2fPRDC$W-$ECN0*REG) 
CCWtX * 19® 

Rll,ISIO 
X* 3E00* 

X*O430« 

X*F000 8 

AIZIPFRCSW-SECNO^REGI 

C€W,X*€2* 

RlltlSIO 
X* 2A00* 

X*0440* 

X*FO0O* 

AL2tPRDCSW-$iCM04RgGI 
ccutxno* . 

RUt ISIO 

X*3E00* i 

X*0490* 

. I 

AL2f PFRC SW—SEC NQ4-REGJ i 
CCW*X*D2 9 


) EXP CSW ADDRESS 
INITIALIZE CCW 
BR* TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 
EXP» COND. CODE - EXP. 

) EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST N U M 

EXP. COND. CODE - EXP. 
i EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 

test nun 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START I-G 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START I-G 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP. 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP. COND. CODE - EXP® 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP* COND® CODE - EXP. : 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 
TEST NUN 

EXP. COND® CODE - EXP. 2 
EXP CSW ADDRESS 
INITIALIZE CCW 


B E R 
SENSE 


B E R 
SENSE 


B E R 
SENSE 


B E R 
SENSE 


8 E R 
SENSE 


B E R 
SENSE 


S E R 

SENSE 


8 £ R 

SENSE 


B E R 
SENSE 


8 g R 

SENSE 


8 E R 

SENSE 


DATE 05NAT65 10AUG65 

EC 124252 125580 


22FE866 19JUN6? 

125621 130498 


ID F820-3 
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001A88 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001A8C 

2A00 




DC 

X 8 2A00* 

CTRL SWITCHES 


001A8E 

0460 




DC 

X* 0460* 

TEST N U M 

B E 

001A90 

FOOO 




DC 

X 8 FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001A92 

FF4C 




DC 

AL 2 C PRDC SW-SECNO*REG) 

EXP. CSW ADDRESS 


001A94 

92 49 

F 

F58 


NVI 

CCW*X*49* 

INITIALIZE CCW 


001A98 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO ISSUE START. XrO 


001A9C 

3E00 




DC 

X 8 3E00* 

CTRL SWITCHES 


001A9E 

04?0 




DC 

X 8 0470* 

TEST N U M 

8 E 

001AAO 

FOOO 




DC 

X *F000* 

EXP. COND. CODE - EXP. 

SENSE 

001AA2 

FF3C 




DC 

AL2(PFRCSW-SECNO+REGI 

EXP CSW ADDRESS 


001AA4 

92 E2 

F 

F58 


MVI 

CCW*X'E2• 

INITIALIZE CCW 


001AA8 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001AAC 

2A00 




DC 

X* 2A00* 

CTRL SWITCHES 


001AAE 

0480 




DC 

X* 0480* 

TEST N U M 

B E 

001 ABO 

FOOD 




DC 

X 8 FOOO* 

EXP. COND. CODE - EXP* 

SENSE 

001AB2 

FF4C 




DC 

AL2 C PRDCSW-SECNO^REG) 

EXP. CSW ADDRESS 


001AB4 

92 4D 

F 

F58 


MVI 

CCWtX*4D* 

INITIALIZE CCW 


001 ABB 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001 ABC 

3E00 




DC 

X*3E00* 

CTRL SWITCHES 


001 ABE 

0490 




DC 

,X * 0490* 

TEST N U M 

B E 

001ACO 

FOOO 




DC 

f X 8 F 000 9 

EXP. COND. CODE - EXP. 

SENSE 

001AC2 

FF3C 




DC 

AL2(PFRCSW-SECNO+REGJ 

EXP CSW ADDRESS 


001AC4 

92 F2 

F 

F58 


MVI 

CCW,X*F2« 

INITIALIZE CCW 


001 ACS 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001 ACC 

2AOO 




DC 

X* 2A00® 

CTRL SWITCHES 


001 ACE 

0500 




DC 

X * 0500* 

TEST N U M 

B E 

001 ADO 

FOOO 




DC 

X'FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001AD2 

FF4C 




DC 

AL2 C PRDCSW-SECNO+REGl 

EXP. CSW ADDRESS 


001AD4 

92 59 

F 

F58 


MVI 

CCW,X*59* 

INITIALIZE CCW 


001AD8 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001ADC 

3EOO 




DC 

X 8 3E00* 

CTRL SWITCHES 


001ADE 

0510 




DC 

X 8 0510* 

TEST N U M 

B E 

001AEO 

FOOO 




DC 

X*FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001AE2 

FF3C 




DC 

AL 2(PFRC SW-SECNO+REG) 

EXP CSW ADDRESS 


001AE4 

92 CA 

F 

F58 


MVI 

CCW,X®CA* 

INITIALIZE CCW 


001 AES 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001AEC 

2A00 




DC 

X* 2A00* 

CTRL SWITCHES 


001AEE 

0520 




DC 

X 8 0520* 

TEST N U M 

B E 

001AFO 

FOOO 




DC 

X'FOOO® 

EXP. COND. CODE - EXP. 

SENSE 

001AF2 

FF4C 




DC 

AL2IPRDCSW-SECN0+RE6I 

EXP. CSW ADDRESS 


001AF4 

92 5D 

F 

F58 


MVI 

CCWtX* 5D 8 

INITIALIZE CCW 


001AF8 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001AFC 

3E00 




DC 

X*3E00® 

CTRL SWITCHES 


001AFE 

0530 




DC 

X 8 0530* 

TEST N U M 

B E 

001 BOO 

FOOO 




DC 

X 8 FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001602 

FF3C 




DC 

AL2(PFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001B04 

92 DA 

F 

F58 


MVI 

CCW,X *DA 8 

INITIALIZE CCW 


001 BOB 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001BOC 

2A00 




DC 

X 8 2A00 8 

CTRL SWITCHES 


001B0E 

0540 




DC 

X*0540 8 

TEST N U M 

B E 

001 BIO 

FOOO 




DC 

X 8 FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001B12 

FF4C 




DC 

AL2(PRDCSW-SECNO+REG) 

EXP CSW ADDRESS 


00IB14 

92 8D 

F 

F58 


MV! 

CCWtX *8D * 

INITIALIZE CCW 


00IB13 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001B1C 

3E00 




DC 

X 8 3E00 8 

CTRL SWITCHES 


001B1E 

0550 




DC 

X 8 0550* 

TEST N U M 

B E 

001B20 

FOOO 




DC 

X*FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001B22 

FF3C 




DC 

AL 2(PFRC SW-SECNO+REG1 

EXP CSW ADDRESS 


001B24 

92 EA 

F 

F58 


MVI 

CCW,X*EA* 

INITIALIZE CCW 


001B28 

45 BO 

F 

IDE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001B2C 

2A00 




DC 

X*2A00* 

CTRL SWITCHES 


001B2E 

0560 




DC 

X* 0560* 

TEST N U M 

B E 

001B30 

FOOO 




DC 

X*FOOO* 

EXP. COND. CODE - EXP. 

SENSE 

001B32 

FF4C 




DC 

AL21PRDC SW-SECNO+REGI 

EXP CSW ADDRESS 


001B34 

92 99 

F 

F58 


MVI 

CCW,X*99* 

INITIALIZE CCW 


001B38 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


0D1B3C 

3 EDO 




DC 

X*3E00* 

CTRL SWITCHES 


DATE- 

05MA75S 


I0AUG65 

22FEB66 

15JUN67 



ID 

EC 

124252 


125580 

129621 

130498 



PAGE 


R 


R 


R 


R 


R 


R 


R 


R 


R 


R 


R 
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2540 PUNCH FUNCTION TESTS - SECTION 

1 

5 

1 F820 




j 

| 001B3E 

0570 




DC 

X* 0570* 

TEST NUMBE 

R 

| 001B40 

FOOO 




DC 

X* FOOO* 

EXP. COND. CODE - EXP. SENSE 


] 001B42 

FF3C 




DC 

AL2(PFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001B44 

92 FA 

F 

F58 


MVI 

CCW,X *FA * 

INITIALIZE CCW 


\ 001B48 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001B4C 

2A00 




DC 

X • 2A00* 

CTRL SWITCHES 


1 001B4E 

0580 




DC 

X • 0580* 

TEST NUMBE 

R 

001B50 

FOOO 




DC 

X* FOOO* 

EXP. COND. CODE - EXP. SENSE 


! 001B52 

FF4C 




DC 

AL2(PRDCSW-SECNO+REG J 

EXP CSW ADDRESS 


001B54 

92 9D 

F 

F58 


MVI 

CCWt X'90■ 

INITIALIZE CCW 


001B58 

45 BO 

F 

iOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


! 001B5C 

3E00 




DC 

X* 3E00* 

CTRL SWITCHES 


i 001B5E 

0590 




; DC 

X•0590* 

TEST NUMBE 

R 

001B60 

FOOO 




DC 

X*F000* 

EXP. COND. CODE - EXP. SENSE 


001B62 

FF3C 




DC 

AL2IPFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001B64 

92 C6 

F 

F58 


MVI 

CCW tX*C6* 

MOVE A CHK RD CMD INTO CCW. 


001B68 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR TO ISSUE START 1-0 


j 001B6C 

2A00 




DC 

X * 2A00* 

CTRL SWITCHES. 


001B6E 

0595 




DC 

X* 0595* 

TEST NUMBE 

R 

001B70 

FOOO 




DC 

X* FOOO* 

EXP COND CODE AND SNS. 


001BT2 

FF4C 




DC 

AL2IPRDCSW-SECNO+REG) 

EXP CSW ADDRESS. 


001B74 

OA 06 



EXIT10 SVC 

X* D6* 

ROUTINE EXIT 


001B76 





CNOP 

0,4 



001B76 

07 00 




BCR 

0,0 



j 




4444444444444444444444444444444444444444444444J<444444444444444444444444 





♦ 

ROUTINE 10 

ISSUE ALL VALID COLUMN BINARY COMMANDS TO THE PUNCH 

m 





* 


IF THE COLUMN BINARY 

FEATURE IS N 0 t PRESENT ON 

THE 

j 




* 


DEVICE, THE COLUMN BINARY COMMANDS WILL DECODE AS A 


I 




4 


NORMAL PUNCH FEED STACKER SELECT COMMAND. 


'j 




4 


EXPECT COND. CODE 0 ON THE START 1-0 WITH CHANNEL END AND 

'j 




4 


THEN DEVICE END INTERRUPTS. 


*; 




444444444444444444*4444444444444444444444444444444444444444444444444444 

001B78 

10 



ROUT10 DC 

X*10* 

ROUTINE NUMBER 


001B79 

000BE4 



DC 

AL3(R0UT11—SECNOI 

ADDRESS OF NEXT ROUTINE 


I 001B7C 

45 40 

F 

690 


BAL 

R4,INIT 

BR. TO INITIALIZE 


001B80 

92 21 

F 

F58 


MVI 

CCW,X*21 * 

INITIALIZE CCW 


00IB84 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001B88 

3E00 




DC 

X•3E00* 

CTRL SWITCHES 


001B8A 

0600 




DC 

X* 0600* 

TEST NUM BE 

R 

001 BBC 

FOOO 




DC 

X•FOOO * 

EXP. COND. CODE - EXP. SENSE 


001B8E 

FF3C 




DC 

AL2(PFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001B90 

92 31 

F 

F58 


MVI 

CCW,X*31* 

INITIALIZE CCW 


001B94 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001B98 

3EOO 




DC 

X * 3E00* 

CTRL SWITCHES 


001B9A 

0610 




DC 

X* 0610* 

TEST NU MBE 

R 

001B9C 

FOOO 




DC 

X * FOOO* 

EXP. COND. CODE - EXP. SENSE 


001B9E 

FF3C 




DC 

AL21PFRC SW-SECNO+REG) 

EXP CSW ADDRESS 


001BAO 

92 61 

F 

F58 


MVI 

CCW,X* 61• 

INITIALIZE CCW 


001BA4 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001 BAS 

3E00 




DC 

X*3E00* 

CTRL SWITCHES 


001 BAA 

0620 




OC 

X* 0620 s 

TEST NUMBE 

R 

001BAC 

FOOO 




DC 

X*F000* 

EXP. COND. CODE - EXP. SENSE 


001BAE 

FF3C 




DC 

AL2(PFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001BBO 

92 71 

F 

F58 


MVI 

CCW,X * 71• 

INITIALIZE CCW 


001BB4 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


001 BBS 

3EOO 




DC 

X * 3E00* 

CTRL SWITCHES 


001B6A 

0630 




DC 

X* 0630* 

TEST NUMBE 

R 

001 BBC 

FOOO 




DC 

X*F000* 

EXP. COND. CODE - EXP. SENSE 


001BBE 

FF3C 




DC 

AL2CPFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


OOiBCO 

92 A1 

F 

F58 


MVI 

CCW,X *A1* 

INITIALIZE CCW 


001BC4 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


0018C8 

3E00 




DC 

X* 3E00* 

CTRL SWITCHES 


OOIBCA 

0640 




DC 

X*0640* 

T EST NU M BE 

R 

001BCC 

FOOO 




DC 

X*F000* 

EXP. COND. CODE - EXP. SENSE 


001BCE 

FF3C 




DC 

AL2tPFRCSW-SECNO+REG) 

EXP CSW ADDRESS 


001BDO 

92 B1 

F 

F58 


MVI 

CCW,X*B1* 

INITIALIZE CCW 


001BD4 

45 BO 

F 

IOE 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 


j OATE 

05MAY65 


10AUG65 

22FEB66 

15JUN67 


ID 

F 9 20-3 

j EC 

124252 


125580 

125621 

130498 
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001C68 

001C6C 

001C70 

001C72 

001CT4 

001C76 

001C78 

001C7C 

001C80 

001C82 

0Q1C84 

001C86 

001C88 

001CSC 

001C90 

001C92 

00IC94 

001X96 

001£98 

001C9C 

001C AO 

001CA2 

001CA4 ! 

001C AS 

001CAS ' 

001CAA 

OOiCAA 


001CAC 

G01CAD 

001CBO 

001C84 

001CB8 

001CBA 

001 CSC. 

001CBE 

001CC0 

001CC4 

00ICC8 

O01CCA 

OOiCCC 

OOICCE 

OOIXOO 

001CD4 

001C08 

00IX DA 

0Q1CDC 

00iCOE 

O01XEO 

O0ICE4 

00ICES 

001CEA 

001CEC 

0O1CEE 

OOiCFO 


92 41 F 

45 BO F 

3E00 

0740 

FOOD 

FF3C 

92 45 F 

45 BO F 

3E00 

0750 

FOOO 

FF3C 

92 @1 F i 
45 BO F ■ 
3E00 
0760 
FOOO 
FF3C , 
92 85 F 5 
45 -BO f «: 
3E0O 
0770 
FOOO 
FF3C 
OA D6 


CCH* X 9 41* 

RlltlSIO 
X® 3E00® 

X®0740® - 
X , FOOO® 

AL2C PFRCSW-SECNO+REGJ 
CCW#X®45® 

RllyISIQ 
X® 3E00® 

X® 0750® 

X* FOOO 8 

AL2IPFRCSW—SECNO^REG) 
£CW»X , 81* 

RllylSIO 

X*3E00® 

X®0760® 

X®FQ0O® 

AL2 C PPRCSW-SECNO+REGI 
CCW*X *85 8 
RllylSIO 
X® 3E00* 

X®0770® 

X® FOOO® 

AL2C PFRCSW-SECNO+RESl 


INITIALIZE CCW 

BR® TO ISSUE START 1-0 

CTRL SWITCHES 

T E . S T NUMBE 
EXP. COND. CODE - EXP® SENSE 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR® TO ISSUE START I-G 
CTRL SWITCHES 

TEST numbe 
EXP. COND. CODE - EXP. SENSE 
EXP CSW ADDRESS 
INITIALIZE CCW 
BR. TO ISSUE START 1-0 
CTRL SWITCHES 

TE ST NUMBE 
EXP. COND, CODE - EXP. SENSE 
EXP CSW ADDRESS 

initialize CCW 

8R. TO ISSUE START 1-0 
CTRL SWITCHES 

TEST numbe 

EXP. COND. CODE - EXP. SENSE 
EXP CSW ADDRESS 
ROUTINE EXIT■ 


12 

000E3C 
92 C6 F 
45 BO F 
2 AGO 
0780 
FOOO 
FF4C 
92 D6 F 
45 BO F 
2A00 
0790 
FOOO 
FF4C 
92 £6 F 
45 BO F 
2A00 
0800 
FOOO 
FF4C 
92 Ffe F 
45 BO F 
2A00 
0810 
FOOO 
FF4C 

92 CE F I 


r;;;;i;rnrr~s*:rr;:;rr;;;s:^;rrc;Krs:rs::s:;r?rT;r**** 

ISSUE ALL VALID SENSE COMMANDS TO THE PUNCH* EXPECT 

: srrs izjf 

: wul^ecodeTs s E ;s E E c A SMSL£L NO E xJ E crcoN E o D ’ 

Ro»nnrH* 3 ** ; ^^ 

uu a 12’ ROUT INF niimred 


DATE 05MAY 65 10AUGSS 

EC 124252 125580 


ROUTl2 DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 
BAL 
DC 
DC 
DC 
DC 
MVI 


22FEB66 15JUN67 

125821 13049® 


*’*?' ROUTINE NUMBER ." "" * 

cru < x?rIl 3 " SECN0> address of next routine 

bi. initialize CCW 

xUlnnS BR * T0 ISSUE START 1-0 

* 2AD0 CTRL SWITCHES 

* TEST NUMBE 

?, Tp2° EXP. COND. CODE - EXP. SENSE 

AL2IPRDCSW-SECNO+REG) EXP. CSW ADDRESS 

INITIALIZE CCW 

X. ilnnJ BR * 10 ISSUE START I-0 

* 2A00 CTRL SWITCHES 

X'FOOn' TEST NUMBE 

* ' EXP* COND. CODE - EXP. SENSE 

rru !??^ SM " SECN0+RW) EXP * csw address 

INITIALIZE CCW 

BR * TO ISSUE START I-G 

* CTRL SWITCHES 

X 0800® TES T MiSMssr 

«IS: ESTUS.- * ! 

INITIALIZE CCW 
BR * TO ISSUE START 1-0 
X 2A00® CTRL SWITCHES 

LvnlL LJ ST NUMBE 


^2?prdcs^secn°.regi til: STJSSi 

CCW»X*CE* INITIALIZE CCW 


EXP* SENSE 


ID F820-3 
PAGE 20 


> O 
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001DAA 

0930 



DC 

001DAC 

FOOO 



DC 

001DAE 

FF4C 



DC 

001DB0 

91 01 

F 

0E1 

TM 

001DB4 

47 10 

F 

E38 

BC 

001DB8 

92 F4 

F 

F58 

MVI 

001DBC 

45 BO 

F 

10E 

BAL 

001DC0 

2A00 



DC 

001DC2 

0940 



DC 

001DC4 

FOOO 



DC 

001DC6 

FF4C 



DC 

001 DCS 

92 34 

F 

F58 

MVI 

001DCC 

45 BO 

F 

10 E 

BAL 

001DD0 

2AOO 



DC 

001DD2 

0950 



DC 

001DD4 

FOOO 



DC 

001DD6 

FF4C 



DC 

001D08 

92 54 

F 

F58 

MVI 

001DDC 

45 BO 

F 

10E 

BAL 

001 DEO 

2A00 



DC 

001DE2 

0960 



DC 

001DE4 

FOOO 



DC 

001DE6 

FF4C 



DC 

001DE8 

92 74 

F 

F58 

MVI 

001DEC 

45 BO 

F 

10E 

BAL 

001DF0 

2A00 



DC 

001DF2 

0970 



DC 

001DF4 

FOOO 



DC 

001DF6 

FF4C 



DC 

001DF8 

92 94 

F 

F58 

MVI 

001DFC 

45 BO 

F 

10E 

BAL 

001E00 

2AOO 



DC 

001E02 

0980 



DC 

001E04 

FOOO 



DC 

001E06 

FF4C 



DC 

00IE08 

92 B4 

F 

F58 

MVI 

001 toe 

45 BO 

F 

10E 

BAL 

001E10 

2A00 



DC 

00IE12 

0990 



DC 

001E14 

FOOO 



DC 

001E16 

FF4C 



DC 

001E18 

92 D4 

F 

F58 

MVI 

001E1C 

45 BO 

F 

10E 

BAL 

001E20 

2A00 



DC 

001E22 

1000 



DC 

001E24 

FOOO 



DC 

001E26 

FF4C 



DC 

001E28 

92 14 

F 

F58 

MVI 

001E2C 

45 BO 

F 

10E 

BAL 

001E30 

2A00 



DC 

001E32 

1010 



DC 

001E34 

FOOO 



DC 

00IE36 

FF4C 



DC 

001E38 

OA D6 



DONRTN SVC 

001E3A 




CNOP 

001E3A 

07 00 



BCR 


X* 0930* 

X* FOOO* 

AL2(PRDCSW-SECNO+REG) 
UlOPyX'Ol* 

ALL tDONRTN 
CCWyX*F4* 

Rllt ISIO 
X* 2A00* 

X•0940* 

X«FOOO* 

AL2(PRDCSW-SECNO+REGI 
CCW,X»34* 

RI1,ISIO 
X»2A00* 

X•0950® 

X'FOOO* 

AL2CPRDCSW-SECNO+REG) 
CCW,X'54* 

RllylSIO 
X•2A00* 

X* 0960* 

X* FOOO* ’ 

AL2(PRDCSW-SECNO+REGl 
CCWy X *74* 

RllylSIO 
X* 2A00* 

X * 0970' 

X•F 000• 

AL2t PRDCSW-SECNO+REG) 
CCW y X • 94* 

RllylSIO 
X•2A00 8 
X* 0980* 

X'FOOO* 

AL2CPRDCSW-SECNO+REG) 
CCWyX*B4* 

RllylSIO 

X , 2A00* 

X•0990* 

X* FOOO* 

AL2(PRDCSW-SECNO+REG) 
CCWyX*D4* 

RllylSIO 
X•2A00* 

X'1000* 

X* FOOO* 

AL2(PRDCSW-SECNO+REG) 
CCWyX*14* 

RllylSIO 
X* 2A00* 

X*1010» 

X # FOOO 1 

AL2(PRDCSW-SECNO+REG) 
X«D6« 

0,4 

0,0 


TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
TEST FOR 2 CHAN SW. FEAT. 

BR. TO EXIT IF 2 CHAN SW PRESENT 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START I~0 

CTRL SWITCHES 

T EST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBE R 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

T EST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INITIALIZE CCW 

BR. TO ISSUE START 1-0 

CTRL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 


J M B E R 
EXP. SENSE 


^g***^*^******************^*********^*********^******************** 

* 

* THE FOLLOWING ROUTINES REQUIRE MANUAL INTERVENTION 

* . 

I********************************************************************** 

* 

* 

ft**********************************#******^*************************** 
♦ ROUTINE 13— MANUAL INTERVENTION ROUTINE 


05MAT 65 10AUG65 

124252 125580 


22FEB66 15JUN67 

125621 130498 
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001E9C 
00 IEAO 
001EA4 
001EAS 
001EAA 
001EAB 
001EAC 
001EA6 
001EB0 
001EB1 
001EB2 
001EB4 
00IEB6 
001EBA 
001EBC 
001EBE 
QOiECO 
Q01EC4 
001EC6 

ooieca 

001 EGA 
QOiECE 
00IEDO 
001E02 
001ED4 
00IE06 . 
00IE07 ■ 
001£08 
001 EDA 
091EDC 


91 80 F 005 
47 80 F E4E 
45 40 F 69© 
OA DO 
80 
01 

FF60 
OA DO 
04 
29 

FF86 
OA DA 

45 BO F 10E 
0200 
1050 
F300 

45 BO F UFA 
4200 
1060 
F30© 

45 00 F 0£6 


SNSW^l, 

NONE»SOtONG 
R4*INIT 
X'DO* 

X® 80* 

X® 01 * 

AL2«BYPASS-SECNCM-REG! 
X *00® 

X 9 04 ® 

X 9 29® 

AL2C PCH2-SECN04REGI 
X 9 DA ® 

Rll91SIO 
X s 0200® 

X®1050® 

X®P30©« 

RII 9 ITIO 

X®4200® 

X®1060® 

X® F300® 

RII 9 IHIO 
X ®0200® 

X®1©70® 

X®F300® 

X ®D0® 

X 9 80® 

X®01« 

AL2(BYPASS-SECNO^REG) 
X®D6® 

0*4 


TEST FOR SECTION SENSE SWITCH 8 
TERMINATE RTN IF NO SS 8 
BR. TO INITIALIZE 
PRINT A BLANK 


PRINT-MAKE PUNCH NOT OPERATIONAL- 


HALT FOR MANUAL INTERVENTION 
BR* TO ISSUE START 1-0 
CONTROL SWITCHES 

test numbs 

EXP* COND* CODE - EXP® SENSE 
BR® TO ISSUE TEST 1-0 
CONTROL SWITCHES 
TES T N U M B E 

EXP* COND. CODE - EXP® SENSE 
BR, TO ISSUE HALT 1-0 
CONTROL SWITCHES 
TEST NUMBE 

EXP® C0N9. CODE - EXP. SENSE 
PRINT k BLANK 


ROUTINE EXIT 


001EDC 
0016OD 
001EE0 
001EE4 ' 
001EES 
001 EEC 
GOIEEE 
001EEF 
001EF0 
001EF2 
001EF4 . 
O01EF8 
OOIEFA 
0016FC 
0016FE 
001F00 


• ROUTINE IS 

4 NOTE 

* 

♦ 

6 

is . 
is 
* 


. ■ ■ ^inswap 33 

MANUAL INTERVENTION ROUTINE 

— THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE 
SWITCH 5 IS ON. 


15 

OOFFFF 

91 04 F 004 

47 80 F E4g 

45 40 F ©90 ■ 

OA DO 

04 

25 

FFAF 
OA DA 

45 80 F OF A 


* “NOT READY TO READY TESTING- 

l ~ A TEST 1-0 IS ISSUED TO A DEVICE THAT JUST WENT 

* FS ? 0H N0T READY to ready® expect cond. CODE 1 WITH 
DEVICE END ALONE IN THE CSW AND A ZEROED CSW ADDRESS 

R9UT15 DC X®15® ROUTINE NUMBER 

DC X® OOFFFF * LAST ROUTINE 9 

nr unMc’™.°IL TEST FQR SECTION SENSE SWITCH 5 

BC NOME* SOLONG TERMINATE RTN IF SS 5 

BAL R4* INIT BR. TO INITIALIZE 

SVG %nw* PRINT MAKE PUNCH OPER AND READY 


ROUT15 DC 
DC 
TM 
BC 
SAL 
SVC 
OC 
DC 
DC 
SVC 
BAL 
DC 
DC 
DC 
DC 
SVC 


X®15® 

X®OOFFFF 9 
$NSW*X 3 04 9 
NOME*SOLONG 
R4»INIT 
X*® DO 9 
X®04* 

X®25® 

AL2IPCH3-SECNO+REGI 
X®DA • 

Rll»ITIQ 
X® OAOO® 

X * 1080® 

X®F1O0® 

AL2ID0NLY—SECN04REG) 
X®06® 


HALT FOR MANUAL INTERVENTION 
BR. TO ISSUE TEST I~0 
CONTROL SWITCHES 
test numbe 
EXP* COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 


& 

**********+*******+******++**+*+++*+*+*+#+********++++++++*+++++++++1++ 
***********+*********+****+**+*+*+*****+**++*****++*++****+*++++*++++++ 
* EXPECTED CSW AND STATUS 


00IF02 

■ 00000000 

NOPCStf DC 

X14®0® 

001F06 

OCOOOOO© 

DC 

X 9 OC000000® 

OOIFOA 

00000000 

081Z DC 

XL4®0« 

DATE 

0SHAY65 10&UG65 

22FEB6© 15JUN67 


EC 

124252 125580 . 

125621 130498 



EXP* CSW ADDR 
EXP* STATUS 
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oooooc 

EQLO 

EQU 

12 

OOOOOA 

EQHI 

EQU 

10 

000080 

LOGOUT 

EQU 

X* 80* 

000181 

SYSMOD 

EQU 

X*181* 

OOFOOO 

REG 

EQU 

X*FOOO« 

00005A 

WHAT 

EQU 

90 

000000 

RO 

EQU 

0 

000001 

R1 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

000008 

Rll 

EQU 

11 

oooooc 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 

OMSSW 

EQU 

X*01A0 t 



END 

R0UT01 
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POST ASSEMBLY DATA. 

references to defined symbols. 


DATE 

EC 


05MAY65 
124252 


10AUG65 

125580 


22FEB66 

125621 


15JUN67 

130498 
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DATE 

EC 


1 

1 

1 

1 

1 

1 

1 

1 


1 

4 

1 

1 

1 

1 

8 


8 

2 

4 

0 

1 

2 

3 

4 


198 

1 


5 

1048 

8 

4 

2 

1 

1F58 


EQ 

HI 

LO 

RO 

R1 

R2 

R3 

R4 


R5 

R6 

R7 

R8 


R9 


NT 

ALL 


ANY 

CAW 

CCO 

CC1 

CC2 

CC3 

CCW 


1350* 14DA, 14E2 


118Cf 1190* 119C 


16B4, 

186C, 

1E56, 

1546, 


1764, 

1870, 

1EA4, 

16C6 


8 1040 

2 100A 

4 118C 

2 10 E4 


1554 

A 


CSW 
I CM 
1H! 
1SW 


IUP 

RIO 

Rll 


1128, 

1346, 

144E, 

1128, 

12D0, 

1558, 

118C, 

1150, 

1364, 

1E4A 

153E 

1198, 

11B6, 

11BA 

16AC, 

1858, 

1944, 

19B4, 

1A24, 

1A94, 

1B04, 

1B80, 

1BF8, 

1C68, 

1CE0, 

1D50, 

1DC8, 

1F3A, 


12B8, 

138C, 

1558 

11F4, 

13E8, 

18AC, 

11F4, 

11EC, 

13AC , 


1778, 17A8, 17CC, 17F4, 184C 
1874, 1890, 1904, 1940, 1B7C 
1EE8 


12BC, 1320, 1324, 1342, 1342 

1390, 1442, 1446, 144A, 144A 

1IF 8, 1204, 125A, 12B0, J2B4 

1416, 1458, 1470, 1488, 14A0 

18B0, 18B4 

1280, 186C, 18AC 

1224, 127C« 129C, 12DC, 12E8 

1546, 16A8, 17F0, 1854, 1DB4 


11B2 

12CC 


16B0, 

1868, 

1954, 

19C4, 

1A34, 

1AA4, 

1B14, 

1B90, 

1C08, 

1C78, 

1CF0, 

1060, 

1DD8, 

1F4C 


177C, 

1884, 

1964, 

19D4, 

1A44, 

1AB4, 

1B24, 

1BA0, 

1C18, 

1C88, 

1000, 

1070, 

10E8, 


17 AC, 
1894, 
1974, 
19E4, 
1A54, 
1AC4, 
1B34, 
1BB0, 
1C28, 
1C98, 
1010 , 
1080, 
1DF8, 


1700, 
1908, 
1984, 
19F4, 
1A64, 
1AD4# 
1B44 * 
1BC0, 
1C38, 
1CB0, 
1020, 
1090, 
1E08, 


17D4 , 
1918, 
1994, 
1A04 , 
IA74, 
1AE4, 
1B54 , 
1BD0, 
1C48, 
1CC0, 
1030, 
ID AO, 
1E18, 


17F8 

1928 

19A4 

1A14 

1A84 

1AF4 

1B64 

1BE8 

IC58 

1CD0 

1D40 

1DB8 

1E28 


1170, 

11A0, 

120C, 

1280, 

133A, 

1522, 

154C 

1124, 

1536, 

111E, 

1306, 

13A4, 

14A4, 

1768, 

17FC, 

1878, 


1180 

11A0, 

121C, 

1290, 

1354, 

1542* 

1132, 

16B0, 

1124, 

1310, 

13A4, 

1548, 

1780, 

1808, 

1898, 


11A6, 

1220, 

12A0, 

1360, 

16A4, 

13C6, 

17D4 

114C, 

1320, 

13A8, 

1550, 

178A, 

1814, 

18A2, 


11D8, 11E4, 11F0, HFC 

122E, 125E, 126C, 1278 

12D8, 12E4, 12F8, 1318 

145C, 148C« 14AA, 151A 

16C2, 16CA 

13E2, 13EC, 


13F4, 13F4 


UE8, 

1332, 

1418, 

1550, 

1796, 

1820, 

13B8, 


1270, 

1378, 

1434, 

1554# 

17B0, 

182C# 

18C2, 


1288, 

1390, 

1442, 

1554# 

17BC, 

1838, 

18CE, 


12FC 

1392 

1474 

155C 

17D8 

185C 

18DA 


05MAY65 
124252 


10AUG65 

125580 


22FEB66 

125621 


15JUN67 

130498 
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l C R12 

l D SI IS 

1 E R14 

i F R15 

1 FOOO' REG 


i 

F 

ONG 

1 

A - 

CC02 

1 

6 

CG12 

8 

1F1A 

CSW0 

4 

IFOA 

0817 

4 

1.F2A 

OBZY 

1 

A 

EQHI 

I 

C 

EQLO 

4 

IE 56 

6010 

4 

1194 

GREG 

i 

48 

HCAW 

l 

40 , 

HCSN 

16 

. 1728 ■ 

HUNG 

3 

I5DF 

I ACT 

6 

1306 

I8SN 

12 

1583 

ICAW 

3 

15C2 

ICCW 

l 

1413 

ICNT 

3 

158F 

IG5W 

4 . 

148C 

1010 

3 

15E2 

IEXP 

4 

10E6 

IHIO 

2 

169G ' 

IN IT 

4 . 

1IE4 

INCH 

4 

1270 

I NT 3 

4 

UCE 

mm 

6 

14A4 

IPAS 


18E6* 

18F2, 

190C, 

1968* 

19TS* 

1988, 

1908* 

19E8® 

19P8® 

1A48, 

1A58® 

1A68, 

1A88* 

1AC8® 

1AD8* 

1B28* 

1B38® 

1848® 

I8A4* 

1884, 

18C4® 

lClCt 

1C2C® 

1C3C» 

1C8C* 

1C9C® 

1CB4® 

1094* 

1014® 

1024* 

1074* 

1084* 

1094* 

1DEG* 

IDFC® 

1E0C® 

1E80® 

IEB6® 

1EC 0® 

1164* 

1,174® 

1184® 

12C8* 

169C* 

I6A0® 

1132® 

1140* 

1140® 

1690, 

1690® 

169A 

1148® 

1146® 

11F4, 

188C* 

18AC 


1228® 

1236® 

1266® 

1248* 

138A® 

13A2® 

1428® 

14BE* 

' 14CC® 

1746® 

174G® 

1752, 

1812, 

181E* 

lezA® 

iscc® 

1808® 

18E4* 

1952® 

1962® 

1972* 

19C2* 

1902* 

19E2® 

IA32® 

1A42® 

1A52 * 

1AA2* 

1AB2® 

1AC2* 

1812, 

1822® 

1832, 

1B8E* 

1B9E* 

18AEf 

1C06® 

1C 16* 

1C26* 

1C76* 

1C86® 

1C96® 

1CEE® 

1CFE® 

1D0E* 

1D5E® 

106E® 

1076* 

1006® 

1DE6, 

1DF6* 

1E44® 

IE52* 

1E5E, 

iEAC* 

1EB2® 

lEoe® 

10F6* 

110A* 

1168* 

1210* 

1232® 

1262® 

13F8® 

1416® 

1526® 


191C, 192C, 1948* 1958 

1998* 19A8* 1988* 19C8 

1A08* 1A18 * 1A28* 1A38 

1A78* 1A88, 1A98* 1AA8 

1AE8, 1AF8 * 1B08* IBIS 

1B58* 1B68* 1884* 1894 

1804* 1 SEC * 18FC* 1C0C 

1C4G* 1C5C * 1C6C, 1C7C 

1CC4® 1CD4« 1CE4* 1CF4 

1034* 1044 * 1054* 1064 


10A4® 

1D8C * 

lOCCf 

1D0C 

IE 1C ® 

1E2C * 

1E68* 

1E74 

1ECA, 

1194® 

1EF4 

11AE* 

1214* 

12C0 

1.756 

1102® 

12BC * 

12F0* 

1536 

I2B0® 

I4E6* 

14EE * 

1692 

169A 

13BC* 

1306® 

1414® 

1422 

1518* 

152E * 

1534* 

16C0 

1794* 

178 A* 

.17E2* 

1806 

1836* 

1842® 

1866® 

1882 

18F0® 

1916® 

1926, 

1936 

1962 * 

1992® 

19A2* 

19B2 

I9F2® 

lM2f 

i A12 * 

1A22 

1A62* 

1A72* 

1A82, 

IA92 

1AD2* 

1AE2 * 

•1AF2 * 

IB02 

1842* 

1852® 

1862 * 

1872 

1BBE* 

1BCE * 

1BDE, 

18F6 

l€S6 s 

1C46 * 

IC56 ® 

1C66 

ICA6® 

1.CBE * 

ICCE® 

ICOE 

101E , 

1D2E* 

103E * 

104E 

108E* 

109E® 

IDAS® 

IDC6 

IE 06® 

IE16 * 

IE26 * 

1E36 

1664® 

1E72 * 

1E7E * 

I ESA 

lEFOt 

1188* 

lEFg 
11C21 

UCA* 

HOC 

1284® 

1204* 

I2E0* 

I2EC 

I5SC® 

1684 * 

16C£® 

175A 


1842* 1808* 18F0* 1E8A 

1812* 182A 

1882* ISE4 
14D2 

1E4A 

119C 


1132® 

128C* 

1536 





1140* 

16C0 

1140® 

1102* 

1228* 

1236® 

1266* 

12F0 

1254* 

1464, 

1494 





1294* 

12A4® 

12AC® 

1204 




13C6* 

13CE® 

I3D0® 

1306 




1308 







1250® 

13DE® 

143© 





124A* 

I42A 






1478 ' 







143C, 

I47C • 






1838® 

18B8® 

1SCE* 

I8E6* 

1E80® 

liCA 


1764, 

1778* 

HAS* 

17CC* 

17F4® 

184C* 

1890 

1904* 

1940* 

18IC® 

1E56® 

i£A4® 

1EE8 


1150® 

11C2* 

11CA* 

HOC 





11B6 

1490 




DATE 

EC 


mnmm 

124252 


t@kmm 

125580 


22PEB66 

125621 


I5JUN67 

no* m 
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4 

1288 

I SEN 

11EC, 

1210, 

1274, 

127C 




4 

HOE 

ISIO 

1780, 

1780, 

1708, 

17FC * 

1814, 

1820* 

182C 




185C® 

1878, 

1898* 

18A2® 

180 A, 

190C, 

191C 




192C® 

1948, 

1958, 

1968, 

1978, 

1988* 

1998 




I9A8* 

19B8* 

19C8* 

1908* 

19E8* 

19F8 * 

1A08 




1A18, 

1A28, 

1A38* 

1A48* 

1A58* 

1A68 * 

1A78 




1A88* 

1A98* 

1AA8, 

1AB8* 

1AC8* 

1AD8* 

1AE8 




1AF8® 

1B08* 

1818* 

1B28* 

1838* 

1848* 

1B58 




1868, 

1B84, 

1894, 

1BA4* 

1084* 

1BC4* 

1BD4 




18EC® 

18FC* 

1C0C, 

1C 1C* 

1C2C* 

1C3C * 

1C4C 




TG5C* 

1C6C, 

1C7C* 

1C8C* 

1C9C* 

1CB4 * 

1CC4 




1CD4, 

1CE4* 

1GF4® 

1004* 

1014® 

1024* 

1034 




1044, 

1054, 

1064, 

1074, 

1084® 

1094® 

1DA4 




1DBC® 

1DCC* 

1D0C, 

1DEC* 

10FC, 

1E0C * 

1E1C 




IE2C® 

IE68, 

16B6 





6 

1266 

ISV2 

1224 







4 

1200 

IT IC 

12F4 







4 

10 FA 

IT 10 

1768, 

178A, 

1796* 

17BC « 

1808* 

18C2* 

18F2 




1E74, 

1EC0, 

1EF4 





4 

11C6 

ITWO 

11BA 







6 

1236 

IUIO 

1218 







6 

11 AO 

JOHN 

1158, 

1198 






1 

1673 

MSK1 

1200 







1 

1674 

MSK2 

1208 







1 

7 

NCCO 

1178, 

12C4* 

12F4 





1 

1000 

N10U 








1 

8 

NONE 

1158* 

1160* 

1170* 

1180* 

1274, 

128C, 

1294 




12A4® 

12AC* 

1314* 

131C* 

1336* 

133E * 

136C 




13F0® 

1438, 

1460* 

1478* 

1490* 

14AE, 

151E 




154C, 

1696, 

1E98* 

1EA0* 

1EE4 



16 

1F6D 

PCH1 

1E64 







16 

1F86 

PCH2 

1EB2 







16 

1FAF 

PCH3 

1752* 

1EF0 






16 

IF 04 

PCH4 

174C 







I 

1675 

RTSV 

112C* 

1686 






1 

100C 

SDMF 








4 

1004 

SNSW 

1154, 

U5C, 

116C, 

117C* 

1368 * 

153A, 

17EC 




1850* 

1E46, 

1E94* 

1E9C* 

1EE0 



I 

4 

SOME 








3 

1050 

SRET 








' 1 . 

10E1 

U10P 

1080 







1 

6 

UNEQ 

1218® 

1302* 

130C, 

132E, 

13C2® 

14EA 


l 

5A 

WHAT 








1 

1568 

WORK 

1236, 

13E2* 

1400, 

1402* 

1404, 

140A* 

1452 




1452* 

146A* 

1482, 

1482* 

149A® 

14EE * 

14F8 




14FA* 

14FC* 

1502, 

1508* 

150E 



4 

16 A4 

8L00P 

1'6CE 







1 

1 AO 

OMSSW 








4 

1F44 

OONLY 

1EFE 







1 

100E 

FLAG1 








1 

100F 

FLAG2 








4 

1132 

GOMAN 

17 5 A 







16 

15C5 

I BLAH 

124A® 

1254* 

13D8* 

1404® 

140A * 

1414* 

142A 




143C, 

1464, 

147C, 

1494 




2 

13FC 

ICOUT 

125A* 

13E8* 

1458* 

1470, 

1488* 

14 AO 


8 

1656 

ICSW1 

1102* 

1228* 

1298* 

1328* 

1328* 

I46A 


8 

165E 

ICSW2 

1266* 

12A8* 

134A* 

134A* 

149A 



4 

151A 

ICUIO 

14EA 







4 

145C 

IDIDI 

1438 







4 

1174 

I HANG 

1188 







16 

15A3 

ILINK 

1392* 

139A* 

139C* 

13A2* 

1534 : 



4 

12F0 

ILOKE 

12CC 







4 • 

1164 

ILOOP 

10F2, 

10FE* 

1112 





4 

1354 ■ 

INDER 

&2C4* 

12DC* 

I2E8* 

1302® 

130C * 

131C* 

132E 




133E 







5 

1010 

INPSW 








3 - 

' 1870 

IOADR 

1384 







6 

142A 

IOCSN 

13AC 








DATE 

EC 


05MAY65 
124252 


10AUG65 22PEB66 15JUN67 : 

125580 ~ 125621 130498 



OOOOOOOOOOOOOOOl 





0 0 


0 0 0 


0 0 0 0 0 


0 0 0 0 0 


0 0 0 
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! 

SECTION 

1 F820 





16 

15FB 

IOLOG 

14FC, 

1502, 

1508, 

150E, 

1518 


16 

1620 

I0PT1 

10EA, 

1102, 

1116, 

152E 



4 

I486 

IPASS 

I4AE, 

14D2, 

14DA 




8 

1560 

ISAVE 

1128, 

1558 





4 

11AE 

ISSUE 

10E6, 

10FA, 

110E, 

13BE , 

1670 


4 

115C 

ITRY1 

1168, 

1178, 

153E 




4 

116C 

1TRY2 

1160 






U 

16T6 

IUNEX 

1242, 

1248 





4 

11F4 

IWAIT 

1284, 

1526 





4 

11E0 

IZERO 

1182 






4 

16D4 

M0050 

16A0 






I 1 

0 

NEVER 







.! l 

1608 

PCHAR 

1136, 

113A, 

113A, 

1F58 



4 

1000 

SECNO 

112C, 

1240, 

1242, 

1248, 

1382, 

1384, 




139A, 

139C, 

13A2, 

13B4, 

13B6 , 

13BC , 




13D0, 

13D6, 

1400, 

1402, 

1414, 

1422, 




14B6, 

14B8, 

14BE, 

14C4, 

14C6, 

14CC * 




14F8, 

14FA, 

1518, 

152E, 

1534, 

16B6 , 




1746, 

174C, 

1752, 

1761, 

1775, 

1794, 

! 



17BA, 

17C9, 

17E2, 

17E9, 

1806, 

1812, 




182A, 

1836, 

1842, 

1849, 

1866, 

1882, 




18CC, 

18D8, 

18E4, 

18F0, 

1901, 

1916, 




1936, 

193D, 

1952, 

1962, 

1972, 

1982, 




19A2, 

19B2, 

19C2, 

19D2 , 

19E2 , 

19F2 , 




1A12, 

1A22, 

1A32, 

1A42, 

1A52 , 

1A62, 




1A82, 

1A92, 

1AA2, 

1AB2, 

1AC2, 

1AD2, 

; 



1AF2, 

1B02, 

1812, 

1B22, 

1B32, 

1B42, 

! 



1B62, 

1B72, 

1B79, 

I B BE , 

1B9E, 

1BAE , 




1BCE, 

1BDE, 

IBE5, 

1BF6, 

1C06, 

106, 




1C36, 

1C46, 

1C56, 

1C 66, 

1C76 , 

1C86, 




1CA6, 

1CAD, 

1CBE, 

1CCE , 

1CDE, 

1CEE , 




1D0E, 

1D1E, 

1D2E, 

1D3E , 

1D4E , 

1D5E, 




1D7E, 

1D8E, 

1D9E, 

1DAE, 

1DC6, 

10D6, 




1DF6, 

1E06, 

IE 16, 

1E26, 

1E36 , 

1E3D , 




1E52, 

IE5E, 

1E64, 

1E72, 

1E7E , 

1E8A, 

1 



1EAC, 

1EB2, 

1ED8, 

1EF0, 

1EFE 


1 

10E0 

UNIT 1 

169C 






13 

1F60 

BYPASS 

1746, 

1E44, 

1E52, 

1E5E, 

1EAC , 

1ED8 

2 

1E38 

DONRTN 

1DB4 






2 

1B74 

EXIT10 







5 

1058 

EXNPSW 







8 

1018 

EXOPSW 







6 

16B6 

HANGUP 

16A8 






11 

15 FO 

IACSNS 

12FC, 

14C4, 

14C6, 

14CC, 

14DE , 

1668 

t 10 

158A 

I ACT CC 

11AA, 

11BE, 

11C6, 

UCE, 

11E0 , 

1306, 

6 

1418 

ICCOUT 

13C2, 

13F0 





6 

1328 

ICCSW1 

1324 






6 

134A 

ICCSW2 

1346 






6 

1452 

ICHNG1 

1446 






6 

1482 

ICHNG2 

144E 






6 

13E2 

ICWOUT 

13F8 






4 

12 BO 

IDOSNS 

128C, 

129C, 

16C6 




4 

1358 

IDUNCK 

12E0, 

12EC, 

1350 




10 

1580 

IEXPCC 

1418, 

1422 





11 

15E5 

IEXSNS 

14A4, 

14B6, 

14B8, 

14BE , 

14D6 


6 

11 IE 

I EYE OH 

10F6, 

110A 





1 

1388 

IFLAG1 

1358, 

1370 





l 

152C 

IFLAG2 

135C, 

1374 





4 

1548 

ILEAVE 

136C 






6 

14EE 

ILOGED 

1262 






4 

1474 

IMORST 

1460 






4 

12D8 

IN0EX1 

1314 






4 

12E4 

IN0EX2 

1336 






15 

1594 

IOAODR 

10EE, 

1106, 

1UA, 

13B6, 

13BC 


4 

1078 

IONPSW 







8 

1038 

IOOPSW 

1214, 

1240 





2 

152A 

IOPOUT 

151E 






6 

1378 

IOUTIT 

1364 
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DATE 

EC 


138 A 
13CE 
1428 
14CE 
16C0 
17A5 
181E 
188D 
1926 
1992 
1A02 
1A72 
1AE2 
1B52 
1BBE 
1C26 
1C96 
1CFE 
1D6E 
1DE6 
1E44 
1E91 


1428 


05MAY65 
124252 


10AUG65 

125580 


22FE866 

125621 


15JUN67 

130498 


ID F820-3 
PAGE 25 


DATS 

EC 


4 

8 

8 

4 

9 

1 

8 

8 

4 

4 

4 


1214 

1668 

1688 

12C8 

1617 

80 

1070 

1030 

169C 

1F02 

1F3C 


IRETRN 

ISENSE 

ISLAVE 

ITIOLP 

ITSTNO 

LOGOUT 

MCNPSW 

MCOPSW 

NITWIT 

NOPCSW 

PFRCSW 


8 1068 PGNPSW 
8 1028 PGOPSW 
4 1F4C PRDCSW 


107C 

12B8 

1124 

12D0 

HIE* 

1146, 


1696 

17E2 

1806, 

1982, 

1A62, 

1B42, 

1BDE, 

1C56, 


1794, 

19B2, 

1A92, 

1B72, 

1D1E, 

1D8E, 

1E06, 


1378, 1382, 1384, 138A 

1146, 14EE 


181E, 

19A2, 

1A82, 

1B62, 

1BF6, 

1C66, 


17BA, 
19D2, 
IAB2, 
1CBE, 
1D2E, 
1D9E, 
IE 16, 


1836, 1866, 

19C2, 19E2, 

1AA2, 1AC2, 

1B8E, 1B9E, 

1C06, 1C16, 

1C76, 1C86, 


1926, 

19F2, 

1AD2, 

1CCE, 

1D3E, 

1DAE, 

1E26, 


1A12, 
1AF2, 
1C0E, 
1D4E, 
1DC6, 
IE 36 


18CC , 

1916, 

1962 

1A02, 

1A22 , 

IA42 

1AE2, 

1B02 , 

1B22 

1BAE , 

1BBE , 

1BCE 

1C26, 

1C36, 

1C46 

1C96 , 

1CA6 


1952, 

1972, 

1992 

1A32, 

1A52, 

1A72 

1B12 « 

1B32, 

1B52 

1CEE , 

1CFE, 

iooe 

1D5E , 

1D6E 9 

1D7E 

1DD6, 

1DE6, 

1DF6 


1 

1760 ROUT01 

1015, 

1FF6 ! 

1 

1774 R0UT02 

1761 

| 

1 

17A4 R0UT03 

1775 

1 ' 

1 

17C8 ROUT04 

17A5 

1 

1 

17E8 R0UT05 

I7C9 

1 

1 

1848 R0UT06 

17E9 


1 

188C ROUT07 

1849 


1 

1900 ROUT08 

1880 


1 

193C ROUT09 

1901 


1 

1B78 ROUT 10 

193D 


1 

1BE4 ROUT 11 

1B79 


1 

1CAC ROUT 12 

1BE5 


1 

1E3C ROUT 13 

1CAD 


1 

1E90 ROUT 14 

1E3D 


1 

1EDC ROUT 15 

1E91 

1854, 1E98, lEAOt IEE4 

2 

8 

8 

1E4E SOLONG 
1060 SVNPSW 
1020 SVOPSW 

17F0, 

1 

181 SYSMOD 

14E6 


2 

2 

1742 TELHIM 
10E2 UlADDR 

14E2 

1E7E 

4 

1F32 UCNVLD 

lE72t 

1 . 

1000 XF8203 




NO ERROR 

DETECTED 

IN ABOVE ASSEMBLY f 


05MAY65 

124252 


10AUG65 

125580 


22FEB66 

125621 


15JUN67 

130498 


ID F820-3 
PAGE 25A 


..I 
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PERIODS CORRESPOND TO BLANK COLUMNS, 


COLS. 1 THROUGH 20 


COLS. 21 THROUGH 40 


BESD. 

. AA. 

•AAXF82 

03..AAAA.AG6.*•«••.. 

9 

YQ 

Y9 

YYQY Y8 


99 

9 

9999 99 

BTXT.AAA. 

• A8. 

•AA8JAA 

AAAAAAAAA.40AADAAAAP- 

9 YQY 

Y9 

Y9 YQY 

YYYYYYYYY94Y99YYYY9 

999 

9 

9 9Z9 

999999999 9 9999 

BTXT.AA8. 

.AS. 

.AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

9 YQ9 

Y9 

V9YYYY 

YYYYYYYYYYYYYYYYYYYY 

99 

9 

9 9999 

99999999999999999999 

BTXT.AA0. 

» AA. 

«AAAAAA 

AAAAADAAAAKM ••••••.. 

9 YQ+ 

YQ 

Y9YYYY 

YYYY99YYYY99 

99- 

99 

9 9999 ■ 

9999 9999 

BTXT.AAS. 

• AS. 

•AA8AAA 

AABF10BH61BH5JBF1MG0 

9 YQ8 

Y9 

Y90YYY 

YY-Q Y- 8- Y-Q ZZ 

99 

9 

9 9 9 

99 9 

BTXT.AJQ. 

• AS. 

»AA61BS 

5JKA6MABAL 6HA15-KA6E 

9 Y99 

Y9 

Y9 8- 

Y 9 8Q9QY OQO Y R 

9 

9 

9 9 

90 9 0 

BTXT.AJ4. 

• A8 . 

.AAGAIU 

AOODGA1J AAODGAIUDA OA 

9 Y9 

Y9 

Y9ZQ 

-4 9ZY Y-Y 9ZY 8QY4Y 

9 

9 

9 9 

9 9 

8TXT.AJH. 

« AS* 

• AAG01D ; 

■ HOAHHAACEAOAGAIJFA1D 


9 Y90 Y9 Y9 l R 

9 9 9 0 

BT X T . A JO . * AS . . A A5 GGO 
9 Y94 Y9 Y9 YZ 

999 

BTXT•AJ8« *A@.•AAHAAC 
9 Y9 Y9 Y90QY9 

9 9 9 9 


BTXT.AKA..A8. 
9 Y9Q Y9 

9 Z 9 

BTXT*AKQ«.A@. 
9 Y9Z Y9 

9 9 

BTXT.AKJ..AS. 
9 Y9Y Y9 

9 9 

BTXT.AKQ..A8. 
9 Y9 Y9 

9 9 

8TXT.ALA..A8. 
9 Y9Q Y9 

9 9 9 


»AAOUGO 
Y9 Z 
9 


»AAAJOU 
Y9-Y 
9 9 

»AAA.OU' 
Y9- 
9 

>AAAHAA 
Y9-9QY 

9« 09 


BTXT.ALH..A8..AA3FNG 
9 Y9Z Y9 Y9 8 9 
9 9 9 


R89-0QY9QY4VZY VZQ - 
9 99 9 9 9 

IUB25GG01UB15GKG6F0. 
- YZ - Y 9 R- 


FA0UAA6CFA2DAA6DD70U 
-Y YY RZQ 9YY R-8 
9 0 9 0 

20KG5Q0.BEACA1F3B0MC 
+91 8QY9Y8988-Z8 

999 99 9 9 

FJ0UAAAAGA2HAH0UGA2H 
~Y -QQYZY 0—9 ZQ 0 
9 909 9 

GA3FAB6KGA3FHFAHHAAB 
ZY 9-9 ZZY 9RQ9-0QY9 
9 

6A3DG03HAJ0UGA3DG03H 
ZQ RZ R-Y ZQ RZ R 
9 9 9 

GA2QA.00GA3DBCAF.A3U 
ZY - ZY RZYY9 Y 8 
9 9 

6060SA3HF&0UBM3HB05U 
8 8ZY R-9 -2 0-4 8 

9 


COLS. 41 THROUGH 60 
.840 


AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 


10BE108E1MBT61BT5JGO 
8-Q Y-Q.Z- 8- YZ 
9 9 

0C4NAHB.6QKF6R6QPG0. 

9 YYZ— 8 9- 

9 

G01MA.0DGA1DEA0AG0IM: 
Z 8- 9ZY YQY4YZ4- 8 
9 9- 

PAOUOUFAOUBXSGDAOAGA 
9 --Y - YQY+YZY 

9 9 

F.0UG01UB05GD70UA.AA 
Z - Y-8 - QY 

09 

G02HA002G-26D70UA.OU 
Z 084 82 9-8 - 

9 

6FKB5F5GBK4LKB5D5GEA 
R 9 Q-8 9 9 Q QZQ 

0 0 9 9 9 

FH0UG014ABAAGA2AA.0U 
-9 Z -9QYZY Q- 

09 0 

AA6Q4EAHDA0AG03DEA0A 
ZY Z YYZQY4YZ4 RQY4Y 
9 9 9 - 9 9 

ED0BG020FD0UNA55AEG- 
-8-Z24 —9 Y Q9Z 

9 9 0 

NG6F6FG-3DADAASA2UAJ 
9 R RZ R-9QYZY -Y 
09 9 

AA0UGA3HAA0DGA5HBU3H 
-9 ZQ R-9 9ZY 2-9 0 
9 0 


COLS. 61 THROUGH 80 
192.130498..82030001 


AAAAAAAAAAAA32030002 

YYYYYYYYYYYY 

999999999999 

AAAAAAAAAAAA82030003 

YYYYYYYYYYYY 

999999999999 


108D1OBD1M8S82O3OOO5 
8-Q Y-Q Z~ 

9 

0.PCSASAAAAA82030006 

- 88Y8Y-YQY 

9 09 

A.0D6A1DDA0A82030007 

- 9ZY YQY4Y 

9 9 

1SG.1F6JIF8382030008 
82 YZY - 
9 9 

GA2HFA0UHFAH82030009 
ZQ 0-Q RQ9- 
9 9 

GA20KG6F0.F.82030010 
ZQ Z 9 R - 

9 

3DFB0UG040KG82030011 
Q-9 Z Y 9 
Z 9 

GA3FAB6KGA2A82030012 
ZY 9-9 8ZQ Q 
9 0 

G.20FA2HG03F82030013 
Z ZQ Z 9 


3DNA5GADG-3D82030014 
R Y YQ9Z R 
9 0 

0UGA30AHAH.A82030015 
ZY RZ0Y9 Y 
9 

BA5UKA6MABBE82030016 
-Y 8 9 8Q98Q 
9 90 99 


BTXT dALA. 

• A8. 

• AAABFM 

FMB0MA6PAAADLH4A5QBE 

ACEREQB0JA5LACADAAAA 

GA4SBEACF0El82030017 

9 Y9Y 

Y9 

Y9Y998 

988—Z8 9ZYY980 Q 08Q 

Y990908-YQ 0ZQY9-YQY 

ZQ 88QY9949- 

9 

9 

9 9 9 

99 9 9 9- 0 99 

9 9 9 09 09 

9 9999 - 

BTXT.ALH. 

. A8. 

•AABOJG 

5DED10G-4Q4J5HBEACEI 

EHB0JC5CKB5F5BB04LKG 

5QJAEA3DA0JD82030018 

9 Y90 

Y9 

Y98--Y8 

—Q YZ 9 Y 08QY990 

908-Y8 09 -999 

ZYYZQ Q-4Y9 

9 - 

9 

9 9 9 

-999 - 

-9 9 - 

9 Z 

BTXT.ALO* 

. A8. 

• AAGA4Q 

AKAH603SBEAHEQEQKG5B 

5QKG5L50B0JK5EG9KA5E 

ADBOJB5ABOJB82030019 

9 Y9 

Y9 

Y9ZY 9 

ZYY9Z 8QY99Z9Z 9 Y 

Z 9 48-Y8 9 Y 0 

Q98-Y8 Y8-Y8 

9 

9 

9 

9 999 9 

-9 9 9 

0 9 9 9 9 

BTXT.AMY. 

.A8« 

•AA5BKB 

5F5GBK4LAHAAGA4MKB5D 

5 SHC A F . A4F AH AH . A4 F KG 

5Q5QEA3DA.0U82030020 

9 Y99 

Y9 

Y9 Y 9 

Q-8 9-9QYZY 8 9 Q 

ZYY9 Y RZ0Y9 Y 0 9 

Z ZZQ Q- 

9 

9 

9 

0 9 09 9 

9 9 

Z 

BTXT.AM-. 

• AS. 

•AA6A4D 

KB5D5GKG5Q6FEA3DADAA 

GA4DKB5D5SKG5Q5QEA3D 

AJ0U6A4MKB5D82030021 

9 Y9 

Y9 

Y9ZY R 

9 Q Q 9 Z RZQ Q-9QY 

ZY Y 9 Q 9 Z ZZQ Q 

-Y ZY 0 9 Q 

9 

9 

9 0 

9 9 Z 09 

9 Z 

9 9 

BTXT*AMH. 

.AS. 

•AA5GKG 

5Q60EA3DKA5KAEAD0UGA 

4WBEAAEKEKB0JC5VBEAA 

E5E5B0JC50EL82030022 

9 Y9- 

Y9 

Y9 Q 9 

Z 8ZQ Q Y YQ9-9 ZY 

8QY99Y9Y8-Y8 8QY9 

9 9 8-Y0 -9 

9 

9 

9 9 

Z 9 90 

999 9 99 9 999 

9 9 

BTXT.AMO. 

• A8. 

•AAOCGJ 

4WE45KGA4WE455GA7BEA 

JAG-5KKC5QSABEADEQEQ 

KA6A5QKE6C5482030023 

9 Y9- 

Y9 

Y9 9ZY 

- YZY - ZY Z-Q 

ZOZ 8 8 Z8Y8QY89Z9Z 

9 Y Z 9 9 - 

9 

9 

9 

9 Z 

9 9 9999 

9 

BTXT.ANH. 

• A8. 

•AAKE6B 

5BKE6J52B0JM5CAB OUGA 

5S0E0UG014B0066JBOJA 

5L4NAHA00DG482030024 

9 Y99 

Y9 

Y9 9 8 

R 9 9 88-Y8 Q-9 ZY 

8-Q Z 8-49 Y8-Y9 

0 YYZ-4 9Z 

9 

9 

9 9 

0 9 9 1 

9 Z 9 99 

9 

BTXT.AN.. 

• AY. 

•AA1MAA 

0UGNAHAAGA5DACABACAF 
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§TXT*APY*.A8*.AA.PRE V10US•HANG*UP•DETECT 

9 Y99 Y9 Y9 

9 9 9 

BTXT*AP-»*A 8 *•AAAAGD E.6AEA0BBAAA0AB08AGM 

9 Y9 Y9 Y99Y9R 2 QZQ Q9YYQ Y 8 9Y90 

9 9990 0 Z 999 99 9 
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9 9 9 9Z9 9 9 9 9 Z 

BTXT.AQH** A 8 *.AAEA 1 F 8AA+1AGSBCGHB0GAGAAA 

9 Y9R Y9 Y9ZQ 8 9Y9 YQ8-9QR8 9Y9Y8Y 
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99 9Z Z 0 999 


DATE 05MAY65 10AUG65 22FEB66 15JUN67 

EC 124252 125580 125621 130498 


P/N 840191 
PAGE 27 
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EAIFSAD-OAGDBAGHEAIF 6AD00AG4BSGH82030049 
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0 999 9Z Z 0 9 99 - 9Z9 Z 
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8213 TITLE 
♦ 

♦ 

**********************************************4************************ 

♦ MODIFICATIONS 

* 

* REVISION LEVEL 3 - THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS.. 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS-. 

* 2. THE PROGRAM NOW INCLUDES STANDARD ERROR MESSAGE PRINTOUTS. 

* 3. THE PROGRAM TESTS RESPONSE TO ALL INVALIO COMMANDS. 

* 4. THE PROGRAM TESTS PROPER SETTING AND SUPPRESSION OF THE 

* INCORRECT LENGTH INDICATOR. 

* 5. THE STACKER SELECT TESTING HAS BEEN SIMPLIFIED. SECTION 

* SENSE SW 11 12 AND 13 ALLOW LOOPS ON STACKER SELECT POCKET 

* 123 RESPECTIVELY. A NEW STACKER SELECT PATTERN OF 1-2-1-3 

* HAS REPLACED THE PREVIOUS RIPPLE PATTERN. 

* * 

* E.C. PREREQUISITES * 

* MACHINE . . • NONE * 

♦ PROGRAM ... NONE * 

♦ * 

* USE DESCRIPTION F820* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 
******************************************************4**************** 

* REVISION LEVEL 2 - THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS.. 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE 1400 MODE CCWS IF 

* THE COMPATIBILITY FEATURE IS ON THE 2821. 

* 

************************************************4*************4******** 
XF8213 START 4096 
USING *,15 

* 

* 

*********************************************************************** 

* TEST NUMBER DESCRIPTION 

*************************************4******************4************** 
*********************************************************************** 

* TEST DESCRIPTION 

* 


* 

♦ 

* 0010 

* v. 

* ‘ 


************** 
ROUTINE 01 
************** 


OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A READY TEST DEVICE. 


EXPECTED RESPONSE 
EXPECT COND. CODE 0 
POSSIBLE FAILURE CAUSES 

1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 
ADDRESS USED. THE DM UDT ENTRY COULD BE IN ERROR, THE 
DEVICE MAY BE OFF LINE, OR IF THE 2821 TWO CHANNEL SWITCH 
FEATURE IS INSTALLED, THE PARTITIONING SWITCH FOR THIS 
INTERFACE MAY BE DISABLED. 

3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 
DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 


************** 
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* ROUTINE 02 

* ************** 

* 

* 0020 - OPERATION ATTEMPTED 

* 

* ISSUE INDIVIDUALLY ALL COMMANDS THAT ARE CONSIDERED INVALID 

* TO THE PUNCH. EACH INVALID COMMAND IS FOLLOWED BY THE 

* EXECUTION OF A DIAGNOSTIC CHECK READ COMMAND TO RESET THE 

* SENSE LATCHES IN THE PUNCH. 

* 

* EXPECTED RESPONSE 

* 

* EXPECT CONDITION CODE 1, STATUS STORED WITH UNIT CHECK IN THE 

* DEVICE STATUS AND COMMAND REJECT IN THE SENSE BYTE FOR THE 

* INVALID COMMAND CCW. 


* 0030 - OPERATION ATTEMPTED 

* 

* ISSUE DIAGNOSTIC CHECK READ FOLLOWING AN INVALID COMMAND 

* START 1-0, TO RESET THE PUNCH SENSE LATCHES. 

* 

* EXPECTED RESPONSE 

* 

* EXPECT CONDITION CODE 0 FOR THE VALID DIAGNOSTIC CHECK READ 

* WHICH FOLLOWS EACH INVALID COMMAND START 1-0, AND A SENSE 

* BYTE WITH NO BITS ON. 

* 

* 

* ************** 

* ROUTINE 03 

* ************** 

* 

* 0040 - OPERATION ATTEMPTED 

* 

* A WRITE COMMAND -41-, IS ISSUED WITH A SHORT CCW COUNT OF 79. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

* 

* EXPECTED RESPONSE 

♦ 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OCCUR WITH THE INCORRECT LENGTH RECORD BIT 

* SET ON IN THE CHANNEL STATUS BYTE. A SECOND INTERRUPT SHOULD 

* OCCUR, WITH DEVICE END ALONE IN THE CSW. 

* 

* 0050 - OPERATION ATTEMPTED 

* 

* A WRITE COMMAND -41-, IS ISSUED WITH A LONG CCW COUNT OF 81. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

* 

4 , EXPECTED RESPONSE 

* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

* INTERRUPT SHOULD OCCUR WITH THE INCORRECT LENGTH RECORD BIT 

* SET ON IN THE CHANNEL STATUS BYTE AND A RESIDUAL COUNT OF 1. 

* A SECOND INTERRUPT SHOULD OCCUR, WITH DEVICE END IN THE CSW. 

* 


♦ 0060 - OPERATION ATTEMPTED 

* 

* A WRITE COMMAND -41-, IS ISSUED WITH A SHORT CCW COUNT OF 79, 

* AND THE SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL 

* IS ENABLED TWICE FOR INTERRUPTS. 

* 

* EXPECTED RESPONSE 

* 

* COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

4 INTERRUPT SHOULD OCCUR, FOLLOWED BY A DEVICE END INTERRUPT. 


♦ INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED. 

* , 
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* 0070 

♦ 

* . 


- OPERATION ATTEMPTED 

* “ R IJ E COMMAND -41- IS ISSUED WITH A LONG CCW COUNT OF 81» 

J 0 u Twfc s i - REC0RD FLAG 0N * THE CHANNEL 

EXPECTED RESPONSE 

° SHOULD BE SET ON THE START 1-0. A CHANNEL END 
INTERRUPT SHOULD OCCUR WITH A RESIDUAL COUNT OF 1 FOLLOWED 
BY A DEVICE END INTERRUPT* 

INCORRECT LENGTH RECORD INDICATION SHOULD BE SUPPRESSED* 


* 

* 

* 0080 
* 

* 

* 

* 


* 

♦ 

♦ 0090 

* 

* . 

♦ 

* 

♦ 

♦ 

* . 

* . 

♦ 

* 

* 

* 

♦ 

* 

* 

♦ 

* 0100 
♦ 


♦ 0110 
♦ . 


************** 

ROUTINE 04 
ft************* 

- OPERATION ATTEMPTED 

READ -C2- IS ISSUED WITH A SHORT CCW COUNT OF -79 
•THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 
EN ° INTERRUPT SHOULD OCCUR WITH THE INCORRECT 
LENGTH RECORD BIT SET ON IN THE CHANNEL STATUS BYTE. 

- OPERATION ATTEMPTED 

A DIAGNOSTIC READ -C2->* IS ISSUED WITH A LONG CCW COUNT OF -81- 
THE CHANNEL IS ENABLED ONCE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND. CODE 0 SHOULD BE SET ON THE START I-*0. A CHANNEL END 
fcEr?u VICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT 
LENGTH RECORD BIT SET ON IN THE CHANNEL STATUS BYTE AND A 
RESIDUAL COUNT OF -1-. 

POSSIBLE FAILURE CAUSES 

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE 
IS INSTALLED BUT NOT DEFINED IN THE UDT. 

- OPERATION ATTEMPTED 

A DIAGNOSTIC READ -C2- IS ISSUED WITH A SHORT CCW COUNT OF -79 
™ E SUPPRESS INCORRECT LENGTH RECORD FLAG ON. THE CHANNEL 
IS ENABLED ONCE FOR INTERRUPTS* 

EXPECTED RESPONSE 

COND* CODE 0 SHOULD BE SET ON THE START 1-0. A CHANNEL END 

?2[L5 EVICE END INTERRUPT SHOULD OCCUR WITH THE INCORRECT 
LENGTH RECORD BIT SUPPRESSED* 

POSSIBLE FAILURE CAUSES 

UNUSUAL COMMAND SEQUENCE -SENSE 02- WILL OCCUR IF PFR FEATURE 
IS INSTALLED BUT NOT DEFINED IN THE UDT. MATURE 

- OPERATION ATTEMPTED 

l »52°5 T £ C READ ~ C2 “ IS ISSUED WITH A LONG CCW COUNT OF -81- 
i s°enabled F once%or C interrupts?™ REC0RD FlflG 0N - THE CHANNEL 
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* 

* 

* . 

* 

* 

♦ 

* 

* 

♦ 

* 0160 
* 

* 

* ■ 

* 

♦ . 

* . 

* 

* . 

♦ 

♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* .. 

* 0170 

* 

* 

* , 

* 

* . 

* 

* 

* . 

* 

* 

* , 

* 

♦ 

* 0180 
♦ . 

* 

♦ • 

♦ 

* 

* 

* 

* 

* 

♦ 

♦ 

* - 
♦ . 

* 

* . 

* 

* 

6 . 

* . 

* . 

* 0190 

* 

* 


STATUS BYTE SHOULD CONTAIN CHANNEL AND DEVICE END. A RESIDUAL 
COUNT OF 1 SHOULO REMAIN. 


************** 

ROUTINE 06 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS COMMAND CHAINED TO ANOTHER 
PUNCH FEED STACKER SELECT. THE CHANNEL IS ENABLED TWICE 
FOR INTERRUPTS. EACH COMMAND HAS A COUNT OF -80-. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO THE COMMAND CHAIN 
FLAG. AT EXECUTION OF THE SECOND COMMAND IN THE CHAIN AN 
INTERRUPT WILL BE TAKEN FOR CHANNEL END FOLLOWED BY A SECOND 
INTERRUPT FOR DEVICE END. THE 80 CHARACTERS PUNCHED -ALL 
BLANKS- BY EACH COMMAND SHOULD NOT BRING WRONG LENGTH 
RECORD INTO STATUS. 


************** 

ROUTINE 07 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT WITH A COUNT OF -79- IS COMMAND 
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -80-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING. 
THE SHORT COUNT -79- OF THE FIRST COMMAND SHOULD BREAK COMMAND 
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON. 
EXPECT CHANNEL END WITH ILR BIT ON FOLLOWED BY DEVICE END. 

CSW ADDRESS SHOULD POINT AT THE SECOND CCW OF THE CHAIN. 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT WITH A COUNT OF -81- IS COMMAND 
CHAINED TO A PUNCH FEED STACKER SELECT WITH A COUNT OF -80-. 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START 1-0 DUE TO COMMAND CHAINING. 
THE LONG COUNT -81- OF THE FIRST COMMAND SHOULD BREAK COMMAND 
CHAINING AND THE INCORRECT LENGTH RECORD BIT SHOULD BE SET ON 
TOGETHER WITH A RESIDUAL COUNT OF 1 INDICATED. 

EXPECT CHANNEL END» ILR, AND RESIDUAL COUNT OF 1 ALL TOGETHER 
FOLLOWED BY DEVICE END. THE CSW ADDRESS SHOULD POINT AT THE 
SECOND CCW OF THE CHAIN. 


************** 

ROUTINE 08 
************** 

OPERATION ATTEMPTED 

4 

A PUNCH FEED STACKER SELECT IS DATA AND COMMAND 
CHAINED TO AN INVALID COMMAND. THE CHANNEL IS ENABLED TWICE 
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* 

* 

♦ 

* . 

* 

* . 

♦ 

* 

* 

* 

♦ 

* 

* 

6 

* 

* 

* 0200 
♦ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 0210 
* 

* 

* 

* 

* 

* 

* 

* 

♦ : 

* 

* . 

* 

* 

* 

♦ 

* 

* 

* 

♦ 0220 
* 

* 

* 

* 

* 

* 

* 

* 

* . 

* 

* 

* 

* 

* 


FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT DATA CHAINING TO TAKE PRIORITY OVER COMMAND CHAINING 
AND THE INVALID COMMAND SHOULD NOT BE INSPECTED AND SHOULD 
NOT CAUSE COMMAND REJECT. EXPECT COND. CODE 0 ON THE START 
1-0 DUE TO CHAINING. CHAINING SHOULO NOT BE BROKEN AND EXPECT 
CHANNEL END FOLLOWED BY DEVICE END WITH NO OTHER STATUS BITS 
INDICATED. 


************** 

ROUTINE 09 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH THE TOTAL COUNT EQUAL TO -80-. THE CHANNEL IS 
ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 

EXPECT NO WRONG LENGTH RECORD INDICATION DUE TO TOTAL COUNT 
OF -80-. CHANNEL END FOLLOWED BY DEVICE ENQ INTERRUPT SHOULD 
OCCUR. 


A 

************** 

ROUTINE 10 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH THE TOTAL COUNT EXCEEDING -80-* THE 
CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 

SINCE THE COUNT EXCEEDS -80- EXPECT CHAINING TO BE BROKEN 
WITH ILR AND RESIDUAL COUNT INDICATED IN THE STATUS. 

CHANNEL END WITH A RESIDUAL COUNT AND WRONG LENGTH RECORD 
INDICATION WILL BE FOLLOWED BY DEVICE END STATUS. 


************** 

ROUTINE 11 
************** 

OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT IS DATA CHAINED TO FOUR DIFFERENT 
PLACES WITH TOTAL COUNT EXCEEDING -80-. THE SIL BIT 
IS SET ON AND THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT CONDITION CODE 0 TO BE SET ON THE START 1-0. 

SINCE THE COUNT EXCEEDS -80- EXPECT CHAINING TO BE BROKEN AND 
A RESIDUAL COUNT INDICATED. SUPPRESS INCORRECT LENGTH RECORD 
FLAG IN ON BUT INCORRECT LENGTH RECORD SHOULD STILL BE 
INDICATED. WHEN DATA CHAIN FLAG IS ON WITH SIL FLAG* WRONG 
LENGTH RECORD IS NOT SUPPRESSED. 

CHANNEL END WITH A RESIDUAL COUNT AND WRONG LENGTH RECORD 
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INDICATION WILL BE FOLLOWED BY DEVICE END STATUS. 


* 

♦ 

* 0230 

* 

* . 

♦ , 

♦ 

♦ 

♦ . 

♦ 


************** 

ROUTINE 12 
************** 

NOTE—THE NUMBERS PUNCHEO IN THE FIRST EIGHT COLUMNS OF EACH 
CARD SHOULD MATCH THE STACKER POCKET THEY FALL INTO. 


♦ 

* 0240 

* 

* 


♦ 0250 

* . 


♦ 

* 

* 0260 
* 

* . 

* 


- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER 1- COMMAND -01- 1$ ISSUED 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START I-O. A CHANNEL END INTERRUPT 

SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

THAT IS PUNCHED SHOULD FALL INTO STACKER -l- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -1-. 

- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER 2- COMMAND -41- IS ISSUED 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START I-O. A CHANNEL END INTERRUPT 

SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

THAT IS PUNCHED SHOULD FALL INTO STACKER -2- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -2-. 

- OPERATION ATTEMPTED 

A PUNCH FEED STACKER SELECT -STACKER 1- COMMAND -01- IS ISSUED 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START I-O. A CHANNEL END INTERRUPT 

SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

THAT IS PUNCHED SHOULD FALL INTO STACKER -1- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -I-. 

- OPERATION ATTEMPTED - 

A PUNCH FEED STACKER SELECT -STACKER 3- COMMAND -81- IS ISSUED 
THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

EXPECTED RESPONSE 

EXPECT COND. CODE 0 ON THE START I-O. A CHANNEL END INTERRUPT 

SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

THAT IS PUNCHED SHOULD FALL INTO STACKER -3- AND THE FIRST 
EIGHT COLUMNS OF THE CARD SHOULD BE PUNCHED WITH -3-. 


* 0265 - 

♦ . 


OPERATION ATTEMPTED 

A /360 WRITE STACKER SELECT POCKET 3 COMMAND -81- IS ISSUED 
AND 8 BLANKS ARE SENT OVER THE BUS. THIS COMMAND IS GIVEN TO 
FEED THE LAST CARD TO THE PROPER STACKER. 

EXPECTED RESPONSE 
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* PUNCHED. 

* EXPECTED RESPONSE 

* 

♦ EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 

♦ SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

♦ THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 

♦ STACKER SELECTED INTO POCKET -1-. 

♦ 

* 1250 - OPERATION ATTEMPTED 

♦ 

* A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 2- COMMAND 

* -51- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -1-. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

* THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 

* TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 

* STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST 

* PUNCHED. 

* 

* EXPECTED RESPONSE 

4 

* EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 

* SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

* THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 

* STACKER SELECTED INTO POCKET -2-. 

* 

* 

* 1260 - OPERATION ATTEMPTED 

* 

* A 1400 PUNCH COMPATIBILITY STACKER SELECT -STACKER 1- COMMAND 

* -11- IS ISSUED. THE FIRST EIGHT COLUMNS ARE PUNCHED WITH -3-. 

* THE CHANNEL IS ENABLED TWICE FOR INTERRUPTS. 

* . 

♦ THE STACKER SELECTION WHEN IN 1400 PUNCH COMPATIBILITY REFERS 

♦ TO THE PREVIOUSLY PUNCHED CARD. AS AN EXAMPLE, THE NEXT PUNCH 

♦ STACKER SELECT COMMAND WILL STACKER SELECT THE CARD JUST 

♦ PUNCHED. 

♦ 

♦ EXPECTED RESPONSE 

* 

* EXPECT COND. CODE 0 ON THE START 1-0. A CHANNEL END INTERRUPT 

* SHOULD OCCUR FOLLOWED BY A DEVICE END INTERRUPT. THE CARD 

* THAT WAS PUNCHED BY THE PREVIOUS TEST NUMBER WILL NOW BE 

* STACKER SELECTED INTO POCKET -1-. 


* 1265 

♦ 


OPERATION ATTEMPTED 

A 1400 WRITE STACKER SELECT POCKET 3 COMMAND -91- IS ISSUED 
AND 8 BLANKS ARE SENT OVER THE BUS. THIS COMMAND IS GIVEN 
TO ALLOW FEEDING THE LAST CARD PUNCHED FROM THE PRE-CHECK 
STATION TO THE PROPER STACKER BEFORE LEAVING THE TEST. 

EXPECTED RESPONSE 


♦ EXPECT COND CODE 0 WITH CHANNEL END RETURNED IN THE 1ST CSW 

♦ AND DEVICE END RETURNED ALONE IN THE 2ND CSW. 

♦ 

* 1270 - OPERATION ATTEMPTED 

♦ . 

44444444444444444444444444444444444444444444444444444444444444444444444 

* NOTE—SECTION SENSE $W -1- MUST BE ON IN CONJUNCTION WITH 

* SECTION SENSE SWITCH 11 12 OR 13 TO ENTER THIS TEST. 

* ******* ********************** ******** ***** * * * 4* * 4 * * ** ***************** 

4c . 

* A 1400 MODE PUNCH STACKE SELECT COMMAND IS ISSUED IN A TIGHT 

* START 1-0 TEST 1-0 LOOP. THE STACKER SELECTED IS DETERMINED 
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4 FROM THE SETTING OF SNS SWITCH 11 12 OR 13. NO ERROR CHECKING 

4 IS PERFORMED AND NO PRINTOUTS WILL INTERRUPT THIS LOOP* 

4c 

4 EXPECTED RESPONSE 

4c . 

4 EXPECT COND. CODE 0. 

4c 

4 NOTE—TO LOOP ON ANY ONE STACKER SELECT COMMAND SECTION SENSE 

4 SWITCH 11 12 OR 13 MUST BE ON. TO GO INTO A TIGHT START 

4 1-0 TEST 1-0 LOOP SECTION SENSE SW 1 MUST BE ON IN 

4 CONJUNCTION WITH EITHER SENSE SW 11 12 OR 13. 

4 SENSE SWITCH 11 SELECTS STACKER POCKET -1- 

4 SENSE SWITCH 12 SELECTS STACKER POCKET -2- 

4 SENSE SWITCH 13 SELECTS STACKER POCKET -3- 

4 WHEN DOING 1400 PUNCH COMPATIBILITY STACKER SELECT LOOP OPTION 

4 THE NUMBER PUNCHED IN THE CARD WILL MATCH THE STACKER POCKET 

4 IT IS FOUND IN. HOWEVER, WHEN LOOP OPTION SWITCH 11 12 OR 13 

4 IS TURNED OFF THERE WILL UNAVOIDABLY BE GENERATED ONE PUNCHED 

4 CARD WHICH HAS AN INCORRECT EXPECTED STACKER POCKET NUMBER 

4 PUNCHED IN IT. THIS SHOULD NOT BE CONSIDERED A MALFUNCTION. 

♦ 

*********************************************************************** 
******************* ******************* 

* SECTION PREFACE 4*4444444444444444444**4444**4444*4 SECTION PREFACE * 
******************* ******************* 


001000 

F8213000 

SEGNO 

DC 

XL4*F8213000* 

PROGRAM,SECTION AND REVISION 

NOS. 

4 

001004 

00000000 

SNSW 

DC 

XL4 1 00* 

SECTION SENSE SWITCHES 


* 

001008 

0000 


DC 

XL2 * 00® 



4 

00100A 

0000 

ICM 

DC 

XL2* 00* 

INTERRUPTION CONDITION MASK 


4 

00100C 

00 

SOME 

DC 

XL1* 00* 

SECTION DM FLAGS 


4 

00100D 

01 

NIOU 

DC 

XL 1 * 01 * 

NUMBER OF UNIT TABLE ENTRYS 


4 

00100E 

CO 

FLAG1 

DC 

X*CO* 

EXCLUSIVE CPU 


* 

00100F 

00 

FLAG2 

DC 

X*00» 

I/O INT ARE ERR, EXT INT TO PROG 

4 

001010 

0104000000 

INPSW 

DC 

X*0104000000* 

DISABLED, SPVSR STATE, NO PGM 

MASK 

4 

001015 

001784 


DC 

AL3(R0UT01J 

ADR OF 1ST ROUTINE PREFIX 


4 

001018 

0000000000000000 

EXOPSW 

DC 

XL8•0* 

SECTION OLD EXTERNAL PSW 


4 

001020 

0000000000000000 

SVOPSW 

DC 

XL8 * 00* 

CLEAR ALL OLD PSWS 


4 

001028 

0000000000000000 

PGOPSW 

DC 

XL8•00* 

PROGRAM OLD PSW 


4 

001030 

0000000000000000 

MCOPSW 

DC 

XL8 1 00* 

MACHINE CHECK OLD PSW 


4 

001038 

0000000000000000 

IOOPSW 

DC 

XL8* 00* 

I/O OLD PSW 


4 

001040 

0000000000000000 

CSW 

DC 

XL8 *00* 

CHANNEL STATUS WORD 


4 

001048 

00000000 

CAW 

DC 

XL4* 00* 

CAW 


4 

00104C 

000000000000000000 


DC 

XL12 *00* 

RESERVED FOR DM USE 


4 

001055 

000000 







001058 

0004000000 

EXNPSW 

DC 

X*0004000000* 

EXTERNAL NEW PSW 


4 

00105D 

000000 

SRET 

DC 

XL3 * 0 * 

ADR OF EXT INTRPT ROUTINE 


4 

001060 

0000000000000000 

SVNPSW 

DC 

XL8 * 00* 

SUPERVISOR NEW PSW 


* 

001068 

0000000000000000 

PGNPSW 

DC 

XL8•00“ 

PROGRAM NEW PSW 


4 

001070 

0000000000000000 

MCNPSW 

DC 

XL8 * 00* 

MACHINE CHECK NEW PSW 


4 

001078 

01040000 

IONPSW 

DC 

XL4*01040000* 

I/O NEW PSW 


4 

00107C 

00001230 


DC 

AL4(IRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 


4 

001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM 

USE 

4 

0010E0 

82 

UNIT1 

DC 

X* 82* 

UNIT TYPE - 2540 PUNCH 



0010E1 

00 

U10P 

DC 

X*00* 

OPTIONAL FEATURES BYTE 


4 

0010E2 

8000 

U1ADDR 

DC 

X* 8000* 

FLAGS AND CHAN/UNIT ADDRESS 


4 


*********************************************************************** 
*********************************************************************** 
* 2540 PUNCH OPTIONAL FEATURES ASSIGNMENT 


**********4**4444444444444444444444444444*444*44**444*444*4444444444444 

4t 

* UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 
******{*****!****************************£ ***************************** 

* I IBIT 0 BIT 1 BIT 2 BIT 3 I BIT 4 BIT 5 BIT 6 BIT 7 

4 I IHEX 8 HEX 4 HEX 2 HEX II HEX 8 HEX 4 HEX 2 HEX 1 

42540 I 82 1 CARD PUNCH 51 COL I 1400 2 CHAN 

4PUNCHI I IMAGE FEED FEAT. I COMPAT SW. ON 

* I I READ iI FEAT. 2821 

**44*4 1444441 **************************** | **444444444444444444444444444 
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44444444444444444444444444444444444444444444444444444444444444444444444 

44444444444444444444444444444444444444444444444444444444444444444444444 

* 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 
44444444444444444444444444444444444444444444444444444444444444444444444 

* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 X UPPER CHECK PLANE 

* 4 X LOWER CHECK PLANE ' 

* 5 BUFFER PARITY CHECK 

* 6 PUNCH TRANSLATE CHECK 

* 7 PUNCH BUFFER ADDRESS CHECK 

************************+++**+****+*+*+++++++++++++++++++++++++++++ 1 ,+++ 
44444444444444444444444444444444444444444444444444444444444444444444444 
44444444444444444444444444444444444444444444444444444444444444444444444 

* 2540 PUNCH SENSE BYTE 

44444444444444444444444444444444444444444444444444444444444444444444444 

* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR. 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

44444444444444444444444444444444444444444444444444444444444444444444444 

44444444444444444444444444444444444444444444444444444444444444444444444 

* 2540 PUNCH STATUS BYTE 

44444444444444444444444444444444444444444444444444444444444444444444444 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 

44444444444444444444444444444444444444444444444444444444444444444444444 

+*********+***+*******+*+*++**********+++*++*+++*+ 4 ++*+***+*+**+++**++* 

44444444444444444444444444444444444444444444444444444444444444444444444 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 

44444*444*4*44444444444444444444444444444444444444444444444444444444444 

* BAL R11,ISIO LINK TO 1-0 HANDLER 

* DC XL2*0000* CONTROL SWITCHES 

* DC X*0014* TEST NO. IN DEC EXPRESSED IN HEX 

* DC X'F0« EXPECTED COND. CODE 

* DC X«00» EXPECTED SENSE DATA 

* DC AL2(ADR-BA SE+REGI ADDR. OF EXPECTED CSW IF NEEDED 

444 * 4444444 * 4 ******^** 3 |^************** + ************** 3|t *, M! , Ml+1|t3|t3|t4l , (t!|t4t4tj<C!|t+ 

*44*4444444**4*44*4*4*4***444**4*4*4***4*44**4444444444*444*4444444444* 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 

*********++*+***+***********+*******++++*+*++++++mmm [ mmm i m+ 

* SWITCH DESCRIPTION 

* o —— OFF :— ISSUE AN 1-0 COMMAND 

* ON - DO NOT ISSUE AN 1-0 COMMAND 

* i ™ OFF - ENABLE 

* ON - DO NOT ENABLE 

* 2 OFF - EXPECT NO INTERRUPT 

* ON - EXPECT AN INTERRUPT 

* 3 - OFF - DO NOT EXPECT 2 INTERRUPTS 

* ON - EXPECT 2 INTERRUPTS 
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♦ 4 -~ OFF - EXPECT NO CSWS 

♦ ON - EXPECT A CSW 

41 5 - OFF - DO NOT EXPECT 2 CSWS 

♦ ON - EXPECT 2 CSWS 

41 6 •-— OFF - ALWAYS TRY TO ISSUE SENSE 

♦ ON - SENSE ON UNIT CHECK ONLY 

4 

♦ 8 -- OFF - NOT EXECUTING STACKER SELECT TESTS 

♦ ON - EXECUTING STACKER SELECT TESTS. 

♦ 

44444444444444444444444444*44444444444444444444444444444444444444444444 

44444444444444444444444444444444444444444444444444444444444444444444444 

* SWITCHES USED BY 1-0 HANDLER 

44444444444444444444444444444444444444444444444444444444444444444444444 

* SWITCH DESCRIPTION 


4 

0 

•— 

OFF 

- 

NO HANGUP ON INTERFACE 

* . 



ON 

- 

HANGUP OCCURRED 

4 

1 

-- 

OFF 

- 

NO CSWS STORED 

4 



ON 

- 

ONE CSW STORED 

4 . 

2 


OFF 

- 

SECOND CSW NOT RECEIVED 

4 



ON 

- 

SECOND CSW RECEIVED 

4 . 

3 

—- 

OFF 

- 

DID NOT ENABLE 

4 



ON 

- 

ENABLED ONCE 

4 

4 

-— 

OFF 

- 

DID NOT ENABLE TWICE 

4 , 



ON 

- 

ENABLED TWICE 

4 

5 

—, 

OFF 

- 

NO SENSE DATA RECEIVED 

4 . 



ON 

- 

SENSE DATA RECEIVED 

4 

6 

— 

OFF 

— 

NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

4 



ON 

- 

UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

4 

7 

— 

OFF 

- 

NO ERROR DETECTED 

4 



ON 

- 

AN ERROR WAS DETECTED 


44444444444444444444444444444444444444444444444444444444444444444444444 
» REGISTERS USED IN 1-0 HANDLER 

444444444444444444444444444444444*4444*444444444*44444*44*444444*444444 

♦ REG COMMENTS 

♦ 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

♦ PREVIOUS HANGUP ON INTERFACE DETECTED. 

♦ 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

* 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

♦ . 

♦ 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

♦ 

* 11 MUST BE USED AS LINK REG TO THIS ROUTINE 

* 

* 12 MUST CONTAIN DEVICE ADDRESS 

♦ 

4****4*4*444*4*4*44******444444444*444444*4444444444*44444444**4***4*44 
0010E4 0000 ISW DC XL2 , 0* 

4*444444444444444444444444444444444444444444444444444444444444444444444 
***4444*44444**44444*44444444444444444444444*44444444444444444444444444 
* * 1-0 HANDLER SUB-ROUTINE * 

4444444*444444444444444444444444444444444444444444444444444444444444444 


0010E6 

92 

9E 

F 

1B6 

IHIO 

MVI 

ISSUE,X*9E* 

SET UP FOR HALT 1-0 

0010EA 

92 

C 8 

F 

659 


MVI 

I0PT1+25,X*C8* 

MOVE -H— TO OPTION MSG. 

0010EE 

92 

C 8 

F 

5C0 


MVI 

I0ADDR+12,X V C 8 * 


0010F2 

92 

9E 

F 

15A 


MVI 

ILOOP,X'9E # 


0010F6 

47 

FO 

F 

HE 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

0010FA 

92 

9D 

F 

1B6 

IT 10 

MVI 

ISSUE,X«9D» 

SET UP FOR TEST 1-0 

0010FE 

92 

9D 

F 

15A 


MVI 

ILOOP,X*9D* 


001102 

92 

E3 

F 

659 


MVI 

I0PTl+25,X f E3 # • 

MOVE -T- TO OPTION MSG. 

001106 

92 

E3 

F 

5C0 


MVI 

I0ADDR+12,X*E3 # 


00110A 

47 

FO 

F 

HE 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

00110E 

92 

9C 

F 

1B6 

ISIO 

MVI 

ISSUE,X*9C* 

SET UP FOR START I-0 

001112 

92 

9C 

F 

15A 


MVI 

ILOOP #X # 9C* 


001116 

92 

E2 

F 

659 


MVI 

I0PT1+25,X*E2* 

MOVE.-S- TO OPTION MSG. 

00111A 

92 

E2 

F 

5C0 


MVI 

I0ADDR+12»X *E2* 
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0011IE 02 01 F 63C B 002 

001124 1 90 AB F 6A8 

001128 90 89 F 580 

00112C 02 00 F 695 F 003 

001132 50 AD 0 048 

001136 07 <07 D 040 D 040 

00113C 07 OB E 080 E 060 

001142 91 80 B 000 

001146. 47 10 F 200 

00114A 91 CO F 004 

00114E 47 80 F 196 


001152 

91 

80 

F 

004: 

001156 

47 

80 

F 

162 

00115 A 

9C 

00 

C 

000 

00115 E 

47 

FO 

F 

152 

001162 

91 

40 

F 

004 

001166 

47 

80 

F 

182 

00116A 

9D 

00 

C 

000 

00116E 

47 

70 

F 

152 

001172 

91 

40 

F 

004 

001176 

47 

80 

F 

182 

00117A 

9C 

00 

C 

000 

00117E 

47 

FO 

F 

16A 

001182 

58 

IE 

0 

198 

001186 

m 

10 

0 

003 

00118A 

- ' 90 

00 

C 

000 

00118E 

47 

80 

F 

196 

.001192 

46 

10 

F 

18A 

001196 

07 

01 

F 

0E4 F 

00119C 

96 

80 

F 

0E4 

0011AO 

92 

E7 

F 

5AF 

0011A4 

91 

01 

B 

001 

0011A8 

47 

10 

F 

1B6 

0011AC 

92 

40 

F 

6FC 

0011B0 

D2 

4E 

F 

6FD F 

0011B6 < 

9C 

00 

C 

000 

0011BA 

47 

80 

F 

1FC 

0011BE 

47 

40 

F 

1D6 

0011C2 

47 

20 

F 

ICE 

0011C6 

92 

F3 

F 

5AF 

0011CA 

47 

FO 

F 

200 

001ICE 

92 

F2 

F 

5AF 

0011D2 

47 

FO 

F 

200 

0011D6 

92 

FI 

F 

5AF 

001IDA 

D2 

07 

F 

676 D 

0011E0 

96 

40 

F 

0E4 

0011E4 : 

91 

80 

B 

001 

0011E8 

47 

80 

F 

200 

0011 EC 

91 

08 

F 

67A 

0011F0 

47 

10 

F 

200 

0011F4 : 

96 

40 

B 

000 

0011F8 

47 

FO 

F 

200 

0011FC 

92 

FO 

F 

5AF 

001200 

94 

7F 

F 

0E4 

001204 

91 

40 

B 

000 

001208 

47 

10 

F 

2A4 

00120C 

96 

10 

F 

0E4 

001210 

58 

9E 

0 

198 

001214 

88 

90 

0 

003 

001218 

96 

80 

F 

0E4 

00121C 

80 

00 

F 

693 

001220 

46 

90 

F 

220 

001224 

80 

00 

F 

694 

001228 

94 

7F 

F 

0E4 

00122C 

47 

FO 

F 

2A4 


IEYEOH MVC ITSTN0+5(2),2fRll) SAVE TEST NUMBER 

STM: RlOfRlltlSLAVE SAVE REG 10 AND REG 11 

STM R8,R9,I SAVE SAVE REGS 8 AND 9 

MVC RTSVC1)»SECNO+3 SAVE RT NO. FOR HANGUP. 

GOMAN ST R10,HCAW(R13) StORE COMMAND ADDRESS 

XC HCSW<8,R13),HCSW(R13) 

XC LOGOUT!12*RI4),LOGOUT(R14) 

TM 0(R11),X*80 9 CHECK CONTROL SWITCH FOR NO 1-0 

BC ALL y INOW BR. IF ON 

TM SNSWy X 9 C0 9 

BC NONE♦JOHN 

* SENSE SWITCH LOOPS 

ITRY1 TM SNSW,X 9 80 9 CHECK SECTION SENSE SWITCH 0 

BC NONEyITRY2 BR. IF OFF 

ILOOP SIO 0(R12) SlOy TlOy OR HIO 

BC UNCylTRYl BR. UNCONDITIONAL 

ITRY2 TM SNSWyX 9 40 f CHECK SECTION SENSE SWITCH 1 

BC NONE,IHI BR. IF OFF 

IHANG TIO 0(R12) TEST 1-0 



BC 

NCCOylTRYl 


TM 

SNSW,X 9 40 9 


BC 

NONE,IHI 


SIO 

0(R12) 


BC 

UNC,IHANG 

IHI 

L 

RlyWT(14) 


SRL 

R 1 y 3 

GREG 

TIO 

0CR12) 


BC 

CCO,JOHN 


BCT 

RlyGREG 

JOHN 

XC 

ISW(2),ISW 


01 

ISWy X * 80* 


MVI 

IACTCC+5,C*X # 


TM 

1(R11),X 9 01 9 


BC 

ALL,ISSUE 


MVI 

PCHAR,C 9 • 


MVC 

PCHAR+1(79)yPCHAR 

ISSUE 

SIO 

0(R12) 


BC 

CCO,IZERO 


BC 

CClylONE 


BC 

CC2,1 TWO 


MVI 

IACTCC+5»X 9 F3 9 


BC 

UNC,INOW 

ITWO 

MVI 

I ACTCC+5,X # F2 9 


BC 

UNCyINOW 

I ONE 

MVI 

IACTCC+5,X 9 F1• 


MVC 

ICSW1(8) f HCSW( R13) 


01 

ISWyX 9 40 9 


TM 

11R11),X 9 80 9 


BC 

NONE,INOW 


TM 

ICSW1+4,X 9 08 9 


BC 

ALLyINOW 


01 

0(R11),X•40 * 


BC 

UNC,INOW 

I ZERO 

MVI 

IACTCC+5,X*F0* 

INOW 

NI 

ISW »X 9 7F 9 


TM 

0(RinyX*40 9 


BC 

ALL,I SEN 


01 

ISW,X * 10 * 

IWAIT 

L 

R9,WT(R14) 


SRL 

R9,3 


01 

ISW,X*80® 


SSM 

MSK1 


BCT 

R9y* 


SSM 

MSK2 


NI 

ISW,X*7F * 


BC 

UNC•I SEN 


BR. IF NOT COND. CODE 0 
CHECK SECTION SENSE SWITCH 1 
BR. IF OFF 
START I—0 
BR. UNCONDITIONAL 


MOVE IN A -X- 

SEE IF IN STACKER SELECT TEST. 

BR IF YES. 

CLEAR WORK AREA. 

1-0 COMMAND- SIO, TIO, OR HIO 

BR. IF COND. CODE 0 

BR. IF COND. CODE 1 

BR. IF COND. CODE 2 

INDICATE COND. CODE 3 

BR. UNCONDITIONAL 

INDICATE COND. CODE 2 

BR. UNCONDITIONAL 

INDICATE COND. CODE 1 

SAVE CSW 

INDICATE 1 CSW 

SEE IF INVALID COMMANDS TEST 
BR. IF NOT 

SEE IF CHANNEL END IN STATUS 
BR. IF YES 

DO NOT ALLOW FOR ENABLE INTERRUPT 

BR. UNCONDITIONAL 

INDICATE COND. CODE 0 

TURN OFF HANG UP SWITCH 

CHECK CONTROL SWITCH FOR NO ENABLE 

BR. IF ON 

INDICATE ENABLED ONCE 
LOAD DM WAIT FACTOR 
ADJUST 

TURN ON HANG UP SW 

ENABLE 

WAIT 

DISABLE 

TURN OFF HANG SW 
BR. UNCONDITIONAL 


DATE 05MAY65 10AUG65 15N0V65 15JUN67 

EC 124252 125580 125624 130498 


ID F821-3 
PAGE 7 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840193 
PAGE 7A 

2540 PUNCH FUNCTION TESTS - SECTION 2 F821 


ye********************************************************************** 
* ALL 1-0 INTERRUPTS RETURN HERE 

t**^*****^*********************************************************** 


001230 

49 

CO 

F 

03A 



IRETRN CH 

R12,I00PSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

001234 . 

47 

60 

F 

252 



BC 

UNEQylUIO 

BR. IF UNEQUAL 

001238 

94 

7F 

F 

0E4 



NI 

I SWyX *7F 9 

RESET HANG UP SW 

00123C 

91 

40 

F 

0E4 



TM 

ISW,X , 40 8 


001240 

47 

10 

F 

282 



BC 

ALL yISV2 

BR. IF 1 CSW ALREADY STORED 

001244 : 

D2 

07 

F 

676 

F 

040 

MVC 

ICSW1(8)yHCSW(R15) 

SAVE CSW 1 

00124A 

96 

40 

F 

0E4 



01 

ISWy X•40• 

INDICATE 1 CSW STORED 

00124E 

47 

FO 

F 

28C 



BC 

UNC,INT3 

BR. UNCONDITIONAL 

001252 

D2 

07 

F 

588 

F 

040 

IUIO MVC 

WORK(8),HCSW(R15) 


001258 

OA 

DD 





SVC 

X 9 DD 9 

CONVERT ADDRESS 

00125A 

0003 





DC 

AL24 3) 


00125C 

0039 





DC 

AL2(IQOPSW+l-SECNO) 


00125E 

069B 





DC 

AL 241UNE X+5-SECN01 


001260 

OA 

DO 





SVC 

X * D 0 * 

PRINT UNEXPECTED INTERRUPT DEVICE 

001262 

64 






DC 

X • 64* 

ADDRESS 

001263 

OB 






DC 

X 9 OB 9 


001264 

F696 





DC 

AL2 CIUNEX-SECN0+REG1 


001266 

D2 

02 

F 

5E6 

F 

5DF 

MVC 

IBLAH+K 3) y ICSW 

MOVE -CSW- TO MESSAGE 

00126C 

92 

1A 

F 

42F 



MVI 

ICNT,X 9 1A 9 

ADJUST COUNT 

001270 

D2 

02 

F 

5FC 

F 

5FF 

MVC 

IBLAH+23(3)ylACT 

MOVE -ACT-* TO MESSAGE 

001276 

45 

90 

F 

418 



BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

00127A 

96 

02 

F 

0E4 



01 

ISWyX 9 02 9 

INDICATE UIO 

00127E 

47 

FO 

F 

502 



BC 

UNC,ILOGED 

BR. UNCONDITIONAL 

001282 

D2 

07 

F 

67E 

F 

040 

1SV2 MVC 

ICSW2(8)yHCSWfR15I 

SAVE CSW 2 

001288 

96 

20 

F 

0E4 



01 

ISW,X , 20* 

INDICATE 2 CSWS STORED 

00128C 

91 

10 

B 

000 



INT3 TM 

omin,x*io« 

CHECK CTRL SW FOR 2 INTR EXPECTED 

001290 

47 

80 

F 

2A4 



BC 

NONE,I SEN 

BR. IF NOT 

001294 

91 

08 

F 

0E4 



TM 

ISWyX 9 08 9 


001298 

47 

10 

F 

2A4 



BC 

ALL,I SEN 

BR. IF ALREADY ENABLED TWICE 

00129C 

96 

08 

F 

0E4 



01 

ISWrX•08 9 

INDICATE ENABLED TWICE 

0012AO 

47 

FO 

F 

210 



BC 

UNC,IWAIT 


0012A4 : 

91 

02 

B 

000 



ISEN TM 

0«R1U,X 9 02 9 

CHECK CONTROL SWITCH FOR SNS ON UC 

0012A8 

47 

80 

F 

2CC 



BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

0012AC 

91 

40 

F 

0E4 



TM 

ISWyX 9 40 9 


0012B0 

47 

80 

F 

322 



BC 

NONE,IBSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

0012B4 

91 

02 

F 

67A 



TM 

ICSW1+4,X 9 02 9 

CHECK FOR UNIT CHECK 

0012B8 

47 

10 

F 

2CC 



BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

0012BC 

91 

20 

F 

0E4 



TM 

ISWyX 9 20 9 

CHECK FOR SECOND CSW 

0012C0 

47 

80 

F 

322 



BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

0012C4 

91 

02 

F 

682 



TM 

ICSW2+4,X 9 02 9 

CHECK FOR UNIT CHECK 

0012C8 

47 

80 

F 

322 



BC 

NONEyIBSN 

BR. IF NOT TO BYPASS SENSE 

0012CC 

58 

9E 

0 

198 



IDOSNS L 

R9,WT(R14I 

LOAD DM WAIT FACTOR 

0012D0 

88 

90 0 

002 



SRL 

R9y2 

CUT IT DOWN TO 2.5 SECS. 

0012D4 

41 

80 

F 

688 



LA 

R8,I SENSE 

LOAD SENSE COMMAND ADDRESS 

0012D8 

50 

8D 

0 

048 



ST 

R8,HCAWCR135 

STORE IN CAW 

0012DC 

9C 

00 

C 

000 



SIO ' 

0(R12) 

ISSUE SENSE 

0012E0 

47 

70 

F 

370 



BC 

NCCO,INDER 

BR. IF NOT ACCEPTED 

0012E4 

9D 

00 

C 

000 



ITIOLP TIO 

0(R12) 

TEST 1-0 

0012E8 

47 

40 

F 

30C 



BC 

CC1,ILOKE 

BR. IF CSW STORED 

0012EC 

46 

90 

F 

2E4 



IT IC BCT 

R9,ITIOLP 


0012F0 

47 

FO 

F 

322 



BC 

UNC,IBSN 

BR. UNCONDITIONAL 

0012F4 

91 

40 

F 

0E4 



IN0EX1 TM 

ISW,X 9 40 9 


0012F8 

47 

10 

F 

370 



BC 

ALL,INDER 

BR. IF CSW STORED 

0012FC 

47 

FO 

F 

374 



BC 

UNCyIDUNCK 

BR. UNCONDITIONAL 

001300 

91 

20 

F 

0E4 



IN0EX2 TM 

I$W,X 9 20 9 


001304 

47 

10 

F 

370 



BC 

ALLyINDER 

BR. IF CSW 2 STORED 

001308 

47 

FO 

F 

374 



BC 

UNCyIDUNCK 

BR. UNCONDITIONAL 

00130C 

95 

OC 

0 

044 



ILOKE CLI 

HCSW+4IR13),X 9 OC 9 

CHECK FOR CE DE ONLY 

001310 

47 

70 

F 

2EC 



BC 

NCCO,I TIC 

BR. IF NOT 

001314 

96 

04 

F 

0E4 



01 

ISWyX 9 04 9 

INDICATE SENSE DATA RECIEVED 

001313 

D5 

00 

F 

615 

B 

005 

CLC 

IACSNS+5C 1)*5(R11) 

COMPARE FOR EXPECTED SENSE 

00131E 

47 

60 

F 

370 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001322 

D5 

00 

F 

5AF 

B 

* 

o 

o 

IBSN CLC 

IACTCC+5I 11 ,4(R11) 

COMPARE FOR EXPECTED COND. CODE 

001328 

47 

60 

F 

370 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

00132C 

91 

08 

B 

000 



TM 

Of RID , X 9 08® 



DATE 

05MAY65 
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ID 
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EC 
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001330 

47 

80 

F 

2F4 

> 


001334 

91 

40 

F 

0E4 



001338 

47 

80 

F 

370 



00133G 

48 

8 B 

0 

006 



001340 

40 

80 

F 

348 



001344 

D5 

07 

F 

676 

F 

676 

00134A 

47 

60 

F 

370 



00134E 

91 

04 

B 

000 



001352 

47 

80 

F 

300 



001356 

91 

20 

F 

0E4 



00135A 

47 

80 

F 

370 



0013 5 E 

41 

88 

0 

008 



001362 

40 

80 

F 

36A 



001366 

D5 

07 

F 

67E 

F 

67E 

00136C 

47 

80 

F 

374 



001370 

96 

01 

F 

0E4 



001374 

92 

64 

F 

3A4 



001378 

92 

CO 

F 

548 



00137C 

91 

01 

F 

0E4 



001380 

47 

10 

F 

394 



001384 

91 

01 

F 

004 



001388 

47 

80 

F 

564 



00138C 

92 

24 

F 

3A4 



001390 

92 

80 

F 

548 



001394 

D2 

01 

F 

63C 

B 

002 

00139A 

OA 

DD 





00139C 

0002 





00139E 

063C 





0013AO 

063C 





0013A2 

OA 

DO 





0013A4 

64 






0013A5 

09 






0013A6 

F637 





0013A8 

41 

80 

0 

004 



0013AC 

IB 

B 8 





0013AE 

50 

BO 

F 

5C8 



0013B2 

OA 

DD 





0013B4 

0003 





0013B6 

05C9 





0013B8 

05C8 





0013BA 

OA 

DO 





0013BC 

AO 






0013BD 

10 






0013BE 

F5C3 





0013C0 

41 

BB 

0 

004 



0013C4 

91 

80 

B 

000 



0013C8 

47 

10 

F 

446 



0013CC 

OA 

DD 





0013CE 

0003 





0013DO 

0690 





0013D2 

05B9 





0013D4 

OA 

DO 





0013D6 

AO 






0013D7 

OF 






0013D8 

F5B4 





0013DA 

95 

9C 

F 

1B6 



0013DE 

47 

60 

F 

434 



0013E2 

50 

AO 

F 

5D8 



0013E6 

OA 

DD 





0013E8 

0003 





0013EA 

05D9 





0013EC 

05D8 





0013EE 

OA 

DO 





0013F0 

AO 






0013F1 

OB 






0013F2 

F5D3 





0013F4 

D 2 

02 

F 

5E6 1 

F 

5E2 

0013FA 

92 

16 

F 

42F 




BC 

NONE*IN0EX1 

TM 

ISW,X*40» 

BC 

NONE,1NDER 

LH 

R8,6(R11) 

STH 

R 8 ,ICCSW1+4 

1CCSW1 CLC 

ICSW1( 8 )yICSW1 

BC 

UNEQtINDER 

TM 

0<R11),X*04* 

BC 

NONE,INOEX2 

TM 

ISW,X f 20' 

BC 

NONE,INDER 

LA 

R 8 , 8 IR 8 ) 

STH 

R 8 ,ICCSW2+4 

ICCSW2 CLC 

ICSW2C8),1CSW2 

BC 

EQ,IDUNCK 

1NDER 01 

ISW,X*01» 

IDUNCK MVI 

IFLAGl,X*64* 

MVI 

IFLAG2,X *C 0 • 

TM 

ISW,X*01* 

BC 

ALL,IOUTIT 

TM 

SNSW,X*01• 

BC 

NONE,ILEAVE 

MVI 

IFLAGl,X*24* 

MVI 

IFLAG2,X*80* 

IOUTIT MVC 

ITSTN0+5I 2 ),2(Rll) 

SVC 

X*DD* 

DC 

AL2C2) 

DC 

AL 2 CITSTN0+5-SECN0) 

DC 

AL2CITSTN0+5-SECN0) 

SVC 

X*DO* 

IFLAGl DC 

X *64* 

DC 

X 1 09* 

DC 

AL2CITSTNO-SECNO+REG) 

LA 

R 8 t 4 

SR 

RII 9 R 8 

ST 

Rll,ILINK+5 

SVC 

X*DD* 

DC 

AL213) 

DC 

AL2 CILINK+ 6 —SECNO) 

DC 

AL2(ILINK+5-SECN0) 

SVC 

X*DO* 

DC 

X * AO* 

DC 

X*10* 

DC 

AL2( I LINK-SECNO+REG) 

LA 

Rll,4(R11) 

TM 

0(R11),X* 80* 

BC 

ALL,IOCSW 

SVC 

X'DD* 

DC 

AL2C3) 

DC 

AL2(IOADR—SECNO) 

DC 

AL 2 (IOADDR+5-SECNO) 

SVC 

X*D0* 

DC 

X* AO* 

DC 

X • OF • 

DC 

AL2(IOADDR-SECNO+REG) 

CLI 

ISSUE,X*9C• 

BC 

UNEQ,ICCOUT 

ST 

R10.ICAW+5 

SVC 

X*DD* 

DC 

AL2(3! 

DC 

AL2(ICAW+6-SECN0) 

OC 

AL2UCAW+5-SECN0) 

SVC 

X*00* 

DC 

X*AO* 

DC 

X*OB* 

OC 

AL2(1CAW~ SECNO+REG) 

MVC 

IBLAH+1131,ICC W 

MVI 

ICNT,X*16* 


BR. IF NO CSW EXPECTED 

BR. IF NO CSW RECIEVED 
LOAD CSW ADDR 
STORE IN COMPARE INSTR. 
COMPARE FOR EXPECTED CSW 
BR. IF UNEQUAL 

BR. IF NO CSW 2 EXPECTED 

BR. IF NO CSW 2 RECIEVED 
UPDATE TO SECOND CSW 

COMPARE FOR EXPECTED CSW 2 

BR. IF EQUAL 

INDICATE AN ERROR 

SET UP FOR ERROR PRINTOUT 

CHECK FOR A DETECTED ERROR 
BR. IF ERROR DETECTED 
CHECK SECTION SENSE SWITCH 7 
BR. IF OFF 

SET UP FOR CORRECT PRINTOUT 

MOVE TEST NUMBER TO PRINT 
CONVERT TEST NUMBER 


PRINT TEST NUMBER 


ADJUST LINK ADDRESS FOR PRINTOUT 


CONVERT LINK ADDRESS 


PRINT LINK ADDRESS 


BR. IF NO I-C COMMAND ISSUED 
CONVERT 1-0 ADDRESS 


PRINT 1-0 ADDRESS 


COMPARE FOR SIO COMMAND 
BR. IF NOT 
STORE CCW ADDR. 

CONVERT CAW 


PRINT CAW 


MOVE -CCW- TO MESSAGE 
ADJUST COUNT 
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0013FE 

D2 

07 

F 

588 

A 

000 

ICWOUT tMVC 

WORK! 8 ),0(R10) 

MOVE CCW TO WORK AREA 

001404 : 

45 

90 

F 

418 




BAL 

R9,ICOUT 

BR. TO OUTPUT CCW 

001408 

91 

CO 

A 

004 




TM 

4(RIO),X*C 0 * 

CHECK FOR ANY CHAIN FLAGS 

00140C 

47 

80 

F 

434 




BC 

NONE,ICCOUT 

BR. IF NONE 

001410 

41 

AA 

0 

008 




LA 

R10,8(R10) 

UPDATE TO NEXT CCW 

001414 

47 

FO 

F 

3FE 




BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

001418 

OA 

DD 





ICOUT 

SVC 

X*DD* 

CONVERT 

00141A 

0008 






DC 

AL2( 8 ) 


00141C 

0588 






DC 

AL2(WORK-SECNO) 


0014IE 

0588 






DC 

AL2(WQRK-SECNO) 


001420 

D 2 

07 

F 

5EA 

F 

588 


MVC 

IBLAH+5I 8 ),WORK 

MOVE TO MESSAGE 

001426 

D2 

07 

F 

5F3 

F 

590 


MVC 

IBLAH+14I8) 9 W0RK+8 


00142C 

OA 

DO 






SVC 

X* DO* 

PRINT 

00142E 

AO 







DC 

X*AO* 


00142F 

1A 






ICNT 

DC 

X* 1A • 


001430 

F5E5 






DC 

AL2(IBLAH-SECNO+REG) 


001432 

07 

F9 






BCR 

UNC,R9 

RETURN VIA REG 9 

001434 

D2 

00 

F 

5A5 

B 

004 

ICCOUT MVC 

IEXPCC+5C1),4(Rll) 

MOVE EXP CC TO MESSAGE 

00143A 

OA 

DO 






SVC 

X*DO* 

PRINT EXPECTED COND. CODE 

00143C 

AO 







DC 

X* AO* 


00143D 

OA 







DC 

X * OA * 


00143E 

F5A0 






DC 

AL 2 (IEXPCC-SECNO+REG) 


001440 

OA 

DO 






SVC 

X*DO* 

PRINT ACTUAL COND. CODE 

001442 

AO 







DC 

X* AO* 


001443 

OA 







DC 

X • OA • 


001444 

F5AA 






DC 

AL2(IACTCC-SECNO+REG) 


001446 

02 

02 

F 

5E6 

F 

5DF 

IOCSW 

MVC 

IBLAH+1C3) 9 ICSW 

MOVE -CSW- TO MESSAGE 

00144C 

92 

1A 

F 

42F 




MVI 

ICNT,X*1A * 

ADJUST COUNT 

001450 

91 

08 

B 

000 




TM 

0(R11),X*08* 


001454 

47 

80 

F 

478 




BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

001458 

D 2 

02 

F 

5FC 

F 

602 


MVC 

IBLAH+23C3),IEXP 

MOVE -EXP- TO MESSAGE 

00145E 

48 

8 B 

0 

006 




LH 

R 8 , 6 (Rll) 


001462 

40 

80 

F 

472 




STH 

R 8 ,ICHNG1+4 


001466 

41 

88 

0 

008 




LA 

R 8 , 8 (R 8 ) 


0014.6 A 

40 

80 

F 

4A2 




STH 

R 8 ,ICHNG2+4 


00146E 

D 2 

07 

F 

588 

F 

588 

ICHNG1 

MVC 

WORK( 8 ),WORK 

MOVE EXPECTED CSW TO WORK AREA 

001474 

45 

90 

F 

418 




BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

001478 

91 

40 

F 

0E4 



IDIDI 

TM 

ISW,X*40* 


00147C 

47 

80 

F 

490 




BC 

NONE,IMORST 

BR. IF NO CSW STORED 

001480 

02 

02 

F 

5FC 

F 

5FF 


MVC 

IBLAH+23I3),IACT 

MOVE -ACT- TO MESSAGE 

001486 

D 2 

07 

F 

588 

F 

676 


MVC 

WORK! 8 ),1CSW1 

MOVE ACTUAL CSW TO WORK AREA 

00I48C 

45 

90 

F 

418 




BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

001490 

91 

04 

B 

000 



IMORST 

TM 

0(R11),X*04* 


001494 

47 

80 

F 

4A8 




BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

001498 

D2 

02 

F 

5FC 

F 

602 


MVC 

IBLAH+23I3),IEXP 

MOVE -EXP- TO MESSAGE 

00149E 

02 

07 

F 

588 

F 

588 

ICHNG2 

MVC 

W0RKC8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

0014A4 

45 

90 

F 

418 




BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

0014A8 

91 

20 

F 

0E4 



IDID 

TM 

ISW,X* 20* 


0014AC 

47 

80 

F 

4C0 




BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

0014B0 

02 

02 

F 

5FC 

F 

5FF 


MVC 

IBLAH+23I3),IACT 

MOVE -ACT- TO MESSAGE 

0014B6 

02 

07 

F 

588 

F 

67E 


MVC 

WORK! 8 ),ICSW2 

MOVE CSW TO WORK AREA 

0014BC 

45 

90 

F 

418 




BAL 

R9,ICOUT 


0014C0 

02 

00 

F 

60 A 

B 

005 

IPAS 

MVC 

1EXSNS+511),5(Rll) 

MOVE EXP SENSE TO MESSAGE 

0014C6 

91 

04 

F 

0E4 




TM 

I SW,X•04• 


0014CA 

47 

80 

F 

4FA 




BC 

NONE 9 IPASS 

BR. IF NO SENSE DATA RECIEVED 

0014CE 

OA 

DD 






SVC 

X*DD* 

CONVERT EXPECTED SENSE 

0014D0 

0001 






DC 

AL2U) 


0014D2 

060 A 






DC 

AL2(IEXSNS+5-SECN0) 


0014D4 

060 A 






DC 

AL2(IEXSNS+5-SECN0) 


0014D6 

OA 

DO 






SVC 

X*D0* 

PRINT EXPECTED SENSE 

0014D8 

AO 







DC 

X*A0* 


0014D9 

OB 







DC 

X*OB • 


0014DA 

F605 






OC 

AL2CIEXSNS-SECNO+REG) 


0014DC 

OA 

DD 






SVC 

X*DD* 


0014DE 

0001 






DC 

AL2C1) 


0014E0 

0615 






DC 

AL2(IACSNS+5-SECN0) 


0014E2 

0615 






DC 

AL2IIACSNS+5-SECNO) 


0014E4 

OA 

DO 






SVC 

X*DO f 

PRINT ACTUAL SENSE OATA 
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0015D4 


CNOP 

0,4 



001503 

ORG 

*-l 

\ 

0015D3 

40C3C1E640E7E7E7E7 

ICAW DC 

C 9 CAW XXXXXX * 


00I5DC 

E7E740 




0015DF 

C3E2E6 

ICSW DC 

C 9 CSW 9 


0015E2 

C3C3E6 

ICCW DC 

C 9 CCW 9 


0015E5 

40C3E2E640E7E7E7E7 

I BLAH DC 

C« CSW XXXXXXXX XX 9 


00I5EE 

E7E7E7E740E7E7 



1 

0015F5 

E7E7E7E7E7E740C5E7 

DC 

C 9 XXXXXX EXP 9 

I 

0015FE 

07 



[ 

00I5FF 

C1C3E3 

IACT DC 

C 9 ACT 9 

i 

001602 

C5E7D7 

IEXP DC 

C 9 EXP 9 

f 

001605 

40E 205E240E7E740C5 

1EXSNS DC 

C 9 SNS XX EXP 9 

| 

00160E 

E7D7 



• { 

001610 

40E2D5E240E7E740C1 

IACSNS DC 

C 9 SNS XX ACT 9 


001619 

C3E3 




0016IB 

40D306C740E7E740E7 

IOLOG DC 

C 9 LOG XX XXXXXX X 9 


001624 

E7E7E7E7E740E7 




00162B 

E7E7E7E7E740E7E7E7 

DC 

C*XXXXX XXXXXX 9 


001634 

E7E7E7 




001637 

40E3E2E340E7E7E7E7 

ITSTNO DC 

C 9 TST XXXX 9 

- r i 

001640 

40E2C5E340E2E240F0 

I0PT1 DC 

C 9 SET S$ 0 ON FOR 9 

| 

001649 

40060540C6D609 




001650 

400306D6D740D60540 

DC 

C 9 LOOP ON XIO» SS 9 


001659 

67C9D66B40E2E2 



{ 

001660 

40F14006054QC6D6D9 

DC 

C* 1 ON FOR TIO SI 9 


001669 

40E3C9D640E2C9 




001670 

D640D3D60607 

DC 

C 9 0 LOOP 9 


001676 

0000000000000000 

ICSW1 DC 

XL8 9 0 9 


00167E 

0000000000000000 

ICSW2 DC 

XL8 9 0 9 


001688 

04 001615 0000 0001 

ISENSE CCW 

X 9 04 9 »IACSNS+5,X 9 00 9 

fl | 

001690 

0011B6 

IOADR DC 

AL3IISSUE) 


001693 

FE 

MSK1 DC 

X«FE« 


001694 

01 

MSK2 DC 

X 9 01 9 


001695 

00 

RTSV DC 

X 9 00 9 

SAVE RT NO. FOR HANGUP. 

001696 

40E4C9D640E7E7E7E7 

IUNEX DC 

C 9 UIO XXXXXX 9 , 


00169F 

E7E7 




0016A2 


CNOP 

0« 8 


0016A2 

07 00 

BCR 

OfO 


0016A4 

07 00 

BCR 

0,0 


0016A6 

07 00 

BCR 

0,0 


0016A8 

0000000000000000 

ISLAVE DC 

XL8 9 0 9 

REGISTER SAVE AREA 



************4******4^*«*:|*4^*****************#************************* 



* 

INITIALIZE ROUTINE 



j*********^*************************^*************:********************** 

0016BO 

IB DD 

INIT SR 

R13,R13 

ZERO REG 13 

0016B2 

91 40 E 196 

TM 

406IR14),X 9 40 9 

CHECK FOR FORCED PROBLEM STATE 

0016B6 

47 80 F 6BC 

BC 

NONE,NITWIT 

BR. IF NOT 

0016BA 

18 DF 

LR 

R13»R15 

SET UP FOR PROBLEM STATE 

0016BC 

58 CO F OEO 

NITWIT L 

R12,UNIT1 

PUT PCH UNIT TABLE IN 12. 

0016C0 

54 CO F 6F8 

N 

R12,M0D50 

AND OUT ALL BUT ADDRESS. 

0016C4 

91 80 F 0E4 

BLOOP TM 

ISW,X 9 80* 

CHECK FOR HANG UP 

0016C8 

47 10 F 6DA 

BC 

ALL,HANGUP 

BR. IF DETECTED 

0016CC 

92 03 F CB8 

MVI 

CCW»X 9 03 9 

PUT A NOOP INTO CCW. 

0016D0 

92 20 F CBC 

MV I 

CCW+4,X 9 20 9 

INSURE SIL FLAG IS ON IN CCW 

0016D4 

41 AO F CB8 

LA 

RIO,CCW 


001608 

07 F4 

BCR 

UNC,R4 

RETURN VIA REG 4 

00160A 

D2 00 F 003 F 695 

HANGUP MVC 

SECN0+3I11,RTSV 

RESTORE RT NO. 

0016E0 

OA DO 

SVC 

X 9 D0« 

PRINT 

0016E2 

64 

DC 

X 9 64 9 

-PREVIOUS HANGUP DETECTED- 

0016E3 

1A 

DC 

X 9 1A 9 


0016E4 

F74C 

DC 

AL 2 (H UNG*^ SECNO+ REG) 


0016E6 

96 01 F 0E4 

01 

ISW,X*Ol 9 

SET HANG UP SWITCH 

0016EA 

45 50 F 2CC 

BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

0016EE 

92 00 F 0E4 

MVI 

ISW,X 9 00 9 

RESET HANGUP SWITCH 

0016F2 

47 FO F 6C4 

BC 

UNC,BLOOP 


0016F6 


CNOP 

0,4 


0016F6 

07 00 

BCR 

0,0 
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i 0016F8 

00003FFF 

M0D50 

DC 

X* 00003FFF® 

j 0016FC 


PCHAR 

DS 

80C 

00174C 
! 001755 

40D7D9C5E5C9D6E4E2 

40C8C1D5C740E4 

HUNG 

DC 

C* PREVIOUS HANG U® 

00175C 

001765 

D740C4C5E3C5C3E3C5 

C4 


DC 

C®P DETECTED® 


PUNCH WORK AREA 


001766 

OA DO 



001768 

80 



001769 

01 



00176A 

FF03 



00176C 

OA DO 



00176E 

24 



00176F 

22 



001770 

FF03 



001772 

OA DO 



001774 

80 



001775 

25 



001776 

FEDE 



001778 

OA DA 



00177A 

90 00 

C 

000 

00177E 

47 FO 

F 

132 

001782 




001782 

07 00 



001784 

01 



001785 

000798 


001788 

45 40 

F 

6B0 

00178C 

45 BO 

F 

OFA 

001790 

0000 



001792 

0010 



001794 

FOOO 



001796 

OA D6 




001798 


************ ♦♦♦******#**#*********************j| t **j| t *j|t*j|t* j |t#**#*j| 1 *#*#j|t***i| e 

♦ INTERVENTION REQUIRED MESSAGE 

**E******e****^**e*c*c*c**^*t**^*i*i^3**t*i*c^* t *t3**c*i*i3|c*i3**t*(*t*t*c*c*i*(*t 4»*4ca*a#t*c*(*Mfe*c*t*t4t*t*c*K*K*i*c*t 


TELHIM SVC X®DO® 

DC X* 80* 

DC X*01® 

DC AL2 <PCH4-SECNO+REG) 

SVC X®DO® 

DC X®24® 

DC X®22® 

DC AL2IPCH4-SECNO+REG) 

SVC X®00® 

DC X* 80* 

DC X * 25* 

DC AL2(PCH3-SECNO+REG) 

SVC X•DA® 

TIO 0IR12) 

BC UNCsGOMAN 

CNOP Ot4 

BCR 0*0 

*************************************************^ + ^^^^ j|t]J[4iJtt<tjMtttjJi<t4i 
* ROUTINE 01- ISSUE A TEST 1-0 TO THE PUNCH. EXPECT CONDITION CODE 0. 
******************************************** !MMM( , |tJ)54tJ|tJ(ll>3ti4tj> ^ j([i(t]Mrj(ij|(3(t<tj((:(tj#tj|t 


PRINT A BLANK 


PRINT OPERATOR INSTRUCTIONS 
-PLACE BLANK CARDS 
IN PUNCH HOPPER- 

-MAKE THE PUNCH OPERATIONAL 
AND READY- 


HALT FOR MANUAL INTERVENTION 
CLEAR PENDING INTERRUPT 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
BR. TO ISSUE TEST 1-0 
CONTROL SWITCHES 
TEST NUMBE 
EXP. COND. CODE - EXP. SENSE 
ROUTINE EXIT 


R0UT01 DC X®01® 

DC AL3(R0UT02—SECNO) 

BAL R4,INIT 

BAL R11fITIO 

DC X'OOOO* 

DC X®0010® 

DC X'FOOO® 

SVC X«D6® 

CNOP 0 t 4 

***+**+++++****************+*++*****+*+*+*+++++++++m+mm l +mmm 

* ROUTINE 02- ISSUE ALL COMMANDS THAT ARE INVALID TO THE PUNCH. EACH 
INVALID COMMAND IS ISSUED IN A SINGLE CCW. EXPECT COND. 
CODE 1 WITH UNIT CHECK IN THE DEVICE STATUS BYTE AND 
COMMAND REJECT IN THE SENSE BYTE -80-. EACH INVALID 
COMMAND ISSUED IS FOLLOWED BY A DIAGNOSTIC CHECK READ 
C6 TO RESET THE COMMAND REJECT LATCH. 

t********************************,"**," 

ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
CLEAR REGISTER 2 
LOAD TOTAL COMMAND COUNT 
LOAD TOTAL VALID COMMAND COUNT 
INSERT ADDRESS OF TABLE INTO REG 2 
COMPARE FOR POSSIBLE INVALID 
BR. IF A VALID COMMAND 
RIPPLE DOWN THRU TABLE OF VALIDS 
INSERT COMMAND INTO CCW 
CHECK IF BITS 4 THUR 8 
BR. IF NONE - CHANNEL HANGS IF ISSUE 
RESTORE CONTROL SWITCH 
BR. TO ISSUE START 1-0 INVALID CMD. 
CTRL SWITCHES 

T EST NUMBER 
EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 

INSURE DIAGNOSTIC CK READ COMMAND 
BR. TO DO DIAG. CHECK READ START 1-0 


001798 

02 



R0UT02 DC 

X* 02' 

001799 

00084C 


DC 

AL3IR0UT03-SECN0) 

00179C 

45 

40 F 

6B0 

BAL 

R4,INIT 

0017A0 

IB 

22 


SR 

R2,R2 

0017A2 

41 

10 0 

OFF 

LA 

R1,255 

0017A6 

41 

30 0 

061 

AGAIN LA 

R3, 97 

0017AA 

43 

23 F 

7E9 

RIP IC 

R2,VALC0M-1IR3) 

0017AE 

19 

12 


CR 

R1 ,R2 

0017B0 

47 

80 F 

7E4 

BC 

EQ,HOHO 

0017B4 

46 

30 F 

7AA 

BCT 

R3,RIP 

0017B8 

42 

10 F 

CB8 

STC 

R1,CCW 

0017BC 

91 

OF F 

CB8 

TM 

CCW,X*OF • 

0017C0 

47 

80 F 

7E4 

BC 

NONE,HOMO 

0017C4 

92 

38 F 

7CC 

MVI 

NEIL,X* 38* 

0017C8 

45 

BO F 

10E 

BAL 

RlltlSIO 

0017CC 

3880 


NEIL DC 

X* 3880® 

0017CE 

0020 


DC 

X® 0020® 

0017 DO 

F180 


DC 

X®F180® 

0017D2 

FE40 


DC 

AL2CUCNVLD-SECNO+REG) 

0017D4 

92 

C6 F 

CB8 

MVI 

CCW,X*C6* 

0017D8 

45 

BO F 

10E 

BAL 

RlltlSIO 
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0017 DC 

2800 

DC 

X® 2800® 

CONTROL SWITCHES 

0017DE 

0030 

DC 

X® 0030® 

TEST NU MB ER 

0017E0 

FOOO 

DC 

X'FOOO® 

EXP. COND. CODE - EXP. SENSE 

0017E2 

FD90 

DC 

AL2(N0RSET-SECNO+REG) 

EXP. ADDRESS OF CSW 

0017E4 

46 10 F 7A6 

HOHO BCT 

Rl,AGAIN 

DECREMENT TOTAL COMMAND COUNT I 

001768 

OA D6 

SVC 

X®D6® 

EXIT ROUTINE 

0017EA 

01030405 

VALCOM DC 

X® 01030405® 

| 

0017EE 

090D1114 

DC 

X® 090D1114* * 

i 

0017F2 

15191D21 

DC 

X®15191D21® 

j 

0017F6 

2425292D 

DC 

X® 2425292D * 


0017FA 

31343539 

DC 

X® 31343539® 

| 

0017FE 

3D414445 

DC 

X® 3D414445® 

l 

001802 

494D5154 

DC 

X®494D5154* 


001806 

55595D61 

DC 

X* 55595D61• 

| 

00180A 

6465696D 

DC 

X® 6465696D• 

; 

00180E 

71747579 

DC 

X® 71747579® 


001812 

7D818485 

DC 

X® 7D818485• 

■ 

001816 

898D9194 

DC 

X® 898D9194® 

; 

00181A 

95999DA1 

DC 

X* 95999DA1• 

j 

00181E 

A4A5A9AD 

DC 

X®A4A5A9AD® 

| 

001822 

B1B4B5B9 

DC 

X* B1B4B5B9• 


001826 

BDC4C6CE 

DC 

X * BDC4C6CE * 

i 

00182A 

D4D6DEE4 

DC 

X®D4D6DEE4® 

| 

00182E 

E6EEF4F6 

DC 

X•E6EEF4F6® 

t 

001832 

FE 

DC 

X * FE ® 

l 

001833 

081828384858687888 

DC 

X®081828384858687888® 

COMMANDS THAT ARE j 

00183C 

98A8B8C8D8E8F8 

DC 

X® 98A8B8C8D8S8F8• 

TICS j 

001843 

C2CAD2DA 

PFRFTR DC 

X'C2CAD2DA * 

PUNCH FEED READ ! 

001847 

E2EAF2FA 

DC 

X'E2EAF2FA• 

FEATURE I 

00184C 


CNOP 

0,4 

i 


*********************************************************************** 

* ROUTINE 03- ISSUE A PUNCH FEED STACKER SELECT WITH A SHORT COUNT 79. 

* EXPECT COND. CODE 0 WITH CHANNEL END AND INCORRECT 

* LENGTH INDICATED IN THE 1ST CSW, AND DEVICE END ALONE IN 

* SECOND CSW. 

* 

* ISSUE A PUNCH FEED STACKER SELECT WITH A LONG COUNT 81. 

* EXPECT COND CODE 0 WITH CHANNEL END AND INCORRECT 

♦ LENGTH RECORD INDICATOR IN THE 1ST CSW, AND A RES~ 

♦ COUNT OF 1 IN THE SAME CSW. DEVICE END ALONE RETURNS 

♦ IN THE SECOND CSW. 

* ISSUE SAME COMMANDS AGAIN BUT THIS TIME SUPPRESS THE 

♦ INCORRECT LENGTH RECORD INDICATION. EXPECT RESULTS AS 

* ABOVE BUT WITHOUT THE INCORRECT LENGTH RECORD BIT ON. 


00184C 

03 



R0UT03 DC 

X® 03® 

ROUTINE NUMBER j 

00184D 

0008A8 



DC 

AL3CR0UT04-SECN0) 

ADDRESS OF NEXT ROUTINE 

001850 

45 40 

F 

6B0 


BAL 

R4»INIT 

BR. TO INITIALIZE j 

001854 

92 00 

F 

C94 


MVI 

PCSHRT+4,X* 00® 

TURN OFF SIL BIT IN CCW SHORT COUNT f 

001858 

41 AO 

F 

C90 


LA 

R10,PCSHRT 

SET UP TO DO PUNCH WITH SHORT COUNT ! 

00185C 

45 BO 

F 

10E 


BAL 

Rll,ISIO 

BR. TO ISSUE START 1-0 

001860 

3E00 




DC 

X® 3E00* 

CONTROL SWITCHES 

001862 

0040 




DC 

X® 0040® 

TEST NUMBER 1 

001864 

FOOO 




DC 

X'FOOO® 

EXP. COND. CODE - EXP. SENSE 

001866 

FD38 




DC 

AL2(SHRTCW—SECNO+REG) 

EXP. CSW ADDRESS 

001868 

92 00 

F 

C9C 


MVI 

PCL0NG+4,X*00* 

TURN OFF SIL BIT IN CCW LONG COUNT 

00186C 

41 AO 

F 

C98 


LA 

R10,PCLONG 

SET UP TO DO PUNCH WITH LONG COUNT ' 

001870 

45 BO 

F 

10E 


BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 

001874 

3E00 




DC 

X® 3E00® 

CONTROL SWITCHES j 

001876 

0050 




DC 

X•0050• 

TEST NUMBER 

001878 

FOOO 




DC 

X®FOOO» 

EXP* COND. CODE - EXP. SENSE 

00187A 

FD48 




DC 

AL2(LNGC W-SECNO+REGI 

EXP. CSW ADDRESS 

00187C 

92 20 

F 

C94 


MVI 

PCSHRT+4,X*20® 

TURN ON SIL BIT IN CCW SHORT COUNT j 

001880 

41 AO 

F 

C90 


LA 

RlOtPCSHRT 

SET UP TO DO PUNCH WITH SHORT COUNT 

001884 

45 BO 

F 

10 E 


BAL 

RlltlSIO 

BR. TO DO START 1-0 

001888 

3E00 




DC 

X*3E00® 

CONTROL SWITCHES 

00188A 

0060 




DC 

X®0060* . 

TEST NUMBER 
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00188C 

00188E 

001890 

001894 

001898- 

00189C 

00189E 

0018A0 

0018A2 

0018A4 

0018A6 

0018A6 


F000 

FD28 

92 20 F C9C 
41 AO F C98 
45 BO F 10E 


DC X'FOOO* 

DC AL2(N0RM*^ SECNO+REG) 

MVI PCLONG+4,X*20* 

LA RlOyPCLONG 

BAL RllylSIO 

DC X* 3E00* 

DC X* 0070* 

DC X*F000* 

DC AL2(N0ILRL-SECNO+REG) 

SVC X*D6* 

CNOP 0,4 


EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 

TURN ON SIL BIT IN CCW LONG COUNT 
SET UP TO DO PUNCH WITH LONG COUNT 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 


0018A8 

04 


ROUT04 DC 

X*04* 

0018A9 

00090C 

DC 

AL3(R0UT05- 

0018AC 

45 40 

F 6B0 

BAL 

R4,INIT 

0018B0 

91. 20 

F' 0E1 

TM 

U10P,X*20* 

0018B4 

47 10 

F 908 

BC 

ALL,EXIT04 

0018B8 

92 00 

F CC4 

MVI 

DIARDS+4,X* 

0018BC 

41 AO 

F CCO 

LA 

RIO,DIARDS 

0018C0 

45 BO 

F 10E 

BAL 

RllylSIO 

0018C4 

2A00 


DC 

X* 2A00* 

0018C6 

008 0 


DC 

X* 0080* 

0018C8 

FOOO 


DC 

X'FOOO* 

0018CA 

FD6 8 


DC 

AL2CDIASRT- 

0018CC 

92 00 

F CCC 

MVI 

DIARDL+4,X* 

0018DO 

41 AO 

F CC8 

LA 

RlOyDIARDL 

0018D4 

45 BO 

F 10E 

BAL 

RllylSIO 

0018D8 

2A00 


DC 

X* 2A00* 

0018DA 

0090 


DC 

X•0090* 

0018DC 

FOOO 


DC 

X*FOOO* 

0018DE 

FD7 0 


DC 

AL2CDIALNG- 

0018E0 

92 20 

F CC4 

MVI 

DIARDS+4,X*i 

0018E4 

41 AO 

F CCO 

LA 

RIO,DIARDS 

0018E8 

45 BO 

F 10E 

BAL 

„ RllylSIO 

0018EC 

2A00 


DC 

X* 2AOO* 

0018EE 

0100 


DC 

X*0100* 

0018F0 

FOOO 


DC 

X*F000* 

0018F2 

FD7 8 


DC > 

AL2(DAILRS- 

0018F4 

92 20 

F CCC 

MVI 

DIAR0L+4,X*; 

0018F8 

41 AO 

F CC8 

LA 

RlOyDIARDL 

0018FC 

45 BO 

F 10E 

BAL 

RllylSIO 

001900 

2A00 


DC 

* X*2A00* 

001902 

0110 


DC 

.X*0110* 

001904 * 

FOOO 


DC 

X *F000* 

001906 

FD80 


DC 

AL2(DAILRL-! 

001908 

OA 06 


EXIT04 SVC 

X*D6* 

00190A 



CNOP 

0,4 

00190A 

07 00 


BCR 

0,0 


BCR 0,0 

* ROUTINE 04- ISSUE A DIAGNOSTIC READ WITH A SHORT COUNT 79. EXPECT 

* CONDITION CODE 0 WITH CHANNEL END DEVICE END AND 

* INCORRECT LENGTH RECORD ALL TOGETHER 

* ISSUE A DIAGNOSTIC READ WITH A LONG COUNT 81. EXPECT 

* CONDITION CODE 0 WITH CHANNEL END DEVICE END INCORRECT 

* LENGTH RECORD AND A RESIDUAL COUNT OF 1 ALL TOGETHER. 

* ISSUE ABOVE COMMANDS AGAIN BUT THIS TIME THE INCORRECT 

* LENGTH RECORD INDICATION IS SUPPRESSED. EXPECT SAME 

* RESULTS AS ABOVE BUT WITHOUT INCORRECT LENGTH RECORD 

* BIT ON. 

ROUT04 DC X*04» ROUTINE NUMBER 

DC AL3(R0UT05—SECNO) ADDRESS OF NEXT ROUTINE 

BAL R4,INIT BR. TO INITIALIZE 

TM U10P,X , 20 # TEST FOR PFR FEATURE 

BC ALL »EXIT04 BR. OUT OF RTN IF PFR INSTALLED. 

MVI DI ARDS+4yX*00 f TURN OFF SIL BIT IN DIAG. READ CCW 

LA RIO,DIARDS SET UP TO DO DIAG. READ SHORT COUNT 

BAL RllylSIO BR. TO ISSUE START 1-0 

DC X* 2A00* CONTROL SWITCHES 

DC X*0080* TEST NUMBER 

DC X'FOOO* EXP. COND. CODE - EXP. SENSE 

DC AL2(DIASRT~SECNO+REG) EXP. CSW ADDRESS 

MVI DIARDL+4,X* 00* TURN OFF SIL BIT IN DIAG. READ CCW 

LA R10,DIARDL SET UP TO DO DIAG. READ LONG COUNT 

BAL R11,ISIO BR. TO ISSUE START 1-0 

DC X* 2A00* CONTROL SWITCHES 

DC X • 0090* TEST NUMBER 

DC X*FOOO* EXP. COND. CODE - EXP. SENSE 

DC AL2(DIALNG-SECNO+REG) EXP. CSW ADDRESS 

MVI DIARDS+4,X*20* TURN ON SIL BIT IN DIAG. READ SHORT 

LA RIO,DIARDS SET UP TO DO DIAG. READ SHORT COUNT 

BAL RllylSIO BR. TO ISSUE START 1-0 

DC X* 2AOO* CONTROL SWITCHES 

DC X'0100* TES T NUMBER 

DC X*F000* EXP. COND. CODE - EXP. SENSE 

DC > AL2(DAILRS-SECNO+REG) EXP. CSW ADDRESS 

MVI DIARDL+4,X*20* TURN ON SIL BIT IN DIAG. READ LONG 

LA RlOyDIARDL SET UP TO DO DIAG. READ LONG COUNT 

BAL RllylSIO BR. TO ISSUE START 1-0 

DC v X*2A00 1 CONTROL SWITCHES 

DC .X*0110* TEST NUMBE R 

DC X*FOOO« EXP. COND. CODE - EXP. SENSE 

DC AL2(DAILRL-SECNO+REG) EXP. CSW ADDRESS 

EXIT04 SVC X*D6» ROUTINE EXIT 


SECNO+REG) 

20 * 


READ LONG COUNT 


SECNO+REG) 


* ROUTINE 05- ISSUE A PUNCH FEED STACKER SELECT COMMAND CHAINED TO AN 

* INVALID COMMAND. THE INVALID COMMAND BREAKS COMMAND 

* CHAINING AND THE CHANNEL END DEVICE END STATUS FROM 

* INITIAL SELECTION IS NOT STORED DUE TO CHAINING. 

* EXPECT CONDITION CODE 0 WITH UNIT CHECK ALONE IN THE 

* STATUS AND COMMAND REJECT IN THE SENSE BYTE. 


DATE 05MAY65 10AUG65 

EC 124252 125580 


15N0V65 15JUN67 

125624 130498 
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ISSUE A NOOP START 1-0 TO THE PUNCH. THE NOOP COMMAND 
SHOULD NOT RESET THE COMMAND REJECT BIT SET FROM THE 
PREVIOUS INVALID COMMAND CHAIN. EXPECT CONDITION CODE 1 
CHANNEL END DEVICE END BUT NO UNIT CHECK. THE COMMAND 
REJECT SENSE BIT SHOULD BE ON. 

ISSUE A DIAGNOSTIC CHECK READ COMMAND TO THE PUNCH. 

EXPECT CONDITION CODE 0 CHANNEL END DEVICE END. THE 
COMMAND REJECT SENSE BIT SHOULD BE RESET WHEN THE 
DIAGNOSTIC CHECK READ COMMAND IS ISSUED. 

ISSUE A NOOP START 1-0 WITH A SHORT COUNT OF 1 COMMAND 
CHAINED TO ANOTHER NOOP WITH A COUNT OF l. EXPECT 
CONDITION CODE 0. CHANNEL END DEVICE END STATUS FROM 
INITIAL SELECTION IS NOT SAVED DUE TO CHAINING. CHANNEL 
END DEVICE END FROM THE SECOND COMMAND IS STORED ALONG 
WITH A RESIDUAL COUNT OF 1 IN THE CHANNEL STATUS WORD. 

********:Mt*******:|^3M'****j|^*:Mt*********************:Mt****)|t************ 


X'05* 

AL3(R0UT06-SECN0) 

R4,INIT 
RlOyCHAINP 
RllylSIO 
X* 2800* 

X•0120* 

X*F080* 

AL2C UNCK-SECNO+REG) 

RlOyCCW 

RllylSIO 

X*2800* 

X* 0130* 

X•F180* 

AL2INEXT1-SECN0+REG) 
CCW,X*C6* 

RllylSIO 
X * 2800 • 

X* 0140* 

X•FOOO* 


AL2CNORSET-SECNO+REG) EXP. CSW ADDRESS 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 

SET UP TO DO PUNCH CHAIN TO INVALID 

BR. TO ISSUE SIO • 

CONTROL SWITCHES 

TEST NU MBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

SET UP TO ISSUE NOOP 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INSURE DIAG CHECK READ COMMAND 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 


RlOyNOPCCW 
CCW,X*03* 
CCW+4yX*00* 
RllylSIO 
X'2800* 

X* 0150* 
X*FOOO* 


AL2CN0PRES-SECNO+REG) EXP. CSW ADDRESS 
X*D6* ROUTINE EXIT 


SET UP TO DO NOP COMMAND CHAINED NOP 

INSURE NO OP COMMAND 

TURN OFF SIL FLAG IN CCW 

BR. TO ISSUE START T-0 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 


001960 
001961 
001964 
001968 
00196C 
001970 
001972 
001974 
001976 
001978 
0019 7A 


06 

00097C 
45 40 F 6B0 
41 AO F CDO 
45 BO F 10E 


*****^*^*********+****^****^:«^********^******************************* 

* ROUTINE 06- ISSUE A PUNCH FEED STACKER SELECT COMMAND CHAINED TO 

♦ ANOTHER PUNCH FEED STACKER SELECT. THE SIL FLAG IS LEFT 

* OUT OF THE COMMANDS AND 80 CHARACTERS PUNCHED BY EACH 

♦ COMMAND SHOULD NOT BRING WRONG LENGTH RECORD INTO STATUS, 
t***********^*******************************^********^* **************** 


R0UT06 DC 
DC 
BAL 
LA 
BAL 
DC 
DC 
DC 
DC 
SVC 
CNOP 


X*06* 

AL 3 (ROUT07-* SEC NO ) 
R4,INIT 
RlOyCHNPCH 
RllylSIO 
X*3E00* 

X* 0160* 

X*FOOO* 


ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

SET UP TO DO VALID COM CHAIN 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

T E S T N U M B E 

EXP. CONO. CODE - EXP# SENSE 


AL2(VLDCHN~SECNO+REG) EXP. CSW ADDRESS 
X*D6* ROUTINE EXIT 

0,4 


05MAY65 10AUG65 

124252 125580 


15N0V65 

125624 


15JUN67 

130498 
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00197A 07 00 


00197C 

00197D 

001980 

001984 : 

001988 

00198C 

001990 

001994 

001996 

001998 

00199A 

00199C 

0019A0 

0019A4 

0019 A8 

0019AA 

0019AC 

0019AE 

0019B0 

0019B2 

0019B2 


0019B4 

0019B5 

0019B8 

0019BC 

0019C0 

0019C4 

0019C6 

0019C8 

0019CA 

0019CC 

0019CE 

0019CE 


0019DO 
0019D1 
0019D4 
0019D8 
0019DC 
0019E0 
0019E4 
0019E8 
0019EA 
0019EC 


07 

0009B4 
45 40 F 
92 40 F 
92 4F F 
41 AO F 
45 BO F 
3C00 
0170 
FOOO 
FDB8 
92 51 F 
41 AO F 
45 BO F 
3C00 
0180 
FOOO 
FDC8 
OA D6 


BCR 0,0 

* ROUTINE 07- ISSUE A PUNCH FEED STACKER SELECT WITH A COUNT OF 79 

* COMMAND CHAINED TO A PUNCH FEED STACKER SELECT* EXPECT 

* INCORRECT LENGTH RECORD BIT TO BE SET AND BREAK COMMAND 

* CHAINING. 

* 

* ISSUE ABOVE CHAIN COMMAND AGAIN BUT WITH A LONG COUNT OF 

* 81. EXPECT INCORRECT LENGTH RECORD TO BREAK COMMAND 

* CHAIN. A RESIDUAL COUNT OF 1 IN THE CSW. 

R0UT07 DC X*07* ROUTINE NUMBER 


AL3IR0UT08-SECN0) 

R4*INIT 

SHRTCH+4,X *40* 

SHRTCH+7 tX*4F• 

RIO, SHRTCH 
RlltlSIO 
X # 3C00* 

X*0170* 

X*FOOO* 

AL2(CHNSRT-SECNO+REG) 
SHR TC H+7 , X • 51 * 

RIO,SHRTCH 
RlltlSIO 
X* 3C00* 

X* 0180* 

X*FOOO• 

AL2(CHNLNG-SECNO+REG) 
X*D6* 

0,4 


ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

INSURE PROPER FLAG IN CCW 

INSURE SHORT COUNT 79 

SET UP TO ISSUE SHORT COUNT CHAIN 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

INSURE LONG COUNT OF 81 

SET UP TO ISSUE LONG COUNT CHAIN 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

TEST NUMBER 

EXP. COND. CODE - EXP. SENSE 

EXP. CSW ADDRESS 

ROUTINE EXIT 


08 

0009D0 
45 40 F 6 BO 
41 AO F DIO 
45 BO F 10E 


BCR 0,0 

********************+****+*+*++++ 4 *** 4 ***+** 4 + 4 ***** 444 * 4 ****+*** 4 ** 4 ++ 

* ROUTINE 08- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED AND 

* COMMAND CHAINED TO AN INVALID COMMAND. DATA CHAINING 

* SHOULD TAKE PRIORITY AND THE INVALID COMMAND SHOULD NOT 

* BE INSPECTED. EXPECT COND. CODE 0 WITH CHANNEL END THEN 

* DEVICE END WITH NO COMMAND REJECT IN THE SENSE BYTE. 

* CHAINING SHOULD NOT BE BROKEN. 

**+********+**+*****+*+****++++++*+ 444 * 4 **+****+*** 4 ****+** 4 *+*+***+++* 
R0UT08 DC X•08• ROUTINE NUMBER 


AL3CR0UT09-SECN0) 
R4, INIT 
R10,DTAINV 
R11,ISIO 
X*3C00* 

X* 0190* 

X'FOOO* 


AL2IDTACCW-SECNO+REG) EXP. CSW ADDRESS 
X*D6« ROUTINE EXIT 


ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 

SET UP TO DATA AND CMD CHAIN TO INVD 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBER 
EXP. COND. CODE - EXP. SENSE * 


09 

0009F4 
45 40 F 6BO 
92 14 F CF7 
92 80 F D04 
41 AO F CFO 
45 BO F 10E 


BCR 0,0 

♦**♦ ++ **4 *+*+* * 4 ♦* * ♦*♦ +****++**++++*+4***444 4444 444444444444444 ^^^^^^^^ 

♦ ROUTINE 09- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO 

♦ " FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL EQUAL 80, 

♦ THEREFORE NO WRONG LENGTH RECORD INDICATION WILL APPEAR 

♦ IN THE STATUS. 

+**+******+********+**+****+++++++**+ 4444 ++ 4 ** 4 ** 4 ** 4 * 4 +***+++**+**++++ 
R0UT09 DC X*09* ROUTINE NUMBER 


DC AL3IR0UT10—SECNO) 

BAL R4,INIT 

MVI DTACHN+7,20 
MVI DTACHN+20,X*80* 

LA RIOtDTACHN 

BAL RlltlSIO 

DC X*3C00* 

DC X*0200* 

DC X'FOOO* 


ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

PUT COUNT OF 20 INTO 1ST CCW 

TURN OFF SIL FLAG IN 3RD CCW 

SET UP TO DATA CHAIN 

BR. TO ISSUE START 1-0 

CONTROL SWITCHES 

TEST NU MBER 

EXP. COND CODE - EXP. SENSE 


05MAY65 10AUG65 

124252 125580 


15N0V65 15JUN67 

125624 130498 
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0019EE 

0019F0 

0019F2 

0019F2 


0019F4 
0019F5 
0019F8 
0019FC 
001A00 
001A04 
001A08 
001A0C 
001A0E 
001A10 
001A12 
001A14 
001A16 
001A16 


10 

000A18 

45 40 F 6BO 

92 28 F CF7 

92 80 F D04 

41 AO F CFO 

45 BO F 10E 

3C00 

0210 

FOOO 

FDF8 

OA D6 


DC AL2(N0RM1-SECN0+REG) EXP. CSW ADDRESS 

SVC X*D6* ROUTINE EXIT 

CNOP 0,4 
BCR 0,0 

************4^*******************************************************4r* 

* ROUTINE 10- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO 

* FOUR DIFFERENT PLACES. THE TOTAL COUNT WILL EXCEED 80, 

* THEREFORE WRONG LENGTH RECORD SHOULD APPEAR IN THE STATUS 

* AND CHAINING WILL BE BROKEN. A RESIDUAL COUNT WILL BE 

* IN THE CSW. 

ROUT10 DC X*10* ROUTINE NUMBER 

DC AL3(R0UT11—SECNO) ADDRESS OF NEXT ROUTINE 

BAL R4,INIT BR. TO INITIALIZE 

MVI DTACHN+7,40 PUT COUNT OF 40 IN 1ST CCW 

MVI DTACHN*20,X'80* TURN OFF SIL FLAG IN 3RD CCW 

LA R10,DTACHN SET UP TO DATA CHAIN 

BAL R11,ISIO BR. TO ISSUE START 1-0 

DC X* 3C00* CONTROL SWITCHES 

DC X • 0210* TEST NUMBER 

DC X'FOOO* EXP. COND. CODE - EXP. SENSE 

DC AL2(N0RM2-SECN0+REG) EXP. CSW ADDRESS 

SVC X'D6* ROUTINE EXIT 

CNOP 0,4 
BCR 0,0 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
PUT COUNT OF 40 IN 1ST CCW 
TURN OFF SIL FLAG IN 3RD CCW 
SET UP TO DATA CHAIN 
BR. TO ISSUE START 1-0 
CONTROL SWITCHES 
TEST NUMBE 
EXP. COND. CODE - EXP. SENSE 
EXP. CSW ADDRESS 
ROUTINE EXIT 


**++*+*+*+*+**** 4 *******+*+*+++*+*** 44 + 4 *******+**** 4 ***++*++ 4 ****+++*+ 

* ROUTINE 11- ISSUE A PUNCH FEED STACKER SELECT DATA CHAINED TO FOUR 

* DIFFERENT PLACES WITH THE SIL FLAG ON IN THE COMMAND THAT 

* EXCEEDS A COUNT OF 80. EXPECT CHAINING TO BE BROKEN.I 

* EVEN THOUGH THE SIL FLAG IN ON, WRONG LENGTH RECORD 

* SHOULD APPEAR IN THE STATUS. 

*++***+***+** 4 *******+++++++***+++**+*** 4 *+ 44 +***++***+ 4 ****++*++*+++++ 


001A18 

11 



ROUT11 DC 

X*ll* 

ROUTINE NUMBER f 

001A19 

000A3C 


DC 

AL3(R0UT12-SECN0) 

ADDRESS OF NEXT ROUTINE . 

001A1C 

45 40 

F 

6B0 

BAL 

R4, INIT 

BR. TO INITIALIZE 

001A20 

92 29 

F 

CF7 

MVI 

DTACHN+7,41 

PUT COUNT OF 41 IN 1ST CCW [ 

001A24 

92 AO 

F 

D04 

MVI 

DTACHN+20,X*A0* 

TURN ON SIL FLAG IN 3RD CCW 

001A28 

41 AO 

F 

CFO 

LA 

R10,DTACHN 

SET UP TO DO DATA CHAIN { 

001A2C 

45 BO 

F 

10E 

BAL 

RlltlSIO 

BR. TO ISSUE START 1-0 f 

001A30 

3C00 



DC 

X* 3C00* 

CONTROL SWITCHES j 

001A32 

022 0 



DC 

X* 0220* 

TEST NU M BER 

001A34 

FOOO 



DC 

X*FOOO* 

EXP. COND. CODE - EXP. SENSE ! 

001A36 

FE08 



DC 

AL2 CN0RM3-SECN0+REG) 

EXP. CSW ADDR j 

001A38 

OA D6 



SVC 

X*D6* 

ROUTINE EXIT 

001A3A 




CNOP 

0,4 


001 A3A 

07 00 



BCR 

0,0 



*+++*++**++++*+**++ 4 * 44 * 44 ************* 4 *** 4 +** 4 *** 4 ******* 4 * 4 ********* 

* ROUTINE 12- ISSUE A PUNCH FEED STACKER SELECT -STACKER 1- FOLLOWED 

* BY STACKER SELECT -STACKER 2- FOLLOWED BY STACKER SELECT 

* -STACKER 1- FOLLOWED BY STACKER SELECT -STACKER 3-. THIS 

* SERIES OF COMMANDS WILL GIVE A STACKER PATTERN OF 1-2-1-3 

* 

* THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE 

* PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN 

* BE LOOPED EITHER IN A TIGHT SIO-TIO LOOP OR A LOOP THAT 

4 INCLUDES ERROR MESSAGE PRINTOUTS. PUNCHED IN EACH CARD 

* THAT IS STACKER SELECTED IS THE NUMBER OF THE STACKER 

* POCKET THE CARD SHOULD BE FOUND IN. 

* SENSE SWITCH OPTIONS ARE DESCRIBED IN THE PROGRAM 

* DESCRIPTION AND THE TEST NUMBER WRITE-UP. 

**+******++*+*+ 4 **++**+***++*+****+***++++++++++*+*+**++***++++++*+*+ 4 + 


001A3C 

12 


R0UT12 DC 

X* 12* 


001A3D 

000C14 



DC 

AL3CR0UT13—SECNO) 

ADDRESS OF NEXT ROUTINE 

001A40 

91 04 F 

004 


TM 

SNSW,X*04® 

SEE IF SSW 5 IS ON. 

001A44 

47 80 F 

B38 


BC 

NONE,EXIT12 

BR IF NOT 4 

001A48 

45 40 F 

6 BO 


BAL 

R4, INIT 


001A4C 

45 40 F 

C6A 


BAL 

R4,RAC 

BR TO SET UP STK SELECT. 

001A50 

92 01 F 

A93 


MVI 

D0SS1+1 ,X*01 •. . 

INSURE 360 MODE OP CODES 

DATE 

05MAY65 

10AUG65 

15N0V65 

15JUN67 



EC 

124252 

125580 

125624 

130498 
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001A54 

92 41 F AB1 



MVI 

D0SS2+1,X'41* . 

001A58 

92 01 F ACF 



MVI 

INTERV+1, X'Ol• . 

001A5C 

92 81 F AED 



MVI 

D0SS3+1,X'81* 

001A60 

92 11 F B4B 



MVI 

COMPl+ltX'll* . 

001A64 

92 51 F B6D 



MVI 

C0MP2+1,X'51• 

001A68 

92 91 F B8F 



MVI 

C0MP3+1,X'91• 

001A6C 

92 02 F AA2 



MVI 

TST230,X'02• 

001A70 

92 02 F ACO , 



MVI 

TST240tX* 02' 

001A74 

92 02 F ADE 



MVI 

TST250,X'02' 

001A78 

92 02 F AFC 



MVI 

TST260» X *02• 

001A7C 

92 02 F BAA 



MVI 

TST270,X'02 * 

001A80 

92 02 F B2E 



MVI 

TST265tX*02* 

001A84 

41 00 0 OOA 


RTN13 

LA 

ROy 10 

001A88 

41 AO F D20 



LA 

RIO* SSCOMN 

001A8C 

D2 17 F 6FC F 

BFA 


MVC 

PCHAR(24)ySTKRl 

001A92 

92 01 F D20 


D0SS1 

MVI 

SSCOMN,X'Ol• 

001A96 

D2 02 F D21 F 

E58 

D0SS1C 

MVC 

SSCOMN+K 3)ySSONE 

001A9C 

45 BO F 10E 



BAL 

R11vISIO 

001AAO 

3E01 



DC 

X•3E01 # 

001AA2 

0230 


TST230 

DC 

X* 0230* 

001AA4 

FOOO 



DC 

X'FOOO' 

001AA6 

FE48 



DC 

AL2(SSADRS—SECNO+REG) 

001AA8 

91 1C F 005 


ANY1 

TM 

SNSW+1,X'lC 1 

001AAC 

47 40 F B3A 



BC 

SOME * SEE11 

001ABO 

92 41 F D20 


D0SS2 

MVI 

SSCOMN,X'41* 

001AB4 

D2 02 F D21 F 

E5B 

D0SS2C 

MVC 

SSCOMN+K 3)ySSTWG 

001ABA 

45 BO F 10E 



BAL 

RllylSIO 

001ABE 

3E0 1 



DC 

X *3E01' 

001ACO 

0240 


TST240 

DC 

X'0240' 

001AC2 

FOOO 



DC 

X'FOOO* 

001AC4 

FE4 8 



DC 

AL2(SSADRS-SECNO+REG) 

001AC6 

91 1C F 005 


ANY2 

TM 

SNSW+1,X*1C• 

001ACA 

47 40 F B5C 



BC 

SOME,SEE12 

001ACE 

92 01 F D20 


INTERV 

MVI 

SSCOMN,X'Ol• 

001AD2 

D2 02 F D21 F 

E58 


MVC 

SSC0MN+1C3)ySSONE 

001ADS 

45 BO F 10E 



BAL 

RllylSIO 

001ADC 

3E01 



DC 

X'3E01• 

001ADE 

0250 


TST250 

DC 

X'0250* 

001AEO 

FOOO 



DC 

X•FOOO* 

001AE2 

FE48 



DC 

AL2(SSADRS-SECNO+REG) 

001AE4 

91 1C F 005 



TM 

SNSW+1,X'lC• 

001AE8 

47 40 F B3A 



BC 

SOME,SEE11 

001AEC 

92 81 F D20 


D0SS3 

MVI 

SSCOMN,X*81 * 

001AFO 

D2 02 F 021 F 

E5E 

D0SS3C 

MVC 

SSCOMN+K 3)ySSTHRE 

001AF6 

45 BO F 10E 



BAL 

RllylSIO 

001AFA 

3E01 



DC 

X* 3E01• 

001AFC 

0260 


TST260 

DC 

X* 0260* 

001AFE 

FOOO 



DC 

X'FOOO* 

001 BOO 

FE48 



DC 

AL2(SSADRS-SECNO+REG) 

00IB02 

91 1C F 005 


ANY3 

TM 

SNSW+1,X•1C• 

001B06 

47 40 F B7E 



BC 

SOME,SEE13 

001BOA 

46 00 F A92 



BCT 

ROyDOSSl 

001B0E 

92 40 F 6FC 



MVI 

PCHARyC • • 

001812 

D2 4E F 6FD F 

6FC 


MVC ; 

PCHAR+K79) yPCHAR 

001B18 

92 91 F D20 



MVI 

SSCOMN,X*91• 

0Q1B1C 

95 13 F 003 



CLI 

SECN0+3,X*13' 

001B20 

47 80 F B28 



BC 

EQ.BAL11 

001B24 

92 81 F D20 



MVI 

SSCOMNyX* 81 * 

001B28 

45 BO F 10E 


BAL11 

BAL 

RllylSIO 

001B2C 

3E01 



DC 

X*3E01' 

001B2E 

0265 


TST265 

DC 

X* 0265* 

001B30 

FOOO 



DC 

X'FOOO' 

001B32 

FE48 



DC 

AL2CSSADRS-SECNO+REG) 

001B34 

45 40 F C7E 



BAL 

R4,CCDS 

001838 

OA 06 


EXIT12 

SVC 

X*D6* 

001B3A 

91 10 F 005 


SEE11 

TM 

SNSW+1,X*10* 

001B3E 

47 80 F AC6 



BC 

NONE,ANY2 

001B42 

91 40 F 004 



TM 

SNSWyX'40* 

DATE 

05MAY65 10AUG65 

15N0V65 15JUN67 


EC 

124252 125580 


125624 130498 



INSURE 360 MODE OP CODES 
INSURE 360 MODE OP CODES 
INSURE 360 MODE OP CODES 
INSURE 360 MODE OP CODES 
INSURE 360 MODE OP CODES 
INSURE 360 MODE OP CODES 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
MODIFY TEST NUMBER 
SET UP TO STKR SEL 10 CARDS 
SET UP CCW ADDRESS 
SET UP PUNCH INFO WORK AREA 
SET UP STKR SEL 1 CMD 
SET UP PUNCH ADDR IN CCW 
BR. TO ISSUE START 1-0 

TEST NUMBER 


TEST FOR ANY LOOP REQUESTS 
BR* IF ANY REQUESTS 
SET UP STKR SEL 2 CMD 
SET UP PUNCH ADDR IN CCW 
BR. TO ISSUE START 1-0 

TEST NUMBER 


TEST FOR ANY LOOP REQUESTS 
BR. IF ANY REQUESTS 
SET UP STKR SEL 1 CMD 
SET UP PUNCH ADDR IN CCW 


T E ST N U M B E R 


TEST FOR ANY LOOP REQUESTS 
BR. IF ANY REQUESTS 
SET UP STKR SEL 3 CMD 
SET UP PUNCH ADDR IN CCW 


TEST NU MBER 


TEST FOR ANY LOOP REQUESTS 

BR. IF ANY REQUESTS 

BR. UNTIL 10 PASSES THRU STKR SEL 

MOVE A BLANK 

BLANK THE REST OF THE PCH AREA. 
MOVE IN A 1400 STKR 3 CMD. 

SEE IF IN ROUTINE 13. . 

BR IF YES. 

MOVE IN A 360 STKR 3 CMD. 

BR TO ISSUE START 1-0. 

CTRL SWITCHES 

TEST NUMBER 
EXP COND. CODE AND SENSE 
EXP CSW ADDRESS 
BR TO CHK CDS. 

ROUTINE EXIT 

TEST SNS SW 11 FOR STKR SEL 1 LOOP 
BR. IF NO LOOP ON STKR SEL 1 
TEST SNS SW 1 -SIO TIG LOOP- 


ID F821-3 
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001B46 

47 

80 

F 

BCA 



BC 

NONE yCPTl 

BR. TO LOOP STKR SEL 1 WITH PRINTOUT 

001B4A 

92 

01 

F 

D20 


C0MP1 

MVI 

SSCOMN,X'Ol' 

SET UP TIGHT LOOP ROUTINE TO DO... 

001B4E 

D2 

02 

F 

D21 F 

E58 


MVC 

SSCOMN+K3) ySSONE 

SIO TIO STKR SEL 1 

001B54 

45 

60 

F 

BAO 



BAL 

R6,TITELP 

BR. TO COMMON TEST NUMBER ROUTINE 

001B58 

47 

FO 

F 

AA8 



BC 

UNCyANYl 

RETURN FOR SNS SW CHECK 

001B5C 

91 

08 

F 

005 


SEE12 

TM 

SNSW+1,X'08« 

TEST SNS SW 12 FOR STKR SEL 2 LOOP 

00I860 

47 

80 

F 

BO 2 



BC 

NONE,ANY3 

BR. IF NO LOOP ON STKR SEL 2 

001B64 

91 

40 

F 

004 



TM 

SNSW,X'40 # 

TEST SNS SW 1 -SIO TIO LOOP- 

001B68 

47 

80 

F 

BDA 



BC 

N0NE,CPT2 

BR. TO LOOP STKR SEL 2 WITH PRINTOUT 

001B6C 

92 

41 

F 

D20 


C0MP2 

MVI 

SSCOMNy X f 41* 

SET UP TIGHT LOOP ROUTINE TO DO... 

001B70 

D2 

02 

F 

D21 F 

E5B 


MVC 

SSCOMN+K 3) ySSTWO 

SIO TIO STKR SEL 2 

001B76 

45 

60 

0 F 

BAO 



BAL 

R6,TITELP 

BR. TO COMMON TEST NUMBER ROUTINE 

001B7A 

47 

FO 

F 

AC6 



BC 

UNC,ANY2 

RETURN FOR SNS SW CHECK 

001B7E 

91 

04 

F 

005 


SEE13 

TM 

SNSW+1,X*04* 

TEST SNS SW 13 FOR STKR SEL 3 LOOP 

001B82 

47 

80 

F 

AA8 



BC 

NONE,ANY1 

BR. IF NO LOOP ON STKR SEL 3 

001B86 

91 

40 

F 

004 



TM 

SNSW,X'40« 

TEST SNS SW 1 -SIO TIO LOOP- 

001B8A 

47 

80 

F 

BEA 



BC 

NONE,CPT3 

BR. TO LOOP STKR SEL 3 WITH PRINTOUT 

001B8E 

92 

81 

F 

D20 


C0MP3 

MVI 

SSCOMN,X*81 * 

SET UP TIGHT LOOP ROUTINE TO DO... 

001B92 

D2 

02 

F 

D21 F 

E5E 


MVC 

SSC0MN+1C3)ySSTHRE 

SIO TIO STKR SEL 3 

001B98 

45 

60 

F 

BAO 



BAL 

R6,TITELP 

BR. TO COMMON TEST NUMBER ROUTINE 

001B9C 

47 

FO 

F 

B02 



BC 

UNC,ANY3 

RETURN FOR SNS SW CHECK 

001BAO 

41 

AO 

F 

D20 ; 


TITELP 

LA 

RIO,SSCOMN 

SET UP CCW ADDRESS 

001BA4 

45 

BO 

F 

16A 



BAL 

RllylHANG 


001BA8 

3E01 





DC 

X'3E01* 


001BAA 

0270 




TST270 

DC 

X* 0270* 

T E S T N U M 8 E R 

001BAC 

FOOO 





DC 

X'FOOO' 

I 

001BAE 

FE48 





DC 

AL2(SSADRS-SECNO+REG) 


001BB0 

41 

00 

0 

001 



LA 

RO, 1 

REDUCE RTN LOOP COUNTER TO 1 

001BB4 

07 

F6 





BCR 

UNC,R6 


001BB6 

OA 

DO 




SNSMES 

SVC 

X'DO* 


001BB8 

AO 






DC 

X'AO* 


001BB9 

40 






DC 

X* 40* 


001BBA 

FE61 





DC 

AL2CMSG1-SECNO+REG) 


001 BBC 

OA 

DO 





SVC 

X'DO' 


001BBE 

CO 






DC 

x«co' 


001BBF 

3D 






DC 

X* 3D* 


001BC0 

FEA1 





DC 

AL2(MSG2-SECNO+REG) 


001BC2 

50 

AD 

0 

048 



ST 

RIO,HCAW(R13) 

STORE CAW 

001BC6 

47 

FO 

F 

55E 



BC 

UNCySSRET 

RETURN TO MAIN HANDLER 

001BCA 

95 

13 

F 

003 


CPT1 

CLI 

SECN0+3,X'13' 

SEE IF IN RTN 13 - 

001BCE 

47 

60. 

F 

A92 



BC 

UNEQ,D0SS1 

BR. IF NOT RTN 13 

001BD2 

92 

11 

F 

D20 



MVI 

SSCOMNy X'll •» 

MOVE IN COMPAT STKR SEL CMD 

001BD6 

47 

FO 

F 

A96 



BC 

UNC yDOSSIC 

BR. TO DO STKR SEL COMPAT CMD LOOP 

001BDA 

95 

13 

F 

003 


CPT2 

CLI 

SECN0+3,X'13* 

SEE IF IN RTN 13 

001BDE 

47 

60 

F 

ABO 



BC 

UNEQyD0SS2 

BR. IF NOT RTN 13 

001BE2 

92 

51 

F 

D20 



MVI 

SSCOMN,X'51' 

MOVE IN COMPAT STKR SEL CMD 

001BE6 

47 

FO 

F 

AB4 



BC 

UNC »D0SS2C 

BR. TO DO STKR SEL COMPAT CMD LOOP 

001BEA 

95 

13 

F 

003 


CPT3 

CLI 

SECN0+3,X * 13* 

SEE IF IN RTN 13 

001BEE 

47 

60 

F 

AEC 



BC 

UNEQ,D0SS3 

BR. IF NOT RTN 13 

001BF2 

92 

91 

F 

D20 



MVI 

SSC0MNyX*91* 

MOVE IN COMPAT STKR SEL CMD 

001BF6 

47 

FO 

F 

AFO 



BC 

UNC,D0SS3C 

BR. TO DO STKR SEL COMPAT CMD LOOP 

001BFA 

F1F1F1F1F1F1F1F1 

STKR1 

DC 

X'FIFIFIFIFIFIFIFI* 


001C02 

F2F2F2F2F2F2F2F2 


DC 

X'F2F2F2F2F2F2F2F2• 


001C0A 

F3F3F3F3F3F3F3F3 


DC 

X*F3F3F3F3F3F3F3F3• 


001C12 







CNOP 

0,4 


001C12 

07 00 




BCR 

0,0 



t*******^***************************************************!********** 


* ROUTINE 13- ISSUE A 1400 MODE PUNCH STKR SELECT -STACKER 1- FOLLOWED 

* BY STACKER SELECT -STACKER 2- FOLLOWED BY STACKER SELECT 

* -STACKER 1- FOLLOWED BY STACKER SELECT -STACKER 3-. THIS 

* SERIES OF COMMANDS WILL GIVE A STACKER PATTERN OF 1-2-1-3 

* . 


* 

♦ 

* 

♦ 

♦ 

♦ 


THE ENTIRE SERIES IS REPEATED -10- TIMES. BY SETTING THE 
PROPER SENSE SWITCHES ANY ONE STACKER SELECT COMMAND CAN 
BE LOOPED EITHER IN A TIGHT SIO-TIO LOOP OR A LOOP THAT 
INCLUDES ERROR MESSAGE PRINTOUTS. PUNCHED IN EACH CARD 
THAT IS STACKER SELECTED IS THE NUMBER OF THE STACKER 
POCKET THE CARD SHOULD BE FOUND IN. 


| 

f 


i 

! 
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001C14 

001C15 

001C18 

001CIC 

001C20 

001C24 

001C28 

001C2C 

001C30 

001C34 

001C38 

001C3C 

001C40 

001C44 

001C48 

001C4C 

001C50 

001C54 

001C58 

001C5C 

001C60 . 

001C64 : 

001C68 


001C6A 
001C6C 
001C6E 
001C70 
001C72 
001C76 
00IC78 
001C7A 
001C7C 


001C7E 

001C80 

001C82 

001C84 

001C86 

001C88 

001C8A 

001C8C 


13 

OOFFFF 
91 04 F 
47 80 F 

91 08 F 
47 80 F 
45 40 F 
45 40 F 

92 91 F 
92 11 F 
92 51 F 
92 11 F 
92 11 F 
92 51 F 
92 91 F 
92 12 F 
92 12 F 
92 12 F 
92 12 F 
92 12 F 
92 12 F 
47 FO F 
OA 06 


OA DO 
2428 
FF2 5 
OA DA 

9D 00 t 000 


* SENSE SWITCH OPTIONS ARE DESCRIBED IN THE PROGRAM 

*' DESCRIPTION AND THE TEST NUMBER WRITE-UP. 

R0UTI3 DC X'lB' ROUTINE NUMBER 

nr : v•nncccc• . ____ 


X*00FFFF• 
SNSW,X*04• 
NONEfEXIT13 
UlOPt X # 08• 

NONE ,EXIT12 

R4.INIT 

R4,RAC 

D0SS1+1$X*91* ' 
D0SS2+lyX*ll•, 
INTERV+l,X•51 * 
D0SS3+1,X*11* 
COMPl+l,X*II • . 
C0MP2+1,X*51 # , 
C0MP3+lyX*91• 
TST230,X*12* 
TST240,X*12' 
TST250,X*12• 
TST260tX*12* 
TST265yX*12* 
TST270,X*12* 
UNC »RTN13 


LAST ROUTINE 

SEE IF SSW 5 IS ON. 

BR IF NOT. 

SEE IF 1400 PUNCH COMPATIBILITY 

ROUTINE EXIT 

BR. TO INITIALIZE 

BR TO SET UP STK SELECT. 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

INSURE 1400 MODE COMMANDS 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

MODIFY TEST NUMBER 

GO TO RTN 12 TO EXECUTE 1400 CMOS 


EXIT13 SVC X*D6» ROUTINE EXIT. 

* PRINT REMOVE ALL CDS FOR STACKER SELECT TEST 


SVC 

X*DO* 

PRINT -REMOVE CAROS- 

DC 

X'2428* 

DC 

AL2(DONPRO—SECNO+REG) 


SVC 

X*DA* 

-HALT- 

TIO 

0(R12) 

TEST 1-0 

SVC 

X*DO* 

PRINT A BLANK 

DC 

X* 8001 * 


DC 

AL2(DONPRO-SECNO+REG) 


BCR 

UNC,R4 

RETURN. 


BCR UNC v R4 RETURN. 

* PRINT MAKE VISUAL CHK OF CARDS IN STACKERS 


SVC 

X *D0* 

PRINT -CHK CARDS- 

DC 

X* 2432* 

DC 

AL2(VISUAL-SECNO+REG) 


SVC 

X'DA* 

-HALT- 

SVC 

X*DO* 

PRINT A BLANK 

DC 

X* 8001• 


DC 

AL2(VISUAL-SECNO+REG) 


BCR 

UNC,R4 

RETURN. 


CHANNEL COMMAND WORDS -CCW- 


001C90 
001C98 
001CA0 
001CA8 
001CB0 
001CB8 
001CC0 
001CC8 
001CDO 
001CD8 
001CE0 
001CE8 
001CF0 
001CF8 
001D00 
001DOS 


41 0016FC 
41 0016FC 
41 0016FC 
53 0016FC 
03 0016FC 
03 0016FC 
C2 0016FC 
C2 0016FC 
41 0016FC 
41 0016FC 
41 0016FC 
41 0016FC 
41 001710 
41 001724 
41 001710 
41 0016FC 


PCSHRT 

PCLONG 

CHAINP 

INVLD 

NOPCCW 

CCW 

DIARDS 

D1ARDL 

CHNPCH 


y PCHAR yX *00• 
yPCHAR,X*00* 
yPCHAR yX'40* 
yPCHAR yX *00• 
,PCHAR,X*40* 
,PCHAR,X*20* 
yPCHAR,X*00* 
yPCHAR,X*00* 
yPCHAR,X*40' 
yPCHARyX*00* 
yPCHAR,X*40* 
yPCHAR,X*00* 
yPCHAR+20,X* 
yPCHAR+40,X* 
yPCHAR+20,X* 
• PCHAR f X * 00 * 


SHORT COUNT PUNCH -VARIABLE SIL- 
LONG COUNT PUNCH -VARIABLE SIL- 
PUNCH COMMAND CHAINED 
INVALID COMMAND 

COMMON CCW -VARY OP AND FLAG- 
DIAG. READ SHORT COUNT -VARIED SIL- 
DIAG. READ LONG COUNT ■•-VARIED SIL- 
PUNCH CHAIN VALID 

PUNCH CHAIN SHORT ^VARIABLE COUNT 

20 DATA CHAIN 20 BYTES -VARY COUNT 

20 DATA CHAIN 20 BYTES 

20 DATA CHAIN 20 BYTES -VARY FLAG 

DATA CHAIN 20 BYTES 


DATE 05MAY65. 1QAUG65 15N0V65 15JUN67 

EC 124252 125580 125624 ' 130498 
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001D10 

41 0016FC COOO 0023 

DTAINV CCW 

X*41* yPCHARyX*CO*,40 DATA AND CMD CHAIN TO INVALID 

001B18 

53 001724 0000 0028 ’ 

DATA2 CCW 

X*53*,PCHAR+40,X*00S40 DATA AND CMD CHAIN TO INVALID 

001D20 

01 0016FC 2000 0008 < 

SSCOMN CCW 

* . 

X*01 * yPCHAR,X*20* §08 



* 

****************** **** 4^*******************4uM‘*****:M***4uM‘**3M‘******** 



♦ EXPECTED CSW ADDRESS AND EXPECTED CHANNEL STATUS WORD -CSW- 



*******************************************************,************* 4 * 

001D28 

00001C98 

NORM DC 

A(PCSHRT+8) 

001D2C 

08000000 

DC 

X*08000000* 

001D30 

00000000 

DC 

XL4* 0* 

001D34 : 

04000000 

DC 

X*04000000* 

001D38 

00001C98 

SHRTCW DC 

A(PCSHRT+8) 

001D3C 

08400000 

DC 

X*08400000* 

001D40 

00000000 

DC 

XL4*0* 

001D44 

04000000 

DC 

X*04000000* 

001D48 

00001CA0 

LNGCW DC 

A(PCL0NG+8) 

001D4C 

08400001 

DC 

X*08400001* 

001D50 

00000000 

DC 

XL4*0* 

001D54 

04000000 

DC 

X*04000000* 

00ID58 

OOOOICAO 

NOILRL DC 

A(PCLONG+8) } 

001D5C 

08000001 

DC 

X*08000001* 

001D60 

00000000 

DC 

XL4*0* 

001D64 

04000000 

DC 

X* 04000000* 

0Q1D68 

00001CC8 

DIASRT DC 

A(DIARDS+8) 

001D6C 

0C4 ooooo ; 

DC 

X*0C400000* 

001D70 

00001CD0 

DIALNG DC 

ACDIARDL+8) ? 

001D74 

0C400001 

DC 

X*0C400001* 

001D78 

00001CC8 

DAILRS DC 

A(DIARDS+8) > 

001D7C 

ocoOOOOO 

DC 

X*OCOOOOOO* , 

001D80 

OOOOICDO 

DAILRL DC 

A(DIARDL+8) 

001D84 

0C000001 

DC 

X*0C000001* 

001D88 

OOOOICBO 

UNCK DC 

AUNVLD+8) 

001D8C 

02000050: 

DC 

X*02000050* 

001D90 

OOOOICCO 

NORSET DC 

AfCCW+8) 

001D94 

OCOOOOOO 

DC 

X*OCOOOOOO« 

001D98 

00000000 

NEXT1 DC 

XL4*0* 

001D9C 

OCOOOOOO 

DC 

X*OCOOOOOO* 

001DA0 

OOOOICCO 

NOPRES DC 

AICCW+8) 

001DA4 

0C000001 

DC 

X'OCOOOOOl* 

001DA8 

OOOOICEO 

VLDCHN DC 

ACCHNPCH+16) 

001DAC 

08000000 

DC 

X*08000000* 

001DB0 

00000000 

DC 

XL4*0* 

001D84 

04000000 

DC 

X*04000000* 

001DB8 

00001CE8 

CHNSRT DC! 

A(SHRTCH+8) 

001DBC 

08400000 

DC 

X*08400000* 

001DC0 

00000000 

DC 

XL4*0* 

001DC4 

04000000 

DC 

X*04000000* 

001DC8 

OOOOICEO 

CHNLNG DC 

A(SHRTCH+8) 

001DCC 

08400001 

DC 

X*08400001* 'p 

001DD0 

00000000 

DC 

XL4*0* 

001DD4 

04000000 

DC 

X*04000000* 

001DD8 

OOOOICFO 

ITSELF DC! 

ACSHRTCH+T6) 

001DDC 

08000000 

DC 

X*08000000* 

001DE0 

00000000 

DC 

XL4*0* 

001DE4 

04000000 

DC 

X*04000000* 

001DE8 

00001D10 

N0RM1 DC 

A(DATA1+8) 

001DEC 

08000000 

DC 

X* 08000000* 

001DF0 

00000000 

DC 

XL4*0* 

001DF4 

04000000 

DC 

X* 04000000* < 

001DF8 

00001D10 

N0RM2 DC 1 

AfDATAl+8) 

001DFC 

08400014 

DC 

X*08400014* 

001E00 

00000000 

DC 

XL4*0* 

001E04 

04000000 

DC 

X*04000000* 

001E08 

00001D08 

N0RM3 DC 

A(DATAl) 

001EOC 

08400001 

DC 

X*08400001* 

001E10 

00000000 

DC 

XL4*0* 

001E14 

04000000 

DC 

X*04000000* 

DATE 

05 MAY 65- 10AUG65 15N0V65 15JUN67 
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00IEI8 

00001D20 

DTACCW DC 

A(DATA2+8) 


001E1C 

08000000 

DC 

X*08000000* 


001E20 

00000000 

DC 

XL4*0* 

, 

001E24 

04000000 

DC 

X*04000000* 


001E28 ' 

00001690; v 

SNSCSVf DC 

A(ISENSE+8) 


001E2C 

ocoooooo 

DC 

X*OCOOOOOO* 


001E30 

00001CF0 

NEXT DC 

A(SHRTCH+16) 


001E34 !. 

08000001 

DC 

X*08000001* 

' 

001E38 

00000000 

DC 

XU4*0* 


001E3C 

04000000 

DC 

X*04000000* 


001E40 

00000000 

UCNVLD DC 

XL4*0* 


001E44 

02000000 

DC 

X*02000000* 

" 

001E48 

00001D28 

SSADRS DC 

AC SSCOMN+8) 

■T 

001E4C 

08000000 

DC 

X*08000000* 


001E50 

00000000 

DC 

XL4*0* 


001E54 

04000000 

DC 

X*04000000* 


001E58 

0016FC 

SSONE DC 

AL3CPCHAR) 


001E5B 

001704 

SSTWO DC 

AL3(PCHAR+8) 


001E5E 

00170C 

SSTHRE DC 

AL3(PCHAR*M6) 



* 




4 

44444444444444444644444444446444444444444444444444446644444444444446444 

♦ MESSAGES 

66666666666666666666666466446466666666666446664666646644646646666666666 

001E61 . 
001E6A 

40E2D5E240E2E640F1 

F140F1F240D6D9 

MSG1 DC 

c 

• SNS SVi 11 12 OR* 

001E71 

001E7A 

40F1F340D60540E3D6 
40D3D6D6D740E2 

DC 

c 

• 13 ON TO LOOP S* 

001E81 

001E8A 

E3D2D940E2C5D340F1 

40F240D60940F3 

DC 

c 

•TKR SEL 1 2 OR 3* 

001E91 

001E9A 

60E6C9E3C840C5D9D9 

40E2E3D6D7E260 

DC 

c 

•-WITH ERR STOPS-* 

001EA1 

001EAA 

40E2D5E240E2E640F1 

40E6C9E3C840C1 

MSG2 DC 

c 

• SNS SW 1 WITH A* 

001EB1 

001EBA 

D5E 840D6C640C1C2D6 
E5C540C6D6D940 

DC 

c 

•NY OF ABOVE FOR « 

001EC1 

001ECA 

E2C90640E3C9D640D3 

D606D760D5D640 

DC 

c 

•SIO TIO LOOP-NO • 

001ED1 

C5D9D940C3C8C5C3D2 

DC 

c 

•ERR CHECKING- 1 * 8 

001E0A 

C9D5C760 




001EDE 

001EE7 

4004C1D2C540E3C8C5 

40D7E405C3C840 

PCH3 DC 

c 

• MAKE THE PUNCH • 

001EEE 
001EF7 

D607C5D9C1E3C9D6D5 

C1D340C1D5C440 

DC 

c 

•OPERATIONAL AND • 

001EFE 

D9C5C1C4E8 

DC 

c 

•READY* 

001F03 

001F0C 

40D7D3C1C3C540C2D3 

C1D5D240C3C1D9 

PCH4 DC 

c 

* PLACE BLANK CAR* 

001FI3 
001F1C 

C4E240 C9D540D7 E4D5 
C3C840C8D6D7D7 

DC 

c 

•DS IN PUNCH HOPP* 

001F23 

C5D9 

DC 

c 

•ER* 

001F25 

001F26 

40C4D640D5D6D7D9D6 
6B40D9C5D4D6E5 

DONPRO DC 

C 

• DO NOPROt REMOV* 

001F35 
001F3E 

C540C1D3D340C3C4E2 

40C6D9D6D440D7 

DC 

c 

•E ALL CDS FROM P* 

001F45 

C3C840E2E3D2D9E2 

DC 

c 

•CH STKRS* 

001F4D 

40E2C5C540C9C6 

VISUAL DC 

c 

• SEE IF* 

001F54 : 
001F5D 

40C3C4E240D7C3C8C5 

C440E6C9E3C840 

DC 

c 

• CDS PCHED WITH • 

001F64 

001F6D 

40F140C9D540D7F16B 

40F 240C9D540D7 

DC 

c 

• 1 IN PI, 2 IN P* 

001F74 

001F7D 

F26B40F340C9D54009 

D7F3 

DC 

4 . 

4 . 

c 

•2, 3 IN RP3• 


4444444444444444444444444444*444444444444444444444444444444444444444444 
* EQUATES 

♦4444444444466444644464446666464466464646444444446 4 66466466446444444444 
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2540 PUNCH FUNCTION TESTS - SECTION 2 F821 


000000 

NEVER 

EQU 

0 

000007 

NCCO 

EQU 

7 

OOOOOF 

UNC 

EQU 

15 

000008 

NONE 

EQU 

8 

000004 

SOME 

EQU 

* 

000001 

ALL 

EQU 

1 

000005 

ANY 

EQU 

5 

000008 

CCO . 

EQU 

8 

000004 

CC1 

EQU 

4 

000002 

CC2 

EQU 

2 

000001 

CC3 

EQU 

1 

OOOOOA 

CC02 

EQU 

10 

000006 

CC12 

EQU 

6 

000008 

EQ 

EQU 

8 

000004 

LO 

EQU 

4 

000002 

HI 

EQU 

2 

000006 

UNEQ 

EQU 

6 

OOOOOC 

EQLO 

EQU 

12 

OOOOOA 

EQHI 

EQU 

10 

000080 

LOGOUT 

EQU 

X* 80* 

000181 

SYSMOO 

EQU 

X*181* 

OOFOOO 

REG 

EQU 

X*F000* 

00005A 

WHAT 

EQU 

90 

000000 

RO 

EQU 

0 

000001 

R1 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

OOOOOB 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 

DMSSW 

EQU 

X*01A0* 



END 

R0UT01 
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2540 PUNCH FUNCTION TESTS - SECTION 2 F821 

POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


! i 

8 

EQ 

136C, 

14EE, 

14F6, 

17B0, 

1B20 



i 

2 

HI 








i i' 

4 

LO 









0 

RO 

1A84* 

1B0A, 

1BB0 





| i 

1 

R1 

118 2 » 

1186, 

1192, 

17A2, 

17AE, 

17B8, 

17E4 

i i 

2 

R2 

17A0t 

17A0, 

17AA, 

17AE 




i i 

3 

R3 

17A6, 

17AA, 

17B4 





! i 

4 

R4 

16D8t 

1788, 

179C, 

1850, 

18AC , 

1910, 

1964 




1980, 

1988, 

19D4, 

19F8, 

1A1C , 

1A48 , 

1A4C 

i 



1B34, 

1C28, 

1C2C, 

1C7C, 

1C8C 



1 1 ; 

5 

R5 

1562, 

16EA 






i 

6 

R6 

1B54, 

IB 76, 

1B98, 

1BB4 




{ i 

7 

R7 








j 1 : 

8 

R8 

1128, 

12D4, 

12D8, 

133C, 

1340, 

135E, 

135E 




1362, 

13A8, 

13AC, 

145E, 

1462, 

1466, 

1466 




146A, 

1574 






1 

9 

R9 

1128, 

1210, 

1214, 

1220, 

1276, 

12CC, 

12D0 




12EC, 

1574 

1404, 

1432, 

1474, 

148C , 

14A4, 

14BC 

< 

1 

198 

WT 

1182, 

1210, 

12CC 





1 

l 

ALL 

1146, 

11A8, 

11F0, 

1208, 

1240, 

1298, 

12B8 

j 



12F8, 

18B4 

1304, 

1380, 

13C8, 

1542, 

1562, 

16C8 

1 

5 

ANY 

155A 







4 

1048 

CAW 








1 

8 

CCO 

118E, 

11BA 






1 

4 

CC1 

11BE, 

12E8 






1 

2 

CC2 

11C2 







1 

1 

CC3 








8 

1CB8 

CCW 

16CC, 

16D0, 

16D4, 

17B8, 

17BC « 

17D4 , 

1924 

' 



1934, 

1948, 

194C, 

1D90, 

1DA0 



! 8 1 

1040 

csw 








! 2 

100A 

ICM 








4 

1182 

I HI 

1166, 

1176 






j 2 

10 E4 

ISW 

1196, 

1196, 

119C, 

11E0, 

1200, 

120C, 

1218 

| 



1228, 

1238, 

123C, 

124A , 

127A , 

1288, 

1294 

i 



129C, 

12AC, 

12BC, 

12F4, 

1300, 

1314, 

1334 

\ 



1356, 

1370, 

137C, 

1478, 

14A8, 

14C6 , 

152E 




1536, 

155E, 

16C4, 

16E6, 

16EE 



| * 

1570 

IUP 

1568 







| 1 

A 

RIO 

1124, 

1132, 

13E2, 

13FE, 

1408, 

1410, 

1410 

j 



1552, 

16D4, 

1858, 

186C, 

1880, 

1894, 

18BC 

| 



18D0, 

18E4, 

18F8, 

1914, 

1924, 

1944, 

1968 

1 



198C, 

19A0, 

19BC, 

19E0, 

1A04 9 

1A28, 

1A88 

I 

i 



1BA0, 

1BC2 






| l 

B 

Rll 

11 IE, 

1124, 

1142, 

11A4, 

11E4, 

11F4, 

1204 




128C, 

12A4, 

1318, 

1322, 

132C, 

133C, 

134E 




1394, 

13AC, 

13AE, 

13C0, 

13C0, 

13C4, 

1434 




1450, 

145E, 

1490, 

14C0, 

153E, 

1564, 

156C 




156C, 

1570, 

1570, 

1578, 

178C , 

17C8, 

17D8 

\ 



185C, 

1870, 

1884, 

1898, 

18C0, 

18D4, 

18E8 

1 

I 



18FC, 

1918, 

1928, 

1938, 

1950, 

196C , 

1990 

| . 



19A4, 

19C0, 

19E4, 

1A08, 

1A2C, 

1A9C, 

1 ABA 




1AD8, 

1AF6, 

1B28, 

1BA4 




| 1 

C 

R12 

115A, 

116A, 

117A, 

118A, 

11B6, 

1230, 

12DC 

i 



12E4, 

16BC, 

16C0, 

177A, 

1C72 



| 1 

/ D 

R13 

1132, 

1136, 

1136, 

11DA, 

1208, 

130C, 

1552 




16B0, 

1680, 

16BA, 

1BC2 




| 1 

E 

R14 

113C, 

113C, 

1210, 

12CC, 

14FA, 

1502, 

16B2 

i l 

F 

R15 

1244, 

1252, 

1282, 

16BA 




1 2 

1C6A 

RAC 

1A4C, 

1C2C 
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1 

FOOO 

REG 

1264, 

13A6, 

13BE, 

I3D8, 

13F2 , 

143Q, 

143E 




1444, 

14DA, 

14E8, 

152C , 

154A, 

1550, 

16E4 




176A, 

1770, 

1776, 

17D2, 

17E2, 

1866, 

187A 




188E, 

18A2, 

18CA, 

18DE, 

18F2, 

1906, 

1922 




1932, 

1942, 

195A, 

1976, 

199A , 

19AE, 

19CA 




19EE, 

1A12, 

1A36, 

1AA6, 

1AC4# 

1AE2, 

1B00 




1B32, 

1BAE, 

1BBA, 

1BC0, 

1C6E, 

1C7A, 

1C82 




1C8A 







4 ! 

17AA 

RIP 

17B4 







1 

F 

UNC 

10F6, 

110A, 

U5E, 

117E , 

11C A # 

11D2, 

11F8 




122C, 

124E, 

127E, 

12A0, 

12F0, 

12FC, 

1308 




1414, 

1432, 

153A, 

1578# 

16D8, 

16F2, 

177E 




1B58, 

1B7A, 

1B9C, 

1BB4, 

1BC6, 

1BD6, 

1BE6 




1BF6, 

1C64, 

1C7C, 

1C8C 




4 

1AA8 

ANY1 

1858, 

1B82 






4 

1AC6 

ANY2 

1B3E, 

1B7A 






4 

1B02 

ANY3 

I860, 

1B9C 






1 

A 

CC02 








1 

6 

CC12 








2 

1C7E 

CCDS 

1B34 







4 

1BCA 

CPT1 

1B46 







4 

1BDA 

CPT2 

1B68 







4 

1BEA 

CPT3 

1B8A 







1 

A 

EQHI 








1 

C 

EQLO 








4 

118A 

GREG 

1192 







1 

48 

HCAW 

1132, 

12D8, 

1552, 

1BC2 




1 

40 

HCSW . 

1136, 

1136, 

11DA, 

1244,’ 

1252, 

1282, 

130C 

4 

17 E4 ! 

HOHO 

17B0, 

17C0 






16 

174C 

HUNG 

16E4 







3 

15 FF 

I ACT 

1270, 

1480, 

14B0 





6 

1322 

IBSN 

12B0, 

12C0, 

12C8, 

12F0 




12 

15D3 

ICAW 

13E2, 

13EA, 

13EC, 

13F2 




3 

15E2 

ICCW 

13F4 







1 

142F < 

ICNT 

126C, 

13FA, 

144C 





3 

15DF < 

ICSW 

1266, 

1446 






4 

14 A8 

IDID 

1494 







3 

1602 

IEXP 

1458, 

1498 






4 

10 E6 

IH10 








2 

16 BO 

IN IT < 

1788, 

179C, 

1850, 

18AC, 

1910, 

1964 i 

1980 




19B8, 

19D4, 

19F8, 

1A1C, 

1A48, 

1C28 


4 

1200 

INOW 

1146, 

11C A* 

1102, 

HE 8, 

11F0, 

11F8 


4 

128C 

INT3 

124E 







4 

11D6 

IONE 

11BE 







6 

14C0 

IPAS 

14AC 







4 

12A4 

I SEN 

1208, 

122C, 

1290, 

1298 




4 

110E 

ISIO 

17C8, 

17D8, 

185C, 

1870, 

1884, 

1898# 

18C0 




18D4, 

18E8, 

18FC, 

1918, 

1928# 

1938# 

1950 




196C, 

1990, 

19A4* 

19C0, 

19E4, 

1A08# 

1A2C 




1A9C, 

1ABA, 

1AD8, 

1AF6, 

1B28 



6 

1282 

ISV2 

1240 







4 

12 EC 

IT IC 

1310 







4 

10 FA 

IT 10 

178C 







4 

11CE 

ITWO 

11C2 







6 

1252 

IUIO 

1234 







6 

1196 

JOHN 

114E, 

118E 






16 

1E61 

MSGl 

1BBA 







16 

1EA1 

MSG2 

1BC0 







1 

1693 

MSK1 

121C 







1 

1694 

MSK2 

1224 







1 

7 

NCCO 

116E, 

12E0, 

1310 





2 

17 CC 

NEIL 

17C4 







4 

1E30 

NEXT 








1 

100D 

NIOU 








1 . 

8 

NONE 

114E, 

1156, 

1166, 

1176, 

11E8, 

1290, 

12A8 




12B0, 

12C0, 

12C8, 

1330, 

1338, 

1352, 

135A 




1388, 

140C, 

1454, 

147C, 

1494# 

14AC, 

14CA 




1532, 

1568, 

1686, 

17C0, 

1A44, 

1B3E, 

1B46 
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1B60, 

1B68, 

1B82, 

1B8A, 

1CIC, 

1C24 


4 ! 

1D28 

NORM 

188E 







16 

1EDE 

PCH3 

1776 







16 , 

1F03 

PCH4 

176A« 

1770 






1 

1695 

RTSV 

112C, 

16DA 






1 

100C 

SDMF 








4 

1004 1 

SNSW. 

114A, 

1152, 

1162, 

1172, 

1384, 

1556, 

1A40 




1AA8, 

1AC6, 

1AE4, 

1B02, 

1B3A, 

1B42, 

1B5C 




IB 64, 

1B7E, 

1B86, 

1C 18 




1 

4 

SOME 

1AAC, 

1ACA, 

1AE8, 

1806 




3 

105D 

SRET 








1 

10EI 

U10P 

I860, 

1C20 






4 . 

1D88 

UNCK 

1922 







1 

6 

UNEQ 

1234, 

131E, 

1328, 

134A, 

13DE, 

14FE , 

1BCE 




1BDE, 

1BEE 






l; 

5A 

WHAT 








1 

1588 

WORK 

1252, 

13FE, 

141C, 

141E, 

1420, 

1426, 

146E 




146E, 

1486, 

149E, 

149E, 

I486, 

1502, 

150C 




150E, 

1510, 

1516, 

151C, 

1522 



4 *. 

17A6 

AGAIN 

17E4 







4 

1B28 

BAL11 

1B20 







4: 

16C4 

BLOOP 

16F2 







4 

1B4A 

C0MP1 

1A60, 

1C40 






4 

1B6C 

C0MP2 

1A64, 

1C44 






4 : 

1B8E 

C0MP3 

1A68, 

1C48 






8 

1D08 

DAT A1 

1DE8, 

1DF8, 

1E08 





8 

1D18 

DAT A2 

1E18 







1 

1A0 

DMSSW 








4 

1A92 

DOS SI 

1A50, 

1B0A, 

1BCE, 

1C 30 




4 

1 ABO 

D0SS2 

1A54, 

1BDE, 

1C34 





4 1 

1AEC 

DOS S3 

1A5C, 

1BEE, 

1C3C 





1 

100 E 

FLAG1 








1 : 

100 F 

FLAG2 








4 ! 

1132 

GOMAN 

177E 







16 

15E5 

I BLAH 

1266, 

1270, 

13F4, 

1420, 

1426, 

1430, 

1446 




1458, 

1480, 

1498, 

14B0 




2 

1418 

ICOUT 

1276, 

1404, 

1474, 

148C, 

14A4, 

14BC 


8 * 

1676 

ICSW1 

11DA, 

11EC, 

1244, 

12B4, 

1344, 

1344, 

1486 

8 

167E 

ICSW2 

1262, 

12C4, 

1366, 

1366, 

14B6 



4 1 

152E 

ICUIO 

14FE 







4 1 

1478 

IDIDI 

1454 







4 I 

116A 

IHANG 

117E, 

1BA4 






16 

15C3 

ILINK 

13AE, 

13B6, 

13B8, 

13BE, 

1550 



4 ! 

130C 

ILOKE 

12E8 







4 ! 

115A 

ILOOP 

10F2, 

10FE, 

1112 





4 ' 

1370 

INDER 

12E0, 

12F8, 

1304, 

131E , 

1328 , 

1338, 

134A 




135A 







5 

1010 

INPSW 








8 

1CA8 

INVLD 

1D88 







3 

1690 

IOADR 

13D0 







6 

1446 

IOCSW. 

13C8 







16 

161B 

10L0G 

1510, 

1516, 

151C, 

1522, 

152C 



16 

1640 

I OPT 1 

10EA, 

1102, 

1116, 

154A 




4 

14FA 

IPASS 

14CA, 

14EE 






8 

1580 

ISAVE 

1128, 

1574 






4 

11B6 

ISSUE 

10E6, 

10FA, 

110E, 

11A8, 

130A, 

1690 : 


4 

1152 

ITRY1 

115E, 

U6E, 

155 A 





4 

1162 

ITRY2 

1156 







11 

1696 

IUNEX 

125E, 

1264 






4 

1210 

IWAIT 

12A0, 

153A 






4 

11FC 

IZERO 

11BA 







4 

1D48 

LNGCW 

187A 







4 

16F8 

M0D50 

16C0 







1 

0 

NEVER 








4 

1D98 

NEXT1 

1932 







4 : 

1DE8 

N0RM1 

19EE 







4 

1DF8 

N0RM2 

1A12 







4 

1E08 

N0RM3 

1A36 
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4 1490 IMORST 147C 

4 12F4 IN0EX1 1330 

4 1300 IN0EX2 1352 

4 1ACE INTERV 1A58, 1C38 

15 15B4 IOADDR 10EE* 1106* UlA, 1 13D2* 1308 

4 1078 IONPSW 

8 1038 IOOPSW 1230* 125C 

4 153E IOPOUT 1532 

6 1394 IOUT IT 1380 

4 1230 IRETRN 107C 

8 1688 ISENSE 1204* 1E28 

8 16A8 ISLAVE 1124 

4 12E4 ITIOLP 12EC 

4 1DD8 ITSELF 

9 1637 ITSTNO 111E* 1394* 139E* 13*0* 13A6 

1 80 LOGOUT 113C, 113C* 1502 

8 1070 MCNPSW 

8 ' 1030 MCOPSW 

4: 16BC NITWIT 16B6 

4 1 1D58 NOILRL 10A2 

8 ‘ 1CB0 NOPCCW 1944 

4! ID AO NOPRES 195A ■* 

* 4! y 1D90 NORSET 17E2, 1942. 

8 1C98 PCLONG ' 1868* 186C* 1890, 1894, 1D48* 1D58 

8 1C90 PCSHRT 1854, 1858* 187C* 1880* 1D28* 1D38 

4 1843 PFRFTR 

8 ; 1068 PGNPSW , 

8 1028 PGOPSW ' * . 

1 1784 R0UT01 1015* 1F7F , 

1 1798 R0UT02 1785 

1 184C ROUT03 1799 

1 18A8 ROUT04 • 184D 

1 19OC R0UT05 18A9 

1 1960 R0UT06 . 190D 

1 197C ROUT07 * 1961 

1 19B4 ROUT08 197D 

1 : 19DO R0UT09 19B5 

1. 19F4 ROUT 10 19D1 

1 1A18 ROUT 11 19F5 

1 1A3C ROUT 12 1A19 

1 1C14 ROUT 13 1A3D 


8 1 

ICED 

SHRTCH; 

1984,: 

1988, 

198C* 

199C* 

19A0* 

1DB8* 

1DC8 




1DD8* 

1E30 






4 i 

1D38 

SHRTCW 

1866 







4 

1E28 

SNSCSW 








2 

1BB6 

SNSMES 

1542 







4 * 

1E48 

SSADRS 

1AA6, 

1AC4* 

1AE2, 

1B00* 

1B32* 

1BAE 


8 

1D20 

SSCOMN 

1A88* 

1A92* 

1A96* 

1AB0* 

1AB4* 

1ACE * 

1AD2 




1AEC* 

1AF0* 

1B18* 

IB 24* 

1B4A* 

1B4E* 

1B6C 




1B70* 

1E48 

1B8E* 

1B92* 

1BA0* 

1BD2 * 

1BE2* 

1BF2 

3 

1E5E 

SSTHRE 

1AF0* 

1B92 






8 

1060 

SVNPSW 








8 

1020 

SVOPSW 








1 

181 

SYSMOD 

14FA 







2 

1766 

TELHIM 

14F6 







4 

IB AO 

TITELP 

1B54, 

1B76* 

1B98 





j 2 ' 

1AA2 

TST230 

1A6C, 

1C4C 






2 

1AC0 

TST240 

1A70* 

1C50 






2 

1ADE 

TST250 

1A74* 

1C 54 






/ 2 

1 AFC 

TST260 

1A78* 

1C58 






2 

1B2E 

TST265 

1A80* 

1C5C 






2 

1BAA 

TST270 

1A7C* 

1C60 






2 

10 E2 

U1ADDR 








4 

1E40 

UCNVLD 

17D2 







4 i 

17 EA 

VALCOM 

17AA 







7 

1F4D 

VISUAL 

1C82* 

1C8A 






4 ! 

1DA8 

VLDCHN 

1976 
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2540 PUNCH FUNCTION TESTS - SECTION 2 F82I 

1 . 1000 XF8213 

NO ERROR DETECTED!IN ABOVE ASSEMBLY 
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F821 2540 PCH FUNCTION SEC 2 


PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 

BESD......AA..AAXF82 13..AAAA.AG7. 

9 YQ Y9 YYQY Y88 

99 9 9999 99 

BTXT.AAA.. A8«l • AA8/AA AAAAAAAAAAOAADAAAAPD 

9 YQY Y9 Y9 9QY / YYYYYYYYY9+Y99YYYY90 

999 99 Z9 999999999 9 9999 

BTXT.AA8..A8..AAAAAA AAAAAAAAAAAAAAAAAAAA 

9 YQ9 Y9 Y9YYYY YYYYYYYYYYYYYYYYYYYY 

99 9 9 9999 99999999999999999999 

BTXT•AAO..AA.•AAAAAA AAAAADAAAAKA. 

9 YQ+ YQ Y9YYYY YYYY99YYYY9Q 

99— 99 9 9999 9999 9999 Z 

BTXT.AAS..A8..AABAAA AABF1FBH6JBH50BF1KG0 

9 YQ8 Y9 Y90YYY YY-Q 0- 8- 4-Q 8Z 

99 9 9 9 9 99 - 

BTXT.AJQ..AB.•AA6JBS 50K A64ABAL 6QA15AKA6E 

9 • Y99 Y9 Y9 8- + 9 8Q9QY OQO Y Y - 

9 9 9 90 9 

BTXT.AJ+..A8.•AA1FAA ODGA1KDA0AG01BA.ODGA 

9 Y9 Y9 Y9 —Y 9ZY ZQY+YZ R- 9ZY 

9 9 9 9 9 

BTXT.AJH..A8..AAACEA 0AGA1FFA1BPA0U0UFA0U 

9 Y90 Y9 Y9Y9QY +YZY -ZQ Y 9 -Y 

9 9 9 9 9 9 9 

BTXT.AJO.•A8..AA10GJ 1FB35PG02AB25PG02AB1 

9 Y9+ Y9 Y9 ZY , Y- YZ Y- YZ Y- 

9 9 9 9 9 9 9 

BTXT.AJ8..A8.•AAG02A B05PD70UA.AAGA2MFA0U 

9 Y9 Y9 Y9Z Y - Y-8 - QYZQ 0-Q 

9 9 9 9 09 9 9 

BTXT.AKA.•A8.•AAA002 G-2BD70UA.0UGA2BKG6F 

9 Y9Q Y9 Y98+ 8 Z R-8 - ZQ 0 9 R 

9 2 9 9 9 9 0 

BTXT.AKQ..A8..AA5W5G BK4XKB5D5GEA4QFB0UG0 

9 Y9Z Y9 Y9 Q -8 8 9 Q QZQ 9-9 Z 

9 99 9 99ZZ 

BTXT.AKJ*.A8..AAG02A ABAAGA2DA.0UGA3SAB62 

9 Y9Y Y9 Y9Z Q -9QYZY Y- ZY 9-9 8 

9 9 9 9 09 9 

BTXT.AKQ*. A8«i .AA+EAH DA0AG030EAOAG. 3DFA2U 

9 Y9 Y9 Y9 YYZ QY+YZ+ +QY+YZ 8ZQ 
9 9 9 9 99--99 9 

BTXT.ALA..A8..AAG02M FD0UNA6NAEG-30NA5PAD 

9 Y9Q Y9 Y9Z+ Y -9 Y 9Q9Z + Y YQ9 

9 9 9 9-9 90 - 9 0 

BTXT.ALH..A8..AA6FG- 30ADAAGA3AAJ0UGA30AH 

9 Y9Z Y9 Y9 RZ ♦-9QYZY Y-Y ZY +Z0 

9 9 9 0 - 09 9 9 


DATE 05MAY65 10AUG65 15N0V65 15JUN67 

EC 124252 125580 125624 130498 


COLS. 41 THROUGH 60 COLS. 61 THROUGH 80 
.. 194.130498..82130001 


AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA82130002 

YYYYYYYYYYYYYYYYYYYY YYYYYYYYYYYY 

99999999999999999999 999999999999 

AAAAAAAAADAAAAAAAAAA AAAAAAAAAAAA82130003 

YYYYYYYYY9YYYYYYYYYY YYYYYYYYYYYY 

999999999 9999999999 999999999999 

. 82130004 


10BE1FBE1KBT6JBT50G0 10BD1FBD1KBS82130005 

8—Q 0-Q 8- 8- «-Z 8—Q 0-Q 8- 

9 - 9 — 

OC+NAHPGO.O.PCSASAAA AAGA2AA00DGA82130006 

9 YYZ 9- - 88Y8Y-Y QYZQ Y-+ 9ZY 

9 9 09 9 9 

1BEA0AG01BA.0DGA1B0A 0AG01+H0AHHA82130007 

OQY+YZ+ R- 9ZY OQY +YZ -R89-0Q 

9 9 - 9 9 9 9 

BX5PAAAAGA1FB.6DKF6E 6DDA0AGA1DG.82130008 

- Y-9Q9ZQ 0- Q 8 Q QQY+YZY QZ 

09- Z Z Z 9 9 Z 

5PKG6F0.F.0UAAAAGA2A AH62GA2AF.AA82130009 

Y 9 R- - -YQ9ZY Y -9 8ZQ Y- QY 

0 0 9 9 9 09 

HFAHHAACFA0UAA6CFA2J AA6DD70UG02M82130010 

RQ9-0QY9-Y YY -ZQ Y YY —8 Z 0 

9 9 9 9 

O.F.0UG02DKG5H0.BEAC A1FCB0MC6FKB82130011 

Z Y 9 0 8QY9 Y89Q8-Z8 - 9 

999 99 9 9 

5BKG660.FJ0UAAAAGA2M AH0UGA2MFH0U82130012 

998 -Y -QQYZY 0 -9 ZQ 0-9 

9 909 9 

GA2DAJ0UGA3SAB6BGA3S HFAHHAABAA6H82130013 

ZQ Y-Y ZY 9-9 OZY 9 RQ9-0QY9ZY 0 

9 9 9 9 

G03SA.0UGA30G03DAJ0U GA30G03DED0D82130014 

Z 9- ZQ +Z R-Y ZQ +Z R-8-Z 

9- 09 9- 09 

G-30AHAAGA24A.0UGA30 HCAF.A3HNG6F82130015 

Z +-9QYZY - ZY ♦ ZYY9 Y Z 9 R 

- 09 “9 0 

AH.A3+NG66666A3DFA0U BM3MB05HAA0U82130016 

Y9 Y - 9 8 8ZY R-9 -Z 0-+ Z-9 

9 0 
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F821 2540 PCH FUNCTION SEC 2 I 


BTXT.ALA. 

• A8. 

•AAGA3D 

AA0DGA5MBU3MBA5HKA64 

ABBEABF4F4B0MA67AAAD 

LH+A5HBEACEI82130017 

9 Y9Y 

Y9 

Y9ZQ - 

-9 9ZY Z-9 0-Y Z 9 8 

Q98QY998988—Z8 9ZYY9 

80 Q 8QY99 

9 

9 

9 9 

9 

0 999 9 99 9 9 

9- 0 999 

BTXT.ALH. 

• A8« 

•AAEHBO 

JA5CACADAAAAGA4FBEAC 

FAEIB0JG5DED1FG-44+J 

5QBEACEREQB082130018 

9 Y90 

Y9 

Y99 8- 

YQ ZQY9-YQYZQ Z8QY9 

9Q908-YB 0-Q OZ 9 Y 

8QY99 9 8- 

9 - 

9 

9 9 

9 09 09 9 999 

—9 9 — 

999 9 

BTXT.ALO. 

• A8. 

•AAJC5L 

KB5W5SB04XKG5HJAEA4Q 

A0JDGA44AKAHG03FBEAH 

EHEHKG5K5HKG82130019 

9 Y9 

Y9 

Y9Y8 

9 -989 OYYZQ 9 

-♦Y9ZY 9ZYY9Z Q8QY9 

9090 9 Y 0 9 

9 

9 

9 9 

9 9 

9 Z999 

9 

BTXT.AMY. 

• AB. 

•AA535A 

B0JK5VG9KA5NADB0JB5J 

B0JB5KKB5W5GBK4XAHAA 

GA4HKB5D6BHC82130020 

9 Y99 

Y9 

Y9 Q 

8-Y8 9 Y 0Q98-Y8 Y 

8-Y8 Y 9 Q—8 8-9QY 

ZY R 9 Q 9ZY 

9 

9 

9 

9 9 9 0 9 9 

9 9 9 9 9 09 

0 Z 

BTXT.AM-. 

. A8. 

•AAAF.A 

4BAHAH.A4KKG5H5HEA4Q 

A.0UGA4AKB5D5GKG5H6F 

EA4QADAAGA4Q82130021 

9 Y9 

Y9 

Y9Y9 Y 

RZ0Y9 Y 0 9 0 OZQ 9 

ZYQ9QQ90R 

ZQ 9-9QYZY 0 

9 

9 

9 9 

0 9 

Z Z 0 

09 

BTXT.AMH. 

• A8. 

•AAKB5D 

6BKG5H5HEA4QAJ0UGA40 

KB5D5GKG5H66EA4QKA6B 

AEAD0UGA4BBE82130022 

9 Y9- 

Y9 

Y9 9 Q 

990 OZQ 9-Y ZY ♦ 

9 Q Q 9 0 8ZQ 9 Y 8 

Q9-9 ZY Q8Q 

9 

9 

9 Z 

9 

Z Z 9 9 

0 Z99 j 

BTXT.AMO. 

• A8. 

• AAAAFB i 

FBB0JC6EBEAAFNFNBCJC 

6AE46BGA4BE46NGA70EA 

J AG-5WKC5HSA82130023 [ 

9 Y9- 

Y9 

Y9Y998 

988-Y8 98QY999998-Y8 

Q- 8ZY Q- 9ZY Z-Q 

ZOZ 8 8 08Y f 

9 

9 

9 9 9 

99 9 999 9 9 

9 9 Z Z 

9 9 S' 

■ 

BTXT.ANH. 

. A8. 

•AABEAD 

EHEHKA6J5HKE6T5BKE6S 

5BKE615BB0JM6LAB0UGA 

s 

560E0UG02AAA82130024 

9 Y99 

Y9 

Y98QY8 

9090 9Y099Y98 

- 9 9 Q8-Y8 8-9 ZY 

8-Q Z Q-9 1 

9 

9 

9 9999 

9 9 

9 9 9 

9 Z 9 | 

BTXT.AN.. 

• A8. 

•AAAAGA 

CFB0066.B0JA5ONAHA0 

ODG+IBAAOUGNAHAAGA50 

ACABACAFHI5A82130025 

9 Y9 

Y9 

Y9Q9ZQ 

Q08-+9 8-Y9 YYZ— ♦ 

9Z R-Y 99-9QYZY * 

ZQY9ZQY9-0 Y 

9 

9 

9 0 9 

Z-9 9 9 

09 

09 09 

BTXT.ANH. 

.AA. 

•AAGCGA 

GAGAAAAAAAAA...... .. 



9 Y9R 

YQ 

Y99Q9Y 

9Y9YYYYYYYYY 



9 0 

99 

9 Z 9 

9 999999999 



BTXT.ANJ. 

• AU. 

•AA.CC. 

.X.EXP.CC..X. ACT«iADR 

•XXXXXX.XIOA........ 


9 Y9Y 

Y9 

Y9 


Y 


9 

9 

~ 9 


9 

‘ 

BTXT.ANC. 

• AJ. 

•AA.ADR 

.XXXXXX.LINKA....... 



9 Y9 

Y9 

Y9 

Y 



9 

9 

9 

9 



BTXT.ANL. 

• AS. 

•AA.CAW 

•XXXXXX.CSWCCW.CSW.X 

XXXXXXX.XXXXXXXX.EX P 

ACTEX P.SNS*X82130029 

9 Y9 

Y9 

Y9 




9 

9 

9 




BTXT.AOC. 

• A8. 

•AAX.EX 

P.SNS.XX.ACT.LOG.XX. 

XXXXXX.XXXXXX.XXXXXX 

.TST.XXXX.SE82130030 

9 Y98 

Y9 

Y9 




9 9 

9 

9 




BTXT.AOC. 

• A8. 

•AAT.SS 

•0.ON.FOR.LOOP.ON.XI 

OT.SS.l.ON.FOR.TIO.S 

10.LOOPAAAAA82130031 

9 Y9Z 

Y9 

Y9 


8 

YYYYY 

9 

9 

9 



99999 

BTXT.A03. 

• A8. 

•AAAAAA 

AAAAAAAAADAONAAAAAJF 

FAA.UI0.XXXXXXAGAGAG 

AAAAAAAAAL EA82130032 

9 Y98 

Y9 

Y9YYYY 

YYYYYYYYY9Y99YYY9Y90 

Q9Y Y9Y9Y9 

YYYYYYYYY8Q- 

9 

9 

9 9999 

999999999 9 999 9 - 

Z 9 9 9 9 

99999999999 

BTXT.AOC. 

• AB. 

•AA.JFG 

A6DQGH00SD068AA0UGA6 

BBCDHBJDDAJDHG4KA0C6 

EB0MK7DFA0UE82130033 

9 Y90 : 

Y9 

Y9 Z-Z 

Y Q9QR+ 8R+ -Y ZQ 

Q-9Q0-YQQZYQ09 Y 9 

-8-Z8 8-9 Z j 

9 - 

9 

9 

0 9 9 

9 L-910 Z- 9 

9 9 
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BTXT*AOL«* AJ* •AA+2D8 
9 Y9Y Y9 Y9 Y- 

9 9 9 9 9 

BTXT*APD**A8» *AA*PRE 
9 Y98 Y9 Y9 

9 9 9 

BTXT.APD*.A8..AAAAGH 
9 Y90 : Y9 Y99Y9- 

9 9 9 9 

BTXT.APD*.A8..AAAGDH 
9 Y9Q Y9 Y9-8Q0 

9 0 9 9 9Z- 


BTXT.AP4. 
9 Y9 

9 

BTXT*AQU* 
9 Y98 

9 9 

BTXT.AQM. 
9 Y9Z 

9 

BTXT.AQD. 
9 Y9Q 

9 

BTXT.AQM. 
9 Y9 

9 


> A8*•AAN/UV 

Y9 Y98999 
9 9 9 

»A8*•AAFUWO 
Y9 Y9Q Y 
9 9 9 9 

►A8«•AAOAES 
Y9 Y9 YQ9 
9 9 9Z 

► A8* •AA6AAO 

Y9 Y98YY+ 
9 9 999- 

. A8.•AAEAIF 
Y9 Y9ZQ 8 
9 9 0 9 


BTXT.AJD*.A8«•AAEAA- 
9 Y88 Y9 Y99Y8 

999 9 9 99 

BTXT•AJDo•A8••AAAJDA 
9 Y8Z Y9 Y9ZYQQ 

99 9 9 ZO 


BTXT*AJ4** A8* 

9 Y88 Y9 

99 9 

BTXT*AJD.*A8* 

9 Y80 : Y9 

99- 9 

BTXT*AJM** A8* 

9 Y8Y Y9 

999 9 

BTXT*AKU** A8* 

9 Y89 Y9 

99 9 

BTXT*AKM*«A8* 

9 Y88 Y9 

99 9 

BTXT. AKD*. A8. 

9 Y8- Y9 

99 9 


• AAGAAD 

Y99Y80 
9 99- 

• AAHAAO 

Y99Y8- 
9 99 

•AAOAEY 
Y9 YQ 
9 9Z 

»AABJED 
Y9-YQ9 
9 Z 

»AABABN 
Y9-0QY 
9 Z9 

►AAEJKB 
Y9QY 9 
9 Z9 


A0UG06DGAAATG. 

Y Z 9YYY8Q 
9 99991 

VIOUS.HANG.UP.DETECT ; 


E.6AEA0BAAAA0AB0BAHD* 
Z QZQ QYYYQ Y8 9Y98 
0 0 19999 99 9 

GA7UB87DEA1F8AAJ1AF* 
ZY -9 YZQ 89YYY YQ 
909 99 Z 

/V14515ADEAEADEJN/MN 
8899988ZZZ88RRR88 ZZ 
99 99 

46FHQY8HHQHHHQHHQY8B 
Q9999ZRZR0—00 
Z 0 

BADDAJDHEA1F6AA+0AEH 
-YQQZYQ-ZQ 88YY YQZ 
9Z Z 0 9999 9Z 

0AEHB0GADAADE.6AAJ0J 
YQR8 9Y9Y88Z Q-Y Z 
9Z 9 9 999 0 9 

SAAA0AE0BJDDAJD0EA1F 
8YYQ YQ+-YQ ZYQ+ZQ 8 
999 9Z— 9Z Z 0 9 

E.6AAJDJEA1FYAAJ0AEH 
Z QZYQYZQ 89Y9Y YQO 
0 Z 0 9 9 9 Z 

BCDHBADQEA1FYAA+0AEJ 
-9Q0-YQQZQ 89Y9 YQY 
Z- 9Z0 099 9Z 

E.6AB.DUBGDXAJDSEA1F 
Z Q- Q -8Q ZYQ8ZQ 8 
0 Z Z Z 0 9 

E.6AAJEAEA1F4AAA0AFQ 
Z QZYQQZQ 88Y9Q YQ9 
0 Z9 0 999 9Z 

B0GAAABQE.6ABYD7BAED 

8 9YQY89Z Q-9Q -YQ9 

9 9999 0 Z Z 

AJD0EA1F4ABJ0AFHB0GA 
ZYQ ZQ 88Y9Y YQ98 9Y 
2 0 999 9 9Z 9 9 

BJCCBACVBACGBBBKBBBO 
—9Q8-RQ8!—QY—9Q0-9Q4 

z z z z z 

E/FHEA1F6ABA0AFHAM0E 
Q9QRZQ 8899Q YQZ-8 9 
Z Z 0 99 Z 9Z 9 


EDBOAAGCBOUSGCBOAVFF 
8-Y9Q98—99Q98—Y9QQ 
9 Z 9 Z 9 Z9 

E.6ALSAAAGAAA/CT7ZJK 
Z Q89ZQYQZQY Z9 89 
09 99Z Z9 9 

BFDHEA1FYAAA0AEAFA70 
- QOZQ 89YYQ YQQZQ 0 
Z- 0 9 99Z 92 9 

/VADE15ADEIEADEIEJMN 

88RRR880000Y-—QOOCS 

000 

BKBSK2BACAHQE.6ABADD 
YQY QY9Y90Z Q-YQ- 
9 9 9 Z9 9 0 9Z 

BJDDAJDAEAIF6AA-0AEY 
-YQ-ZYQQZQ 88YY YQ9 
9Z Z 0 9999 9Z 

GA9HBADDAJD0EA1FSAAA 
ZQ 9—YQ ZYQ+ZQ 88YYY 
9 9Z Z 0 9999 

SAAAOAEHBJDDAJDHEAIF 
8Y9Y YQR-YQYZYQ ZQ 8 
99 9 9Z0 9Z9 Z 0 9 

AJDHEA1FYAAA1AEHBFDH 
ZYQOZQ 89Y9Q YQ— QO 
Z- 0 9 9 Z Z Z- 

B0GAFAA4E* 6AAJD0EA1F 

8 9Y9Y88Z QZYQ-ZQ 8 

9 9 99 0 Z 0 9 

4AA00AEHBADXAJDSEAIF 
8Y9+ YQO-RQ ZYQ8ZQ 8 
99 — 9Z— Z Z 0 9 

B0GAAAA4E*6ABMD7BAED 

8 9Y8Y8 Z Q-9Q -YQ9 

9 9999 0 Z Z 

AJD0EA1F4ABA0AE8B0GA 
ZYQ ZQ 88Y9Q YQ 8 9Y 
Z 0 999 9 9Z 9 9 

KADMAD0DGAC8E.6AE.D+ • 
9Y89-9 9ZYQ9Z QZ Q- 
99 Z 0 Z 

BBBFBBBDBBCKBBCWAAAB 
-9QQ-9QQ-9QY-9Q8ZYY8 
Z9 ZZ Z Z9 999 

G.C2BAEJKBE/FLEA1F6A 
Z Q8-ZQY 9Q9Q8ZQ 889 
19 Z9 Z Z 0 99- 


BBEA0AG012GA82130035 
8QQY+YZ 99Y 
99 9 9 9 

GA7UFA7KBADH82130036 
ZY ZQ YZQQO 
Z 9Z- 

B0ACDEAEJMNJ82130037 

8 9999889998 

9 99 9 

I RNADEIEDFFM082130038 
OYOOOOQ Y 
-0 9 

AJDAEA1F6AA.82130039 
ZYQQZQ 88YY 
Z 0 9999 

BJDDAJDHEA1F82130040 
-YQQZYQ-ZQ 8 
91 Z 0 9 

0AEQBADDAJDH82130041 
YQZ-YQYZYQ 
9Z 9Z9 Z 

SAAAOAEAB0GA82130042 
8Y9Q YQY8 9Y 
99 9 9Z 9 9 

EA1FY AA.OAEA82130043 
ZQ 89Y9 YQQ 
0 9 9 91 

6AA-0AEQB0GA82130044 
8Y9 YQ08 9Y 
99 9Z 9 9 

4AAA0AEHB0GA82130045 
8Y9Y YQ 8 9Y 
99 9Z 9 9 

AJD0EA1F4ABA82130046 
ZYQ ZQ 88Y9Y 
1 0 999 9 

JAB4E*6AB/D782130047 
9Y88Z Q-8Q 
999 0 9Z 

BABCBABABABG82130048 
-9Q—ZQ0-9QY 
Z Z- Z9 

AJEJKP6DCBBA82130049 
ZYQY 9 QQQ-9 
Z9 ZZZ 

B*OAFHAMOEG*82130050 
9 YQZ-8 9Z 
9Z 9 
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BTXT.AKD* 
9 Y8Y 
999 


>A8*•AACMBA: 
Y9 Y9QB-9 
9 9 It 


»EJKBE/FHEA1F6AB+0AFH 
QY 9Q9QRZQ 8899 YQZ 
19 1 1 0 99 91 


AM0EG*C2BAEJKBE/F0E^ 
-8 97 Q8-0QY 9Q9Q8ZQ 
9 19 19 l l 0 


1F6AB-0AFHAM82130051 
8899 YQZ-8 
99 9Z 9 


BTXT.ALD. 
9 Y89 

99 


,A8*.AAOEG* 
Y9 Y9 9Z 
9 9 


C6FABBB.6DKF6E6DBAEJ 
Q8ZYQ— Q 8 Q Q—QY 
Z 9Z Z Z Z Z9 


ELOCGACYBAEJEA1F6ABN 
—9 .9ZYQ9—OQYZQ 8899Z 
Z Z9 0 99 


0AFHE.D6B0AA82130052 
YQZZ Q88 -Q 
9Z Z 9 9 


BTXT.AL4* 
9 Y88 

999 


.A8*•AAOEGA 
Y9 Y9 9ZY 
9 9 


BFA.ODGACBBAEJKBE/FH 
Q - 9ZYQY-9QY 9Q9QR 
Z Z9 Z9 Z Z 


E-CJGOBQAHOEGACBA.OD 
Z QYZ QO-9 9ZYQ9- 9 
Z Z Z 


GACBBAEJKBE/82130053 
ZYQQ-ZQY 9Q9 
Z9 Z9 Z 


BTXT*ALD* 
9 Y8R 
990 


.A8..AAFLE- 
Y9 Y9Q8Z 
9 9 Z 


CJGOBFADOEGABQA•ODGA 
QYZ Q -9 9ZYQ0- 9ZY 
Z Z Z 


CKBAEJKBE/FOE-CJGOCB 
QY-OQY 9Q9Q8Z QYZ Q9 
19 19 l 1 1 1 


AJEJEA1+6AB082130054 
ZYQYZQ —899+ 

19 0 9 - 


BTXT*ALM* 
9 Y8Y 
99 


>A8*.AAOAFH 
Y9 Y9 YQZ 
9 9 9Z 


AAAAG6B0J.F/B005FJ+N 
ZYY99 8-Y Q 8-+8Q0 Y 
99 9 Z 9 9Z 


AHG050EL0CG-BBBJEJG0 
YZZ 8-9 9Z Q—9QYZ 
9 Z Z9 


BFEL0CG-BABA82130055 
Q—9 9Z QQ-R 
Z ZO 


BTXT* ALU*: 
9 Y8 
99 


► A8* «AAEJGO 
Y9 Y9QYZ 
9 9 Z9 


BDEL0CG-BMBAEJG0B01I 
QO-9 9Z QY--QYZ Q 
Z- Z9 Z9 Z 


11111122222222333333 


33GALAGGAD0D82130056 
9Y9YQQ-9 9 
9 9ZZ 


BTXT*AMM* 
9 Y88 

999 


> A8*•AAGADQ 
Y9 Y9ZYQZ 
9 9 Z 


AHOJGAC8E•6AE.D+BABC 
-9 ZZYQ9Z QZ Q-—Q- 
Z 0 Z Z 


BJBABABGBJBNBJCCBACV 
—9Q0—RQY—9QY—9Q8-RQ8 
Z- 19 19 l 1 


BACGBKBKBKB082130057 
—QY-9Q0-9Q+ 
ZZZ 


BTXT*AMD* 
9 Y8R 
99 


. A8*•AABKBF 
Y9 Y9-9QQ 
9 9 Z9 


BKBDBKCWBKCKGOBDBOBO 
-9QQ-9Q8-9QYZ Q08 8- 
11 19 1 19 9 


UYGVBBEA0AB0AAGVG4B0 
99Q98QQY+Y8—Y9Q99 8- 
Z 99 9 99 Z 9 


U2GEBBB0AAGE82130058 
99Q88Q8—Y9Q8 
Z 999 Z 


BTXT*AMD* 
9 Y8Y 
99 


. A8*•AAG4AA 
Y9 Y99 YY 
9 9 99 


AAODAAAGAAODAAAAAAOD 
ZY9QYYY8ZY9QYYYRZY9Q 
9 1999 9 Z999 9 Z 


•AA+CAQDAAA+CAQD*AAA 
YY RY9QYYY 9Y9Q YY9 
99 9 Z999 9 1 99 


CAODJAAABA0D82130059 
9Y9QYYY9 Y9Q 
9 Z999 9 Z 


BTXT.AMD* 
9 Y8 
99 


»A8.•AAAAAG 
Y9 Y9YYY8 
9 9 999 


BAODAAAAAAOD.AA+AAOD 
Y9QYYYRZY9Q YY ZY9Q 
9 1999 9 1 99 91 


AAA+AAOD.AAGAAODAAA* 
YYY ZY9Q YY8ZY9QYYY 
999 9 l 99 9 1999 


AAPAAAAMAAPU82130060 
ZY9QYYY9ZY99 
9 9 99 9 


BTXT*AMD* 
9 Y8Q 
991 


>A8*•AAAAAMf 
Y9 Y9YYY9 
9 9 99 


AAPAAAAMAAODAAAMAAOD 
ZY9QYYY9ZY9QYYY9ZY9Q 
9 9 99 9 1999 9 1 


OAAYCAPUAAAYAAODJAAH 
4YY9RY99YYY99Y9QYYY9 
99 9 999 9 Z999 


AAMHHAAAAAAA82130061 

YY8-9YYYYYYY 

999 9999999 


BTXT.AN4. 
9 Y89 

99 


»A8*•AADAAA 
Y9 Y99YYY 
9 9 999 


AAMHH*AAAAAADAAAAAMJ 
YY8-9 YYYYYY9YYYYY8Y 
999 999999 999999 


H.AAAAAADAAAAAMJHAAA 
9 Y9YYYY9YYYYY8Y9YY9 
9 9999 999999 99 


AAAADAAAAAMH82130062 

YYYY9YYYYY8 

9999 999999 


BTXT*ANU* 
9 Y88 

99 


• A8*•AAD.AA 
Y9 Y98 YY 
9 9 9 99 


AAMOD.AAAAMHDAAAAAMO 
YY8-8 Y9YY8 8YYYYY8- 
999 9 9 999 9999999 


DAAAAAMABAA4AAM0DAAA 
8YY9YY8Q9YY YY8+8YYY 
999 9990 99 999 9999 


AAAADAAAAAM082130063 

YYYY8YYYYY8+ 

99999999999 


BTXT*ANM* 
9 Y80 

99 


»A8*•AADAAA 
Y9 Y98YY9 
9 9 999 


AAMSHAAAAAAADAAAAAMY 
YY889YYYYYYY9YYYYY8 
999 9999999 999999 


H* AAAAAADAAAAAMYH.AA 
9 YYYYYY9YYYYY8 9 Y9 
999999 999999 9 


AAAADAAAAAM082130064 

YYYY9YYYYY8 

9999 999999 


BTXT*AND* 
9 Y8Q 
999 


• A8* . A AH AAA 
Y9 Y99YYY 
9 9 999 


AAAADAAAAANAHAAAAAAA 
YYYY9YYYYY8Q9YYYYYYY 
9999 9999999 9999999 


DAAAAANAH*AMAAAADAAA 
9YYYYY8Q9 Y9YYYY9YYY 
9999999 9 9999 999 


AANHH*AAAAAA82130065 
YY899 Y9YYYY 
999 9 9999 


BTXT*AOM* 
9 Y89 

99 


,A8*.AADAAA 
Y9 Y99YYY 
9 9 999 


AANJHAAAAAAADAAAAAOA 
YY8Y9YYYYYYY9YYYYY9Qi 
9999 9999999 99999 


DAAAAAMOHAAAAAAADAAA 
8YYYYY8 '9YY9YYYY9YYY 
9999999 99 9999 999 


AAAABAAAAANY82130066 

YYYY9YYYYY89 

9999 999999 


BTXT.AQD* 
9 Y88 

99 


»A8* *AAHAAA 
Y9 Y99YYY 
9 9 999 


AAAADAAAAODAPDAPD.SN 
YYYY9YYYY9QY99Y98 
9999 9999 19 99 


S* SW* 11 * 12 * OR* 13 *ON* 


TO.L 00 P.STKR 82130067 


05 MAY 65- 10AUG65 15N0V65 15JUN67 
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BTXT.AOD..A8.•AA.SEL .1.2.0R.3-WITH.ERR.S 

9 Y80 Y9 Y9 

99 9 9 

BTXT.AOD..A8..AA,FOR .SIO.TIO.LOOP-NO.ERR 

9 Y8Q Y9 Y9 

990 9 9 

BTXT.A04..A8..AAIONA L.AND.READY.PLACE.BL 

9 Y8 Y9 Y9 

99 9 9 

BTXT.APU..A8..AAROT. REMOVE.ALL.CDS.FROM. 

9 Y88 Y9 Y9 8 

999 9 9 

BTXT.APM..AL..AA.I.I N.P1T.2.IN.P2T.3.IN. 

9 Y8Z Y8 Y9 8 8 

99 99 9 

BRLD.A8....AAAA AAANEAA4AA01AAOAAAMA 

9 Y9 Y9Y9 8YQ98YQ88Y908Y9Q8Y8- 

9 99 999 999 99 99 999 

BRLD.A8....AAAA AAMRAAMJAAMZAAM1AAM9 

9 Y9 Y9Y9 8Y8 8Y8Z8Y8 8Y8 8Y8 

9 99 999 999 999 999 999 

BRLD..A8....AAAA EANHEANQEANOEANHEANA 

9 Y9 Y9Y9 8Y8R8Y8Z8Y8+8Y8R8Y8Y 

9 99 999 999 999-9990999 

BRLD..AY....AAAA EAN8EA0HEA0QEA0YEA0A 

9 Y9 Y9Y9 8Y8 8Y898Y898Y898Y8Q 

9 9 9 999 999 999 999 999Z 

BEND.APD.AA. .. . ............. .V. . . •. 

9 Y90 Y9 

9 9 

BLDT.*. 

9 
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TOPS-.SNS.SW.l.WITH. ANY.OF.AB0VE82130068 


.CHECKING-.MAKE.THE. PUNCH.0PERAT82130069 


ANK.CARDS.IN.PUNCH.H OPPER.DO.N0P82130070 


PCH.STKRS.SEE.IF.CDS .PCHED.WITH.82130071 


RP3... ..82130072 


AAMIAAMJAAMRAAMAAAMI AAMAAAMIHAMJ82130073 

8Y8-8Y808Y808Y806Y80 8Y8 8Y8 9Y8 

999 999 999 999-999- 999 999 99 

AANAAANAAANJAANJAAN/ EANYEAN8DANH82130074 

8Y898Y888Y898Y888Y89 8Y898Y898Y8Z 

999 9999999 9999999 999 999 999 

EANHEANAEANJEANQEANH EANHEANQDANY82130075 

8Y808Y8Q8Y8Y8Y808Y80 8Y8 8Y8 8Y8 

999 999 999 999 999- 999 999 999 

EAOHAAOHAAOLHAOO.... ............82130076 

8Y8Z8Y8R8Y889Y88 
999 999 999 99 

. ... .. .82130077 


82130078 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 


8220 TITLE 

*********************************************************************** 


* * 

* MODIFICATIONS * 

* ♦ 

* REVISION LEVEL 0. INITIAL RELEASE OF THE PROGRAM. * 

* EXPANSION TO THIS SECTION HAS THE RESULT OF THE TESTING ADDED ♦ 

♦ TO SECTIONS 820 AND 821. * 

♦ 1. THIS SECTION IS THE RIPPLE PUNCH TEST, WHICH WAS FORMERLY * 

* LOCATED IN SECTION F821 VERSION 2. * 

♦ 2. THE PROGRAM INCLUDES TEST NUMBERS AND THE COMMON ERROR * 

* ERROR MESSAGE FORMAT.. * 

♦ * 

♦ E.C. PREREQUISITES * 

4 MACHINE . . . NONE * 

♦ PROGRAM • • . NONE 4 

♦ * 

♦ USE DESCRIPTION F820* AT EC 130498, DATED 15 JUN 67 OR LATER. * 

* * 


*********************************************************************** 
XF8220 START 4096 
001000 USING 4,15 

* \ 

♦ 

*********************************************************************** 

♦ TEST NUMBER DESCRIPTION 
*********************************************************************** 
*********************************************************************** 

♦ TEST DESCRIPTION 

♦ 

* 

* ************** 

* ROUTINE 01 

* ************** 

* 

* 0010 - OPERATION ATTEMPTED 

* 

* A WRITE, FEED, AND STACKER SELECT PI COMMAND -01- WAS ISSUED 

* TO THE PUNCH. THE 1-0 ROUTINE AFTER ISSUING THE WRITE COMMAND, 

* AUTOMATICALLY ISSUED A CHECK READ -C2- TO READ BACK WHAT WAS 

* SENT TO THE PUNCH BUFFER, AND ALSO ISSUED A DIAGNOSTIC CHECK 

* READ COMMAND -C6- TO ENABLE CHECKING THE TRANSLATOR, BUFFER 

* ADDRESS REGISTER, BUFFER PARITY, AND THE X UPPER AND LOWER 

* CHECK PLANES SET BY THE PREVIOUS CARD. 

* 

» EXPECTED RESPONSE 

* 

» CONDITION CODE 0 WITH CHANNEL AND DEVICE END SEPARATELY IN 

* TWO CSWS. 

* IF MESSAGES ARE ISSUED THAT INDICATE THE DIAGNOSTIC COMMANDS 

4 HAVE FAILED, ALLOW THE PROGRAM TO CONTINUE TO ENABLE THE NEXT 

* TEST MESSAGE TO DISPLAY THE STATUS AND CONDITION CODE, THE 

4 INFORMATION THAT PRECEDED THE COMMAND FAILURE MESSAGE SHOULD 

4 ALSO BE AN AID IN DETERMINING THE CAUSE OF THE ERROR. 

* 

* 

* 

4 POSSIBLE ERROR CAUSES 

* 

4 1. CARD FEED SKEW COULD BE WRONG DUE TO SOME MALFUNCTION IN 

4 THE CARD FEED PATH. IF THE DATA PRESENTED IN THE MESSAGE 

4 DOES NOT INDICATE A DEFINITE PATTERN, THIS IS THE MOST 

4 LIKELY CAUSE OF THE PROBLEM. 

4 2. ERRORS IN PUNCHING OR THE CHECK CIRCUITRY MAY OCCUR. 

4 3. BUFFER PARITY, DATA TRANSLATION, OR THE BUFFER ADDRESS 

' 4 REGISTER COULD BE IN ERROR. 


DATE 
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* X UPPER - X LOWER FAILURE CHART 

* 

* 

* THIS CHART IS ONLY VALID IF THERE IS AT LEAST ONE PUNCH IN THE 

* ERROR COLUMN AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE 

* IN ONE POSITION OF THE BUFFER. MORE THAN ONE ERROR SHOULD BE 


* ANALYZED TO HELP LOCALIZE THE PROBLEM. 

* 

3ft_______ - _._._.______.______. 

* DATA REG I XU I XL I I 

* STATUS I BIT I BIT I SUSPECTED FAILURE I 

3ft *-—- I — — I -* I — —-—---*-----—-- I 

* DATA REG I ON ION ORI 2821 PROBLEM- XU PLANE FAILED TO RESET OR I 

* CORRECT I I OFF I PICKED BITS AFTER RESET. I 

— I I —I------------——-1 

* DATA REG l ON ION ORI A- 2540 PROBLEM -NO RD2 PULSES I 

* BLANK I I OFF I 8- 2821 PROBLEM -ADDR REG FAILURE I 

m-1-j-1—----—---I 

* CORRECT I OFF I OFF I 2821 PROBLEM - FALSE READ CHECKS I 

* OR NOT I I I NOTE - COULD BE A MULTIPLE PROBLEM, BUT FALSE! 

* CORRECT I I I READ CHECKS SHOULD BE FIXED FIRST. I 

--1-j-1--- 1 

* DATA REG I OFF I ON I A— 2540 PROBLEM -MISSING RD2 PULSES. < I 

*• INCORRECT I 1 I B— 2821 PROBLEM. - ADDR REG FAILURE I 

* DATA REG I OFF I ON I A- 2540 PROBLEM -MISSING OR EXTRA RD1 PULSES I 

* CORRECT I I IB- 2821 PROBLEM -ADDR REG FAILURE I 

* III C— 2821 PROBLEM -XL OR YL PLANE FAILURE. I 

* 

♦ 


* THIS CHART IS ONLY VALID IF THERE ARE NO PUNCHES IN THE ERROR 

* COLUMN, AND THERE IS NOT A PARITY ERROR OR DOUBLE FAILURE IN 

* ONE POSITION OF THE BUFFER. MORE THAN ONE ERROR SHOULD BE 

* ANALYZED TO HELP LOCALIZE THE PROBLEM. 

* 


♦ DATA REG 

* STATUS 


I XL I 
I BIT I 

I ON I 
I l 

I I 

-I—— I- 
I ON I 
I I 

ION ORI 
I OFF I 
I I 

-I-1- 

I ON I 
I I 

-I-— I- 

I OFF I 
I I 

-I---~I- 

I OFF I 
I I 

I I 
I I 


SUSPECTED FAILURE 


* DATA REG 

* BLANK 

* 


A- 2540 PROBLEM -PICKED UP AN ODD NUMBER OF I 
RDi PULSES. I 

B- 2821 PROBLEM -ADDR REG FAILURE I 


* DATA REG 

* BLANK 

* -—<—•——- 

4 DATA REG 

* NOT BLNK 

* 

3ft--- 

* DATA REG 

* NOT BLNK 

*--———- 

* BLNK OR 

* NOT BLNK 

4 DATA REG 
4 BLANK 


2821 PROBLEM -XL OR YL PLANE PICKED UP A BIT.I 

I 


2821 PROBLEM -FAILING TO RESET XU PLANE. I 

NOTE- THIS IS A MULTIPLE PROBLEM, BUT FAILUREI 
TO RESET XU SHOULD BE FIXED FIRST. I 


2540 PROBLEM -PICK UP AN ODD NUMBER OF RD2 I 
PULSES. I 


2821 PROBLEM - FALSE REAP CHECKS 


A- 2540 PROBLEM -PICKED UP EVEN NUMBER OF I 

RDI PULSES. I 

B- 2821 PROBLEM -ADDR REG FAILURE I 

C- 2821 PROBLEM -XU OR YU PLANES PICKED A BITI 


* EXPECTED RESPONSE 

* 

* CONDITION CODE 0 WITH CHANNEL AND DEVICE ENDS RETURNED IN THE 

* SAME CSM BECAUSE NO FEED CYCLE OCCURS. 
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* READ DATA SHOULD BE EQUAL TO EXPECTED DATA. 

* . DIAGNOSTIC READ DATA SHOULD RETURN WITH 80 BYTES ALL ZERO. 

* 

3ft 

♦ 0030 - OPERATION ATTEMPTED 
4 

♦ A FEED, STACKER SELECT R1 -23- IS ISSUED TO THE READER. 

♦ 

* EXPECTED RESPONSE 

* 

* CONDITION CODE 1 -COMMAND IMMEDIATE WITH CHANNEL AND DEVICE 

* ENDS IN TWO SEPARATE CSWS. SENSE IS ISSUED IF UNIT CHECK IS 

* DETECTED DURING THE FEED COMMAND. 

4 

4 




*3ft**3ft3ft3ft3ft3ft$3ft3ft3ft4t#*****4“|L***********3ft3ft$3ft3ft3ft*$3ft$3ft3ft3ft3ft#4'3ft*4‘*********$*:ft$:ft#*4** 



3ft 3ft 3ft 3ft 3ft 3ft 3ft 4nft 4c 3ft ## 3ft 3ft 3ft # 3ft 3ft 

3ft 3ft 4C3ft******* ******** 



♦ SECTION 

PREFACE *********************************** SECTION PREFACE 

* 



3ft # 3ft 3ft 3ft # 3ft 3ft # 3ft 3ft # 3ft 3ft <ft 3ft # 3ft 3ft 

******************* 

001000 

F8220000 

SEGNO 

DC 

XL4 * F8220000® 

PROGRAM,SECTION AND REVISION NOS. 

* 

001004 

00000000 

SNSW 

DC 

XL4•00 9 

SECTION SENSE SWITCHES 

* 

001008 

0000 


DC 

XL2•00® 


* 

00100A 

0000 

ICM 

DC 

XL2•00* 

INTERRUPTION CONDITION MASK 

* 

OOIOOC 

00 

SDMF 

DC 

XLl*00* 

SECTION DM FLAGS 

* 

00100D 

02 

NIOU 

DC 

XL 1*02® 

NUMBER OF UNIT TABLE ENTRIES. 


00100E 

CO 

FLAG1 

DC 

X*CO' 

EXCLUSIVE CPU 

* 

00100F 

00 

FLAG2 

DC 

X®00® 

I/O INT ARE ERR, EXT INT TO PROG 

* 

001010 

0104000000 

INPSW 

DC 

X•0104000000* 

DISABLED, SPVSR STATE, NO PGM MASK 

* 

001015 

00IC6C 


DC 

AL3 {R0UT01) 

ADR OF 1ST ROUTINE PREFIX 

* 

001018 

0000000000000000 

EXOPSW 

DC 

XL8 * 0 * 

SECTION OLD EXTERNAL PSW 

* 

001020 

0000000000000000 

SVOPSW 

DC 

XL8* 00® 

CLEAR ALL OLD PSWS 

* 

001028 

0000000000000000 

PGOPSW 

DC 

XL8® 00® 

PROGRAM OLD PSW 

* 

001030 

0000000000000000 

MCOPSW 

DC 

XL8 * 00® 

MACHINE CHECK OLD PSW 

* 

001038 

0000000000000000 

IOOPSW 

DC 

XL8 * 00• 

I/O OLD PSW 

* 

001040 

0000000000000000 

CSW 

DC 

XL8®00* 

CHANNEL STATUS WORD 

* 

001048 

00000000 

CAW 

DC 

XL4•00® 

CAW 

* 

00104C 

000000000000000000 


DC 

XL12®00® 

RESERVED FOR DM USE 

* 

001055 

000000 






001058 

0004000000 

EXNPSW 

DC 

X®0604000000® 

EXTERNAL NEW PSW 

* 

00105D 

000000 

SRET 

DC 

XL3*0® 

ADR OF EXT INTRPT ROUTINE 

* 

001060 

0000000000000000 

SVNPSW 

DC 

XL8*00® 

SUPERVISOR NEW PSW 

* 

001068 

0000000000000000 

PGNPSW 

DC 

XL8 * 00® 

PROGRAM NEW PSW 

* 

001070 

0000000000000000 

MCNPSW 

DC 

XL8® 00® 

MACHINE CHECK NEW PSW 

* 

001078 

01040000 

IONPSW 

DC 

XL4*01040000* 

I/O NEW PSW 

* 

00107C 

000011DA 


DC 

AL4URETRN) 

ADDRESS OF I/O INTRPT ROUTINE 

♦ 

001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM USE 

* 

0010E0 

82 

UN IT1 

DC 

X • 82® 

UNIT TYPE - 2540 PUNCH. 

* 

0010E1 

00 

U10P 

DC 

X»00® 

OPTIONAL FEATURES BYTE 

* 

0010E2 

8000 

U1ADDR 

DC 

X •8000 * 

FLAGS AND CHAN/UNIT ADDRESS 

* 

0010E4 

81 

UNIT2 

DC 

X * 81 • 

UNIT TYPE - 2540 READER 


0010E5 

00 

U20P 

DC 

X®00® 

OPTIONAL FEATURES 


0010E6 

8000 

U2ADDR 

DC 

X* 8000® 

FLAGS AND CHAN/UNIT ADDRESS. 




*********************************************************************** 



* 


2540 PUNCH 

OPTIONAL FEATURES ASSIGNMENT 



3ft*3ft******************************************************************** 

♦ UNITITYPE I OPTIONAL FEATURE DIGIT 1 I OPTIONAL FEATURE DIGIT 2 

******{***** J****************************£ *****3************************ 


* 

I 

IB IT 0 

BIT 1 

BIT 2 

BIT 3 

I 

BIT 4 

BIT 5 

BIT 

6 

BIT 7 

* 

I 

IHEX 8 

HEX 4 

HEX 2 

HEX 1 

1 

HEX 8 

HEX 4 

HEX 

2 

HEX 1 

*2540 

1 82 

I 

CARD 

PUNCH 

51 COL 

I 

1400 




2 CHAN 

♦PUNCHI 

I 

IMAGE 

FEED 

FEAT. 

I 

COMPAT 




SW. ON 

* 

I 

I 


READ 


I 

FEAT. 

c 



2821 


*****3ft I ***** | ****************************I ***************************** 
*********************************************************************** 

* 2540 PUNCH DIAGNOSTIC CHECK READ BYTE 

4t4t*4t3ft4***************«"**********************Mt************************* 

* BIT MEANING 

* 0 NOT USED 
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NOT USED 
NOT USED 

X UPPER CHECK PLANE 
X LOWER CHECK PLANE 
BUFFER PARITY CHECK 
PUNCH TRANSLATE CHECK 
PUNCH BUFFER ADDRESS CHECK 

**+***+**+*+*+++*+*+++4mm 

2540 PUNCH SENSE BYTE 


************* 


* BIT MEANING 

* 0 COMMAND REJECT - INVALID COMMAND ISSUED TO THE PUNCH 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK - PARITY ERROR 

* 3 EQUIPMENT CHECK - TRANSLATE CHECK, ADDRESS CHECK, 

* DATA REGISTER PARITY ERROR, OR A HOLE COUNT ERROR, 

* 4 DATA CHECK 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED 

* 2540 PUNCH STATUS BYTE 

* BIT MEANING 

* 0 ATTENTION - NOT USED FOR THE 2540 PUNCH 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - NOT USED FOR THE 2540 PUNCH 

********************************* + *^ 3 j tJ(t++:it<t:(t;0t3(Ci , 5++: , t4t++3|[:(i:(CJ(tJ|!J|t!|l#4l3><t ^ ](e+3|t4i<|<|4t 

* PARAMETERS USED TO ENTER 

* THE 1-0 HANDLER ROUTINE 
******************************* J|l ******* + * + ** + ^^ #+jMt#j(i!Mt3M[sMt4(jfi#j|t+j#{jM ^ 

* BAL RI1,ISIO LINK TO 1-0 HANDLER 


XL2*0000» 

X•0014* 

X»FO* 

X*00* 

AL2 C ADR-BASE+REG) 


CONTROL SWITCHES 

TEST NO. IN DEC EXPRESSED IN HEX 

EXPECTED COND. CODE 

EXPECTED SENSE DATA 

ADDR. OF EXPECTED CSW IF NEEDED 


* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 


* SWITCH 

* 0 — 


DESCRIPTION 


* o - OFF - ISSUE AN 1-0 COMMAND 

* ON - DO NOT ISSUE AN 1-0 COMMAND 

* l - OFF - ENABLE 

* ON - DO NOT ENABLE 

* 2 - OFF - EXPECT NO INTERRUPT 

* ON - EXPECT AN INTERRUPT 

* 3 - OFF - DO NOT EXPECT 2 INTERRUPTS 

* ON - EXPECT 2 INTERRUPTS 

* 4 - OFF - EXPECT NO CSWS 

* ON - EXPECT A CSW 

* 5 - OFF - DO NOT EXPECT 2 CSWS 

* ON - EXPECT 2 CSWS 

* 6 -- OFF - ALWAYS TRY TO ISSUE SENSE 

* ON - SENSE ON UNIT CHECK ONLY 

* 8 - OFF - DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMDS 

* ON - ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS 

***********4************************************^*^^^^^^^ 

ISW DC XL2 # 0* 

♦♦♦Mi***********************************************************^*^^ 


DATE 

EC 
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* SWITCHES USED BY 1-0 HANDLER 
*********************************************************************** 

* SWITCH DESCRIPTION . «: 

* o - OFF - NO HANGUP ON INTERFACE ' ' 

* ON - HANGUP OCCURRED V-; 

* i - 0 FF - N0 CSWS STORED S' 

* ON - ONE CSW STORED 

* 2 - OFF - SECOND CSW NOT RECEIVED 

* ON - SECOND CSW RECEIVED 

* 3 - OFF - DID NOT ENABLE 

* ON ' - ENABLED ONCE 

* 4 - OFF - DID NOT ENABLE TWICE 

* ON - ENABLED TWICE 

* 5 - OFF - NO SENSE DATA RECEIVED 

* ON - SENSE DATA RECEIVED 

* 6 - OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* 7 - OFF - NO ERROR DETECTED 

* ON - AN ERROR WAS DETECTED 

* 14 - OFF - DO NOT PRINT CARD DATA 

* ON - PRINT CARD DATA 

*********************************************************************** 

* REGISTERS USED IN I-G HANDLER 
*********************************************************************** 

* REG COMMENTS 

* 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

* PREVIOUS HANGUP ON INTERFACE DETECTED. 

* 

* 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

♦ 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

* 

* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

* 

♦ 11 MUST BE USED AS LINK REG TO THIS ROUTINE 1 

* I 

* 12 MUST CONTAIN DEVICE ADDRESS 

♦ ■ [ 

*********************************************************************** j 

OOIOEA 0000 DATSW DC XL2'00« DATA CONTROL SWITCHES. 

**********.************************************************ 4***********4 

♦ EXPLANATION OF START 1-0 DATA SWITCHES 

* 

* SWITCH DESCRIPTION 

* o - 1 ST AR eA MAIN START I-Q DATA. 

* i - 1ST AREA DIAGNOSTIC READ DATA. 

* 2 - 1 ST AREA 1ST DIAGNOSTIC CHECK READ DATA. 

* 4 - 2ND AREA MAIN START 1-0 DATA. 

* 5 - 2ND AREA DIAGNOSTIC READ DATA. 

* 6 - 2ND AREA 1ST DIAGNOSTIC CHECK READ DATA. 

* 8 - ERROR IN PRESENT START 1-0 

* g - ERROR IN PREVIOUS START 1-0 

* io - PRINT PRESENT DATA 

* u - PRINT PREVIOUS DATA 

*********************************************************************** 

* * 1-0 HANDLER SUB-ROUTINE * 
*********************************************************************** 


0010EC 

D2 

01 

F 

93C 

B 

002 

ISIO 

MVC 

ITSTN0+5I2)»2(Rll) 

SAVE TEST NUMBER 

0010F2 

90 

09 

F 

860 




STM 

RO,R9,I SAVE 

SAVE WORK REGISTERS. 

0010F6 

D7 

07 

D 

040 

D 

040 

CONP 

XC 

HCSW(8,R13),HCSW(R13) 

ZERO THE CSW AREA. 

0010FC 

D7 

OB 

E 

080 

E 

080 


XC 

LOGOUT(12,R14),LOGOUT(R14) 








*********************************************************************** 








4 


SENSE SWITCH LOOPS 








*********************************************************************** 

001102 

91 

40 

F 

004 



ILOOP 

TM 

SNSW,X*40* 

DESIRED TO LOOP PREVIOUS SIO. 

001106 

47 

10 

F 

146 




BC 

ALL,SULP 

BR IF YES. 

00110A 

50 

AD 

0 

048 




ST 

RIO,HCAWC R13) 

STORE CMD ADDRESS. 

00110E 

91 

80 

F 

004 




TM 

SNSW,X*80* 

DESIRED TO LOOP PRESENT SIO. 
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001112 

47 

80 

F 

15E 


BC 

NONE,JOHN 

001116 

9D 

00 

C 

000 

IHANG 

TIO 

0IR12) 

00111A 

47 

70 

F 

12E 


BC 

NCCO,IHI 

0011IE 

91 

CO 

F 

004 


TM 

5NSW,X®C0® 

001122 

47 

80 

F 

12E 


BC 

NONE,IHI 

001126 

9C 

00 

C 

000 


SIO 

0IR12I 

00112A 

47 

FO 

F 

116 


BC 

UNC,IHANG 

00112 E 

58 

9E 

0 

198 

IHI 

. L 

R9,WT(R14) 

001132 

88 

90 

0 

003 


SRL 

R9,3 

001138 

9D 

00 

C 

000 

GREG 

TIO 

0(R12) 

00113A 

47 

80 

F 

102 


BC 

CCO,I LOOP 

00113E 

46 

90 

F 

136 


BCT 

R9,GREG 

001142 

47 

FO 

F 

102 


BC 

UNC,I LOOP 

001146 

41 

70 

F 

DCO 

SULP 

LA 

R7,WRT1 

00114A 

91 

80 

F 

C4E 


TM 

KEYSW,X•80 * 

00114E 

47 

10 

F 

156 


BC 

ALL,STCD 

001152 

41 

70 

F 

DC 8 


LA 

R7,WRT2 

001156 

50 

7D 

0 

048 

STCD 

ST 

R7,HCAWC R13) 

00115A 

47 

FO 

F 

116 


©C 

UNC,IHANG 


00I15E 
001164 
001168 
00I16C 
001170 
001174 
001178 
00117C 
001180 
001184 
001188 
GG118C 
001190 
001194 
001198 
00119E 
001 1A2 
0011A6 
00I1AA 
001lAE 
0Q11B2 
001166 
001IBA 
0011BE 
00I1C2 
0011G6 
001iCA 
001ICE 
0011D2 
001I06 


00110 A 
00110E 
0011E2 
0011E6 
0011EA 
0011EE 
0011F4 
0011F8 
0011FC 
001202 
001204 
001206 
001208 


F 0E8 F 0E8 
F 0E8 
F CAD 
F C4C 
F 915 
C 000 
F 1A6 
F 194 
F I8C 
F 8AF 
F 1AA 
F 8 AF 
F 1AA 
F 8AF 

F 888 D 040 
F 0E8 
F 1AA 
F 8AF 
f 0E8 
8 000 
F 24E 
F 0E8 
0 198 
0 003 
F 0E8 
F A42 
F ICA 
F A43 
F 0E8 
F 24E 


49 CO F 03A 

47 60 F 1FC 

94 7F F 0E8 

91 40 F 0E8 

47 10 F 22C 

D2 07 F 888 F 040 

96 40 F 0E8 

47 FO F 236 

D2 07 F AOO F 040 

OA DD 


BC NONE,JOHN BR IF NO. 

IHANG TIO 0IR12) TEST 1-0 

BC NCCO,IHI BR IF NOT AVAILABLE. 

TM SNSW,X*CO* SEE IF SSW 0 OR 1 ON. 

BC NONE,IHI BR IF NO. 

SIO 0IR12I START I~0 

BC UNC,IHANG BR TO TEST 1-0. 

IHI L R9,WT(R14) PICK UP DM WAIT FACTOR. 

SRL R9,3 CUT IT DOWN TO 1.25 SECS. 

GREG TIO 0(R12) TEST 1-0 TO DEVICE. 

BC CCO,I LOOP BR IF AVAILABLE. 

BCT R9,GREG LOOP UNTIL TIME OUT. 

BC UNC,I LOOP BR TO TRY AGAIN. 

SULP LA R7,WRT1 PICK UP 1ST AREA CCW ADDRESS. 

TM KEYSW,X•80* SEE IF 2ND AREA CURRENT. 

BC ALL,STCD BR IF YES. 

LA R7,WRT2 PICK UP 2ND AREA CCW ADDRESS. 

STCD ST R7,HCAWIR13) STORE THE CMD ADDRESS. 

BC UNC,IHANG BR. UNCONDITIONAL 

* EXECUTE START 1-0 HERE 


JOHN XC 
01 
NI 
NI 
MVI 

ISSUE SIO 
BC 
BC 

BC 

MVI 

BC 

1TW0 MVI 
BC 

IONE MVI 
MVC 
01 
BC 

IZERO MVI 


1SW(2),ISW 
ISW * X ® @0 * 

CRSW,X * 00 9 
HDSW,X * 00 * 
IAC$NS+5,X*0O* 
0IRI2) 

CCO,IZERO 
CC1,1 ONE 
CC2,1 TWO 
IACTCC+5,X*F3® 

UNC,INOW 
IACTCC + 5,X *F2 * 

UNC,I NOW 
IACTCC + 5,X 9 FI * 
ICSW1(8>,HCSW(R13) 
ISW* X ® 40 ® 

UNC,1NOW 
|ACTCC*5,X®F0« 

I SW,X * 7F • 

O(Rll),X*40* 

ALL,I SEN 
I$W,X«10® 

R9,WTIR14 J 
R9,3 

ISW,X 9 80* 

MSK1 

R9,* 

MSK2 

I SW,X * 7F * 

UNC,I SEN 


ZERO THE 1-0 HANDLER SWITCHES. 

TURN ON THE HANG SWITCH. 

ZERO DIAG MSG SW. 

ZERO THE HEADING SWITCH. 

ZERO THE ACTUAL SENSE DATA. 

1-0 COMMAND- SIO, TIO, OR HIO 

BR. IF COND. CODE 0 

BR. IF COND. CODE 1 

BR. IF COND. CODE 2 

INDICATE COND. CODE 3 

BR. UNCONDITIONAL 

INDICATE COND. CODE 2 

BR. UNCONDITIONAL 

INDICATE COND. CODE 1 

SAVE CSW 

INDICATE 1 CSW 

BR. UNCONDITIONAL 

INDICATE COND. CODE 0 

TURN OFF HANG UP SWITCH 

CHECK CONTROL SWITCH FOR NO ENABLE 

BR. IF ON 

INDICATE ENABLED ONCE 
LOAD DM WAIT FACTOR 

ADJUST 

TURN ON HANG UP SW 

ENABLE 

WAIT 

DISABLE 

TURN OFF HANG SW 


BC UNC,I SEN BR. UNCONDITIONAL 

* ALL 1-0 INTERRUPTS RETURN HERE 


IRETRN CH 
BC 


R12,IQOPSW+2 
UNEQ,IUIO 
ISW,X *7F• 

ISW,X*4Q* 

ALL,ISV2 

1CSW1(8) ,HCSW( R15) 

ISW»X®40® 

UNC, INTS 

WORK!©1fHCSWfR15I 
X*DD* 

AL2I2J 

AL2IIOOPSW+2-SECN0) 
AL2I1UNEX+17-SECN0) 


COMPARE FOR CURRENT 1-0 ADDRESS 
BR. IF UNEQUAL 
RESET HANG UP SW 

BR. IF 1 CSW ALREADY STORED 
SAVE CSW 1 

INDICATE 1 CSW STORED 
8R. UNCONDITIONAL 

CONVERT ADDRESS 
2 BYTES OF 1-0 OLD PSW. 

FROM HERE. 

TO HERE 


15JUN67 

130498 
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00120A 

OA 

DO 




SVC 

X®DO® 

PRINT UNEXPECTED INTERRUPT DEVICE 

00120C 

64 





DC 

X*64® 

ADDRESS 

00120D 

15 





DC 

X * 15 ® 


00120E 

FA44 




DC 

AL2{IUNEX-SECNO+REG) 


001210 

D2 

02 

F 

8E6 F 8DF 


MVC 

IBLAH+1(3),ICSW 

MOVE -CSW- TO MESSAGE 

001216 

92 

1A 

F 

439 


MVI 

ICNT,X*1A® 

ADJUST COUNT 

00121A 

D2 

02 

F 

8FC F 8FF 


MVC 

IBLAH+23(3) ,IACT 

MOVE -ACT- TO MESSAGE 

001220 

45 

90 

F 

422 


BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

001224 

96 

02 

F 

0E8 


01 

ISW,X* 02* 

INDICATE UIO 

001228 

47 

FO 

F 

4FC 


BC 

UNC,ILOGED 

BR. UNCONDITIONAL 

00122C 

D2 

07 

F 

8$0 F 040 

ISV2 

MVC 

ICSW218),HCSW(R15» 

SAVE CSW 2 

001232 

96 

20 

F 

0E8 


01 

ISW,X®20® 

INDICATE 2 CSWS STORED 

001236 

91 

10 

B 

000 

INT3 

TM 

OCRU) ,X*10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

00123A 

47 

80 

F 

24E 


BC 

NONE,ISEN 

BR. IF NOT 

00123E 

91 

08 

F 

0E8 


TM 

ISW,X®08® 


001242 

, 47 

10 

F 

24E 


BC 

ALL,ISEN 

BR. IF ALREADY ENABLED TWICE 

001246 

96 

08 

F 

0E8 


01 

ISW,X *08 • 

INDICATE ENABLED TWICE 

00124A 

47 

FO 

F 

IBA 


BC 

UNC,I WAIT 


00124E 

91 

02 

B 

000 

ISEN 

TM 

0(R11),X*02* 

CHECK CONTROL SWITCH FOR SNS ON UC 

001252 

47 

80 

F 

276 


BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

001256 

91 

40 

F 

0E8 


TM 

ISW,X *40 * 

SEE IF 1ST CSW IN. 

00125A 

47 

80 

F 

2A4 


BC 

NONE,IFUR 

BR IF NONE. 

00125E 

91 

02 

F 

88C 


TM 

ICSW1+4,X*02* 

CHECK FOR UNIT CHECK 

001262 

47 

10 

F 

276 


BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

001266 

91 

20 

F 

0E8 


TM 

ISW,X* 20* 

CHECK FOR SECOND CSW 

00126A 

47 

80 

F 

2A4 


BC 

NONE,IFUR 

BR IF NONE. 

00126E 

91 

02 

F 

894 


TM 

ICSW2+4,X*02* 

CHECK FOR UNIT CHECK 

001272 

47 

80 

F 

2A4 


BC 

NONE,IFUR 

BR IF NONE. 

001276 

41 

80 

F 

858 

IDOSNS 

LA 

R8,1 SENSE 

LOAD SENSE COMMAND ADDR. 

00127 A 

45 

70 

F 

664 


BAL 

R7,ISTRT 

BR TO AUX START 1-0. 

00127E 

91 

40 

F 

915 


TM 

I AC SN S+ 5 * X ® 40 • 

SEE IF INTERVENTION REQUIRED. 

001282 

47 

10 

F 

64E 


BC 

ALL,RRM 

BR IF YES. 

001286 

91 

80 

F 

0E9 


TM 

ISW+1,X®80* 

CHK FOR DATA RECEIVED 

00128A 

47 

80 

F 

2A4 


BC 

NONE,IFUR 

BR IF NOT. 

00128E 

96 

04 

F 

0E8 


01 

ISW,X*04* 

INDICATE SENSE RECIEVED 

001292 

94 

7F 

F 

0E9 


NI 

ISW+1,X*7F * 

TURN OFF DATA RECEIVED. 

001296 

D5 

00 

F 

915 B 005 


CLC 

XACSNS+5(1),5(R111 

COMPARE FOR EXPECTED SENSE 

00129C 

47 

80 

F 

2A4 


BC 

EQ,IFUR 

BR IF EQUAL. 

0012AO 

96 

01 

F 

0E8 


01 

ISW,X*01* 

INDICATE AN ERROR. 

0012A4 

41 

80 

F 

DBS 

IFUR 

LA 

R8,CHRD2 

PUT ADDR OF 2ND CHECK RD INTO 8. 

0012A8 

91 

80 

F 

C4E 


TM 

KEYSW,X* 80* 

SEE IF 2ND DATA AREA IS CURRENT 

0012AC 

47 

10 

F 

2B4 


BC 

ALL,IASI02 

BR IF YES. 

0012B0 

41 

80 

F 

DBO 


LA 

R8,CHRD1 

PUT ADDR OF 1ST CHECK READ INTO 8. 

0012B4 

45 

70 

F 

664 

I AS102 

BAL 

R7,ISTRT 

BR TO AUXILIARY START 1-0. 

0012B8 

91 

80 

F 

0E9 


TM 

ISW+1,X*80* 

SEE IF DATA RECEIVED 

0012BC 

47 

80 

F 

2FC 


BC 

NONE,ISCR 

BR IF NOT. 

0012C0 

91 

80 

F 

C4E 


TM 

KEYSW,X*80* 

SEE IF 2ND DATA AREA IS CURRENT 

0012C4 

47 

80 

F 

2D4 


BC 

NONE,SB2 

BR IF NO. 

0012C8 

96 

02 

F 

OEA 


01 

DATSW,X*02* 

TURN ON BIT 6 OF DATA SWITCHES. 

0012CC 

94 

7F 

F 

0E9 

RRS2 

Nl 

ISW+1 *X *7F * 

TURN OFF DATA RECEIVED SWITCH. 

0012D0 

47 

FO 

F 

2FC 


BC 

UNC,I SCR 

BR TO READ BACK PUNCH BUFFER. 

0012D4 

96 

20 

F 

OEA 

SB2 

01 

DATSW,X *20* 

TURN ON BIT 2 OF DATA SWITCHES. 

0012D8 

47 

FO 

F 

2CC 


BC 

UNC,RRS2 

BR TO RESET COMMON DATA RECEIVED SW. 

0012DC 

96 

04 

F 

OEA 

T05 

01 

DATSW,X*04* 

TURN ON 2ND AREA DATA RECEIVED SW. 

0012E0 

47 

FO 

F 

324 


BC 

UNC,RRS1 

RETURN TO MAIN LINE. 

0012E4 

91 

40 

F 

0E8 

IN0EX1 

TM 

ISW,X*40* 


0012E8 

47 

10 

F 

382 


BC 

ALL,INDER 

BR. IF CSW STORED 

0012EC 

47 

FO 

F 

386 


BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012F0 

91 

20 

F 

0E8 

IN0EX2 

TM 

ISW,X*20* 


0012F4 

47 

10 

F 

382 


BC 

ALL,INDER 

BR. IF CSW 2 STORED 

0012F8 

47 

FO 

F 

386 


BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0012FC 

41 

80 

F 

DA8 

I SCR 

LA 

R8,DGRD2 

PUT ADDR OF 2ND DIAG RD CCW INTO 8. 

001300 

91 

80 

F 

C4E 


TM 

KEYSW,X*80* 

SEE IF 2ND DATA AREA IS CURRENT. 

001304 

47 

10 

F 

30C 


BC 

ALL,IASI01 

BR IF YES. 

001308 

41 

80 

F 

DAO 


LA 

R8,DGRD1 

PUT ADDR OF 1ST DIAG RD CCW INTO 8. 

00130C 

45 

70 

F 

664 

IASI01 

BAL 

R7,ISTRT 

BR TO AUXILIARY START 1-0. 

001310 

91 

80 

F 

0E9 


TM 

ISW+l*X f 80* 

SEE IF DATA RECEIVED. 

001314 

47 

80 

F 

328 


BC 

NONE,BTCDi 

BR IF NOT. 
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0C1318 

91 

80 

F 

C4E 




TM 

KEYSW.X’SO’ 

SEE IF 2ND DATA AREA IS CURRENT 

00131C 

47 

10 

F 

2 DC 




BC 

ALL*T05 

BR IF YES* 

001320 

96 

40 

F 

OEA 




01 

DATSW.X’AO* 

TURN ON 1ST AREA DATA RECEIVED SW-. 

001324 

94 

7F 

F 

0E9 



RRS1 

N1 

ISW*l,X’7F* 

RESET COMMON DATA RECEIVED SW. 

001328 

91 

10 

F 

915 



BTCO 

TM 

IACSNS+5,X’lO’ 

SEE IF EQUIPMENT CHECK IN SENSE DATA 

001320 

47 

80 

F 

334 




BC 

NONE.IBSN 

BR IF NOT. 

001330 

45 

80 

F 

5B8 




BAL 

R8.SUCP 

BR TO SET UP COMPARE PARAMETERS. 

001334 

05 

00 

F 

8AF 

B 

004 

IBSN 

CLC 

IACTCC+5Il).A(Rll) 

COMPARE FOR EXPECTED COND. CODE 

00133A 

47 

60 

F 

382 




BC 

UNEQ,INDER 

BR. IF UNEQUAL 

00133E 

91 

08 

8 

000 




TM 

0(R11I*X*08* 


001342 

47 

80 

F 

2E4 




BC 

NONE.INOEXl 

BR. IF NO CSW EXPECTED 

001346 

91 

40 

F 

0E8 




TM 

ISW.X'40' 


00134A 

47 

60 

F 

382 




BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

00134E 

48 

88 

0 

006 




LH 

R8y6(R11) 

LOAD CSW ADDR 

001352 

40 

80 

F 

35A 




STH 

R8«ICCSWl+4 

STORE IN COMPARE INSTR. 

001356 

05 

07 

F 

888 

F 

688 

ICCSW1 

CLC 

ICSW1(8)*ICSW1 

COMPARE FOR EXPECTED CSW 

00I35C 

47 

60 

F 

382 




BC 

UNEQ*INDER 

BR. IF UNEQUAL 

001360 

91 

04 

B 

000 




TM 

0(Rll)*X®04* 


001364 

47 

80 

F 

2F0 




BC 

NONE,IN0EX2 

BR. IF NO CSW 2 EXPECTED 

001368 

91 

20 

F 

0E8 




TM 

ISW»X’20’ 


00136C 

47 

80 

F 

382 




BC 

NONE*INDER 

BR. IF NO CSW 2 RECIEVED 

001370 

41 

88 

0 

008 




LA 

R8,8(R8) 

UPDATE TO SECOND CSW 

001374 

40 

80 

F 

37C 




S7H 

R8,ICCSW2+4 


001378 

05 

07 

F 

890 

F 

890 

ICCSW2 

CLC 

ICSW2C8)*ICSW2 

COMPARE FOR EXPECTED CSW 2 

00137E 

47 

80 

F 

386 




BC 

EQ*IDUNCK 

BR. IF EQUAL 

001382 

96 

01 

F 

0E8 



INDER 

01 

ISW.X’Ol’ 

INDICATE AN ERROR 

001386 

92 

64 

F 

386 



IDUNCK 

MVI 

IFLAG1*X®64® 

SET UP FOR ERROR PRINTOUT 

00138A 

92 

CO 

F 

586 




MVI 

IFLAG2*X®C0* 


0O138E 

91 

01 

F 

0E8 




TM 

ISW*X*Oi* 

CHECK FOR A DETECTED ERROR 

001392 

47 

10 

F 

3A6 




BC 

ALL*IOUTIT 

BR. IF ERROR DETECTED 

001396 

91 

01 

F 

004 




TM 

SNSW»X®01* 

CHECK SECTION SENSE SWITCH 7 

00139A 

47 

80 

F 

5A2 




BC 

NONE,ILEAVE 

BR. IF OFF 

00139E 

92 

24 

F 

3B6 




MVI 

IFLAG1*X®24* 

SET UP FOR CORRECT PRINTOUT 

0013A2 

92 

80 

F 

586 




MVI 

IFLAG2»X’80* 


0013A6 

02 

01 

F 

93C 

© 

002 

IOUTIT 

MVC 

ITSTN0+5I2),2(RII> 

MOVE TEST NUMBER TO PRINT 

0013AG 

OA 

00 






SVC 

X’DD* 

CONVERT TEST NUMBER 

0013AE 

0002 






DC 

AL2I2) 


001380 

093C 






OC 

AL2IITSTN0+5-SECN0) 


0013B2 

093C 






DC 

AL2IITSTN0+5-SECN0I 


0Q13B4 

OA 

DO 






SVC 

X’DO’ 

PRINT TEST NUMBER 

001336 

64 






IFLAG1 

DC 

X’6*» 


001387 

09 







DC 

X’09* 


0013E8 

F937 






DC 

AL2IITSTN0-SECN0+REG1 


0Q13BA 

41 

80 

0 

004 




LA 

R8,4 

ADJUST LINK ADDRESS FOR PRINTOUT 

0013BE 

IB 

B8 






SR 

R11.R8 


0013C0 

50 

BO 

F 

8C8 




ST 

Rll,ILINK+5 


0013C4 

OA 

DD 






SVC 

X’DD* 

CONVERT LINK ADDRESS 

0013C6 

0003 






OC 

AL2I31 


0013C8 

08C9 






DC 

AL2IILINK+6—SECNO) 


0Q13CA 

08C8 






DC 

AL21ILINK+5—SECNO) 


0013CC 

OA 

DO 






SVC 

X’OO’ 

PRINT LINK ADDRESS 

0013CE 

AO 







DC 

X’AO* 


0O13CF 

10 







OC 

X’10* 


0013D0 

F8C3 






OC 

AL2IILINK-SECN0+REG) 


001302 

41 

BB 

0 

004 




LA 

Rll,MRU) 


001306 

91 

80 

8 

000 




TM 

01Rll),X’80* 


0013DA 

47 

10 

F 

450 




BC 

ALL,IOCSW 

BR. IF NO 1-0 COMMAND ISSUED 

0013DE 

OA 

DD 






SVC 

X’DO’ 

CONVERT 1-0 ADDRESS 

001360 

0003 






OC 

AL2I3) 


0013E2 

0A3F 






DC 

AL2(IOADR-SECNO) 


0013E4 

0889 






DC 

AL2(I0ADDR+5-SECN0) 


0013E6 

OA 

DO 






SVC 

X’OO* 

PRINT 1-0 ADDRESS 

0013E8 

AO 







OC 

X’AO’ 


0013E9 

OF 







OC 

X’OF* 


0013EA 

F884 






DC 

AL2(IOADDR-SECNO+REG) 


0013EC 

50 

AO 

F 

tot 




ST 

RIO,ICAW+5 

STORE CCW ADDR. 

0O13F0 

OA 

DD 






SVC 

X’DD’ 

CONVERT CAM 

0013F2 

0003 






DC 

AL2I3) 
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0013F4 08D9 

0013F6 08D# 

0013F8 OA 00 

0013FA AO 

0013FB OB 

00I3FC F8D3 

0013FE 02 02 F 8E6 F 

001404 92 16 F 439 

001408 D2 07 F AOO A 

00140E 45 90 F 422 

001412 91 CO A 004 

001416 47 80 F 43E 

00141A 41 AA 0 008 

00141E 47 FO F 408 

001422 OA DO 

001424 0008 

001426 OAOO 

001428 OAOO 

00142A 02 07 F 8EA F 

001430 02 07 F 8F3 F 

001436 OA 00 

001438 AO 

001439 1A 

00143A F8E5 

00143C 07 F9 

00143E 02 00 F 8A5 B 

001444 OA DO 

001446 AO 

001447 OA 

001448 F8A0 

00144A OA DO 

00144C AO 

001440 OA 

00144E F8AA 

001450 02 02 F 8E6 F 

001456 92 1A F 439 

00145A 91 08 8 000 

00145E 47 80 F 482 

001462 02 02 F 8FC F 

001468 48 8B 0 006 

00146C 40 80 F 47C 

001470 41 88 0 008 

001474 40 80 F 4AC 

001478 02 07 F AOO F 

Q0147E 45 90 F 422 

001482 91 40 F 0E8 

001486 47 80 F 49A 

00148A 02 02 F 8FC F 

001490 02 07 F AOO F 

001496 45 90 F 422 

00149A 91 04 B 000 

00149E 47 80 F 4B2 

0014A2 02 02 F 8FC F 

0014A8 02 07 F AOO F 

0014AE 45 90 F 422 

0014B2 91 20 F 0E8 

0014B6 47 80 F 4CA 

0014BA 02 02 F 8FC F 

0014C0 02 07 F AOO F 

0014C6 45 90 F 422 

0D14CA 02 00 F 90A B 

001400 91 04 F 0E8 

001404 47 80 F 4F4 

001408 OA 00 

0014DA 0001 

O014DC 090A 

OG140E 090A 

001460 OA 00 


DC 

DC 

SVC 

DC 

DC 

OC 


862 


MVC 

MVI 

000 

ICWOUT 

MVC 

BAL 

TM 

BC 

LA 



BC 


ICOUT 

SVC 

DC 

DC 

DC 

AOO 


MVC 

AOS 


MVC 

SVC 

DC 


ICNT 

DC 

OC 

BCR 

004 

ICCOUT 

MVC 

SVC 

DC 



OC 

DC 

SVC 

DC 

DC 



DC 

8DF 

IOCSW 

MVC 

MVI 

TM 



BC 

902 


MVC 

LH 

STH 

LA 

STH 

AOO 

ICHNG1 

MVC 

BAL 


IDIDI 

TM 

BC 

8FF 


MVC 

888 


MVC 

BAL 


IMORST 

TM 

BC 

902 


MVC 

AOO 

ICHNG2 

MVC 

BAL 


IDID 

TM 

BC 

8FF 


MVC 

890 


MVC 

BAL 

005 

IPAS 

MVC 


TM 

BC 

SVC 

DC 

DC 

DC 

SVC 


AL2(ICAW*6-SECNQI 
AL2(ICAtf+5—SECNQI 
X f DO* 

X • AO* 

X*OB * 

AL2UCAM-SECN0+REGI 
IBLAH+1(3)* ICCW 
ICNT » X®16® 

WORM 8) *0(R10) 

R9»ICOUT 
4(RIO)*X*CQ* 
NQNEtICCOUT 
R10.31R10) 

UNC *ICWOUT 
X*DD* 

AL2C8) 

AL2t WORK-SECNO) 

AL2CWORK-SECNO) 

IBLAH + 5(8)« WORK 
IBLAH+14C 8) v WORMS 
X f DO* 

X*AO* 

X • 1A* 

AL2(IBLAH-SECN0+RE6) 
UNC t R9 

IEXPCC*5ll)»4<Rll) 

X*DO® 

X 9 A0 # 

X • OA* 

AL2(IEXPCC-SECNO+REGI 
X®DO* 

X ® AO® 

X * OA® 

AL211ACTCC-SECNQ+REG) 
IBLAH + K3) tICSW 
ICNT * X*1A• 

0(Rll)»X f 08® 

NONE*IDIDI 
IBLAH+23C3) *1EXP 
R8*6fRll) 

R8*ICHNG1*4 
R8» 8IR8) 

R8.ICHNG2+4 
WORKC8)*WORK 
R9,ICOUT 
ISW»X*40* 

NONE*IMORST 
IBLAH+23C 3)*IACT 
WORK!8)*I0SW1 
R9*ICOUT 
OC Rll)*X®04 # 

NONE*IDID 
IBLAH+23C3)*IEXP 
WORKC8)*WORK 
R9«ICOUT 
ISW*X®20® 

NONE*IPAS 
IBLAH+23C 3)*1ACT 
WORKC 8)*ICSW2 
R9»ICOUT 

IEXSNS+5C1)*5CR11) 
ISW*X®04* 

NONE *1PASS 
X*DD* 

AL2Ci) 

AL2 CIEXSNS+5—SECN01 
AL2CIEXSNS-5-SECN0) 

X®00« 


C C C O' 0 


.P/N 840576 
PAGE 5A 


PRINT CAM 


MOVE -CCW- TO MESSAGE 

ADJUST COUNT 

MOVE CCW TO WORK AREA 

BR. TO OUTPUT CCW 

CHECK FOR ANY CHAIN FLA6S 

BR. IF NONE 

UPDATE TO NEXT CCW 

BR. UNCONDITIONAL 

CONVERT 


MOVE TO MESSAGE 
PRINT 


RETURN VIA REG 9 

MOVE EXP CC TO MESSAGE 

PRINT EXPECTED COND. CODE 


PRINT ACTUAL COND. CODE 


MOVE —CSW— TO MESSAGE 
ADJUST COUNT 

BR. IF NO CSW EXPECTED 
MOVE -EXP- TO MESSAGE 


MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTEO CSN 

BR. IF NO CSW STORED 
MOVE -ACT- TO MESSAGE 
MOVE ACTUAL CSW TO WORK AREA 
BR. TO OUTPUT ACTUAL CSW 

BR. IF NOT EXPECTING 2 CSWS 
HOVE -EXP- TO MESSAGE 
MOVE EXPECTED CSW TO WORK AREA 
BR. TO OUTPUT EXPECTEO CSW 2 

BR. IF NO SECOND CSW STORED 
MOVE -ACT- TO MESSAGE 
MOVE CSW TO WORK AREA 

MOVE EXP SENSE TO MESSAGE 

BR. IF NO SENSE DATA REC1EVE0 
CONVERT EXPECTED SENSE 


PRINT EXPECTED SENSE 
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0014E2 

AO 




DC 

X * AO* 


0014 E 3 

OB 




DC 

X' OB' 


0014E4 

F905 



DC 

AL2(IEXSNS-SECNO+REGI 


0014E6 

DA 

DD 



SVC 

X * DD * 


0014E8 

000 1 



DC 

AL2(l) 


0014EA 

0915 



DC 

AL2*( IACSNS+5-SECN0) 


0014EC 

0915 



DC 

AL2«IACSNS+5-SECN0) 


0014EE 

OA 

DO 



SVC 

X* DO* 

PRINT ACTUAL SENSE DATA 

00I4F0 

AO 




DC 

X * AO * 


00I4F1 

OB 




DC 

X • OB 9 


0014F2 

F910 



DC 

AL2(I ACSNS-SECNO+REG) 


00I4F4 

95 

30 

E 

181 

IPASS CLI 

SYSMODd R14)*X*30* 

CHECK FOR MODEL 30. 

0014F8 

47 

60 

F 

528 

BC 

UNEQ fICD 

BR. IF NOT 

0014FC 

D2 

OB 

F 

AOO E 080 

ILOGED MVC 

WORK!12),LOGOUT(R14) 

MOVE LOG OUT TO WORK AREA 

001502 

OA 

DD 



SVC 

X * DD * 

CONVERT 

001504 

OOOC 



DC 

AL2(12) 


001506 

OAOO 



DC 

AL2 f W0RK-SECNO) 


001508 

OAOO 



DC 

AL2tWORK-SECNQ) 


00150A 

D2 

01 

F 

920 F AOO 

MVC 

I0L0G+5d2) , WORK 

MOVE LOG OUT TO MESSAGE 

001510 

02 

05 

F 

923 F A02 

MVC 

I0L0G+816)»W0RK+2 


001516 

D2 

05 

F 

92A F AOA 

MVC 

I0L0G+15d6) ,W0RK+10 


00151C 

D2 

05 

F 

931 F AI2 

MVC 

IOLQG+22 d 6) * WORK+18 


001522 

OA 

DO 



SVC 

X * DO* 

PRINT LOG OUT 

001524 

AO 




DC 

X * AO® 


001525 

1C 




DC 

X s 1C 9 


001526 

F91 B 



DC 

AL2dIQLOG-SECNO+REG) 


001528 

91 

02 

F 

0E8 

ICO TM 

ISW,X 8 02 * 

SEE IF UIO. 

00152C 

47 

80 

F 

538 

BC 

NONE,IBCD 

BR IF NO 

001530 

94 

FD 

F 

0E8 

NI 

‘ ISW,X*FD* 

RESET UIO SWITCH 

001534 

47 

FO 

F 

1BA 

BC 

UNC * IWAIT 

BR* UNCONDITIONAL 

001538 

96 

02 

F 

OF 9 

18CD 01 

I SW+ 11X * 02 9 

TURN ON PRINT SW. 

00153C 

91 

80 

F 

0 5:6 

TM 

DATSW-t-I ,X *80 ® 

SEE IF ERROR IN PRESENT DATA. 

001540 

47 

80 

F 

554 

BC 

NONE » $1PP 

BR IF NO. 

001544 

96 

20 

F 

OEB 

01 

DATSW+1 j, X* 20* 

TURN ON PRINT PRESENT DATA SW. 

001548 

45 

80 

F 

588 

BAL 

R8* SUCP 

BR TO SET UP COMPARE PARAMETERS. 

00154C 

94 

IF 

F 

C4C 

HI 

HDSW* X* 7F 9 

TURN OFF HEADING SWITCH. 

001550 

94 

DF 

F 

OEB 

HI 

DATSW+l,X*DF ® 

RESET PRINT 1ST DATA SW. 

001554 

91 

40 

F 

OEB 

SIPP TM 

DATSW+l,X *40 ® 

SEE IF ERROR IN PREVIOUS CD. 

001558 

47 

80 

F 

584 

BC 

NONE « IOPOUT 

BR IF NOT. 

0015 5 C 

96 

10 

F 

OEB 

01 

DATSW+l * X 8 lO 1 

TURN ON PRINT PREVIOUS DATA SW. 

001560 

41 

30 

F 

A68 

LA 

R3 1 PCH1 

PUT ADDR OF PCH DATA INTO 3. 

001564 

41 

40 

F 

B58 

LA 

R4tCRD2 

PUT ADDR OF CHK READ DATA INTO 4. 

001568 

41 

70 

F 

BAB 

LA 

R7,RDl 

PUT ADDR OF RD DATA INTO 7. 

00156C 

91 

80 

F 

C4E 

TM 

KEYSHjX* 80* 

SEE IF 2ND AREA CURRENT. 

001570 

47 

10 

F 

580 

BC 

ALL f CTD 

8R IF YES. 

001574 

41 

30 

F 

ABB 

LA 

R3 1 PCH2 

PUT ADDR OF PCH DATA INTO 3. 

001578 

41 

40 

F 

808 

LA 

R4»CRD1 

PUT ADDR OF CHK READ DATA INTO 4. 

00157C 

41 

70 

F 

BF8 

LA 

R7»RD2 

PUT ADDR OF RD DATA INTO T. 

001580 

45 

10 

f 

50E 

CTD BAL 

Rl,ICDT 

BR TO CHK DATA. 

001584 

OA 

DO 



IOPOUT SVC 

X • DO* 

PRINT LOOP OPTIONS 

001586 

CO 




IFLAG2 DC 

X*CO* 


001587 

45 




DC 

X*45* 


001588 

F940 



DC 

AL2dI0PTl-$ECNQ+REG) 


00158A 

OA 

DO 



SVC 

X * DO* 

SPACE A LINE 

00158C 

AO 




DC 

X* AO* 


00158D 

01 




DC 

X«01* 


00158E 

F8C3 



DC 

AL2ULINK-SECNO+REG ) 


001590 

50 

AD 

0 

048 

ST 

R10,HCAW(R13) 

STORE CAW 

001594 

91 

CO 

F 

004 

TM 

SNSWtX’CO* 

CHECK SECTION SENSE SWITCH 0 AND 1 

001598 

47 

50 

F 

102 

BC 

ANY,ILOOP 

BR. IF ANY ON 

00159C 

91 

80 

F 

0E8 

TM 

ISW,X*80* 


0015AO 

07 

15 



BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

0015A2 

91 

08 

B 

000 

1LEAVE TM 

O(Rll) ,X*08* 


0015A6 

47 

80 

F 

5AE 

BC 

NONE,IUP 

BR. IF NO CSW EXPECTED 

0015AA 

41 

BB 

0 

002 

LA 

R11,2(R1U 

UPDATE LINK ADDRESS FOR RETURN 

0015AE 

41 

88 

0 

006 

IUP LA 

Rll,6(R11) 


0015B2 

98 

09 

F 

860 

LM 

R0,R9,I SAVE 

RESTORE WORKING REGS. 

0015B6 

07 

FB 



BCR 

UNCyRll 

RETURN VIA REG 11 
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*********************************************************************** 
* SET UP PARAMETERS FOR DATA COMPARE HERE. 

*********************************************************************** 


0015B8 

41 

30 

F A68 

SUCP 

LA 

R3,PCH1 

PUT ADDR OF 1ST AREA DATA INTO 3. 

0015BC 

41 

40 

F BOS 


LA 

R4,CRD1 

PUT ADDR OF CHK READ DATA INTO REG 4 

0015C0 

41 

70 

F BAS 


LA 

R7,RD1 

PUT ADDR OF READ DATA INTO REG 7. 

0015C4 

91 

80 

F C4E 


TM 

KEYSW,X•80 * 

SEE IF 2ND DATA AREA CURRENT. 

0015C8 

47 

80 

F 5D8 


BC 

NONE,SU1P 

BR IF NOT. 

0015CC 

41 

30 

F AB8 


LA 

R3,PCH2 

PUT ADDR OF EXP DATA INTO REG 3. 

0015DO 

41 

40 

F B58 


LA 

R4,CRD2 

PUT ADDR OF CHK READ DATA INTO REG 4 

0015D4 

41 

70 

F BF8 


LA 

R7,RD2 

PUT ADDR OF READ DATA INTO REG 7. 

0015D8 

45 

10 

F 5DE 

SU1P 

BAL 

R1,ICDT 

BR TO COMPARE DATA. 

0015DC 

07 

F8 



BCR 

UNC,R8 

RETURN 





*********************************************************************** 





* 

DATA 

COMPARE ROUTINE 






*********************************************************************** 

0015DE 

41 

20 

0 001 

ICDT 

LA 

R2,l 

PUT 1 IN REG 2. 

0015E2 

D5 

00 

3 000 7 000 

CODA 

CLC 

Ot1,R3»,0(R7I 

SEE IF DATA AS EXPECTED. 

0015E8 

47 

60 

F 616 


BC 

UNEQ,ERPRS 

BR IF NO. 

0015EC 

91 

07 

4 000 


TM 

0(R4),X*07* 

SEE IF ADDR, TRANS, OR PARITY CHKS. 

0015F0 

47 

50 

F 616 


BC 

ANY,ERPRS 

BR IF YES. 

0015F4 

91 

18 

4 000 

TXS 

TM 

0< R4),X * 18 * 

SEE IF XU OR XL. 

0015F8 

47 

50 

F 632 


BC 

ANY,ERPRE 

BR IF YES. 

0015FC 

41 

22 

0 001 

UPD 

LA 

R2,1d R2) 

ADD 1 TO REG 2. 

001600 

41 

33 

0 001 


LA 

R3,1(R3) 

ADD 1 TO REG 3. 

001604 

41 

44 

0 001 


LA 

R4,1< R4) 

ADD 1 TO REG 4. 

001608 

41 

77 

0 001 


LA 

R7,1(RT) 

ADD 1 TO REG 7. 

00160C 

55 

20 

F A60 


CL 

R2,ATE1 

SEE IF 80 COLUMNS HANDLED. 

001610 

47 

60 

F 5E2 


BC 

UNEQ,CODA 

BR IF NO. 

001614 

07 

FI 



BCR 

UNC »R1 

RETURN. 

001616 

96 

80 

F OEB 

ERPRS 

01 

DATSW+l,X f 80* 

TURN ON ERROR IN PRESENT CD SW. 

00161A 

91 

10 

F OEB 


TM 

DATSW+i,X 8 10« 

SEE IF PRINTING PREVIOUS DATA. 

0016 IE 

47 

10 

F 5F4 


BC 

ALL,TXS 

BR IF YES. 

001622 

91 

02 

F 0E9 


TM 

ISW+1*X•02• 

SEE IF PRINT SW ON* 

001626 

47 

10 

F 69E 


BC 

ALL,IGOP 

BR IF YES. 

00162A 

96 

01 

F 0E8 


01 

ISW,X*01» 

INDICATE AN ERROR. 

00162E 

47 

FO 

F 5F4 


BC 

UNC,TXS 

BR TO TEST PREVIOUS DATA. 

001632 

96 

40 

F OEB 

ERPRE 

01 

DATSW+1,X•40* 

TURN ON ERROR IN PREVIOUS CD SW. 

001636 

91 

20 

F OEB 


TM 

DATSW+1,X*20 I 

SEE IF PRINTING PRESENT DATA. 

00163A 

47 

10 

F 5FC 


BC 

ALL,UPD 

BR IF YES. 

00163E 

91 

02 

F 0E9 


TM 

ISW+1,X*02® 

SEE IF PRINT SW ON. 

001642 

47 

10 

F 69E 


BC 

ALL,IGOP 

BR IF YES. 

001646 

96 

01 

F 068 


01 

ISW,X*01* 

TURN ON ERROR SW. 

00164A 

47 

FO 

F 5FC 


BC 

UNC,UPD 

BR TO UPDATE. 





*********************************************************************** 





* 

INTERVENTION REQUIRED ROUTINE 





*********************************************************************** 

00164E 

OA 

DO 


RRM 

SVC 

X’DO* 

PRINT -MAKE DEVICE READY- 

001650 

240 D 



DC 

X* 2400* 


001652 

FA32 



DC 

AL2 d MDR-SECNO+REG) 


001654 

OA 

DA 



SVC 

X'DA* 

HALT 

001656 

9D 

00 

C 000 


TIO 

OtR12) 

TEST 1-0 

00165A 

OA 

DO 



SVC 

X*D0* 

PRINT A BLANK. 

00165C 

8001 



DC 

X* 8001 • 


00165E 

FA32 



DC 

AL2(MDR-SECNO+REG) 


001660 

47 

FO 

F OF6 


BC 

UNC,CONP 

BR TO CONTINUE. 


*********************************************************************** 
* AUXILIARY START 1-0 ROUTINE 

*********************************************************************** 


001664 : 

58 

9E 0 

198 

1STRT 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR. 


001668 

88 

90 0 

002 


SRL 

R9,2 

CUT IT DOWN TO 2.5 SECS. 


00166C 

. 50 

8D 0 

048 


ST 

R8,HCAW(R13) 

STORE IN CAW 


001670 

9C 

00 C 

000 


SIO 

0(R12) 

START 1-0 


001674 

47 

70 F 

694 


BC 

NCCO,IBACK 



001678 

9D 

00 C 

000 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 


00167C 

47 

40 F 

686 


BC 

CC1,ILOKE 

BR. IF CSW STORED 


j 001680 

46 

90 F 

678 ‘ 

ITIC 

BCT 

R9,ITIOLP 



J 001684 

07 

FT 



BCR 

UNC,R7 

RETURN. 


1 DATE 
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ID 
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1 EC 
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001686 91 04 D 044 

00168A 47 80 F 680 

00168E 96 80 F 0E9 

001692 07 F7 

001694 91 40 F 915 

001698 47 10 F 0F6 

00169C 07 F7 


00169E 
0016A2 
0016A8 
0016AE 
0016B2 
0016B6 
0016BC 
0016C0 
0016C4 
0016C8 
0016CC 
0016D0 
0016D4 
0016DA 
0016DC 
00160E 
0016E0 
0016E4 
0016E8 
0016EC 
0Q16F0 
0016F4 
0016F8 
0016FC 
001700 
001704 
001708 
001TOC 
001710 
001714 
001718 
00171C 
001720 
001724 
001728 
00172C 
001730 
001734 
001738 
00173C 
001740 
001744 
001748 
00174C 
001750 
001754 
001758 
00175C 
001760 
001764 
001768 
00176C 
001772 
001774 
001776 
001778 
00177C 
001780 


92 40 
02 24 
02 OA 
91 20 
47 80 
02 OA 
91 80 
47 10 
91 20 
47 50 
91 80 
47 10 
02 01 
OA 00 
A01 3 
FFAC 
96 80 
47 FO 
91 80 
47 10 

91 02 
47 00 

92 FO 

91 10 
47 80 

92 FI 
92 FO 

91 08 
47 80 

92 FI 
92 FO 

91 04 
47 80 

92 FI 
92 FO 

91 01 
47 80 

92 FI 
92 FO 

91 02 
47 80 

92 FI 

90 04 

91 20 
47 80 
91 80 
47 80 
91 04 
47 50 
91 40 
47 10 
D2 01 
OA DO 
A013 
FFAC 
96 40 
47 FO 
91 80 


F AOO 

F AO1 F AOO 
F 996 F 9AC 
F OEB 
F 6E8 

F 996 F 9A1 
F C4E 
F 6F0 
F OEA 
F 6F8 
F C4D 
F 748 

F FB6 F EOA 


F C4D 
F 748 
F C4E 
F 6C4 
F OEA 
F 6CC 
F A16 
4 000 
F 708 
F A16 
F A19 
4 000 
F 718 
F A19 
F A1C 
4 000 
F 728 
F A1C 
F A20 
4 000 
F 738 
F A20 
F A25 
4 000 
F 748 
F A25 
F DD8 
F OEB 
F 780 
F C4E 
F 78C 
F OEA 
F 794 
F C4D 
F 84C 

F FB6 F £08 


ILOKE 

TM 

HCSW+4(R13),X 9 04* 

CHECK FOR DEVICE END. 


BC 

NONE * I TIC 

BR IF NOT IN YET. 


01 

ISW+1»X* 80* 

INDICATE THE DATA RECEIVED. 


BCR 

UNC * R7 

RETURN. 

IBACK 

TM 

I AC SNS+5* X *40 9 

SEE IF INTERVENTION REQUIRED. 


BC 

ALL * CONP 

BR IF YES. 


BCR 

UNC,R7 

RETURN. 


* 

DATA 

PRINTOUT ROUTINE 


*+*+**++**+************++*++**+++*+*+*++**+**++**+++++++++++ 1 ,++++++++++ 

IGOP 

M VI 

GOODY»C' • 

MOVE A BLANK TO MESSAGE AREA. 


MVC 

GOUDY+H 37) ,GOODY 

BLANK THE REST. 


M VC 

HD1A+9(11)t STK1 

MOVE WORD STKR PI TO MSG. 


TM 

DATSW+1»X•20 * 

SEE IF PRINTING PRESENT DATA 


BC 

NONE,CMI 

BR IF NOT. 


MVC 

HD1A+9111),PRES 

MOVE WORD PRESTK TO MSG. 


TM 

KEYSW * X * 60 9 

SEE IF 2ND AREA CURRENT. 


BC 

ALL,TF 

BR IF YES. 

C1CR 

TM 

DATSW,X *20• 

SEE IF 1ST AREA CHK RD WORKED. 


BC 

ANY,COPT 

BR IF YES. 

TPNC 

TM 

CRSW,X * 80' 

SEE IF MSG ALREADY PRINTED. 


BC 

ALL,NTC 

BR IF IT WAS. 


MVC 

XX(2),C6 

MOVE DIAG CHK RD CMD TQ MSG. 


SVC 

X * DO • 

PRINT —2 CHK RDS FAILED- 


DC 

X • A013' 



DC 

AL2 (DCA-SECNO+REG) 



01 

CRSW,X* 80 * 

TURN ON PRINT SW. 


BC 

UNC,NTC 

BR TO CONTINUE. 

CMI 

TM 

KEYSW,X 9 80 9 

SEE IF 2ND AREA CURRENT. 


BC 

ALL,CICR 

BR IF YES. 

TF 

TM 

DATSW,X'02* 

SEE IF 2ND AREA CHK RD WORKED. 


BC 

NONE,TPNC 

BR IF NO. 

COPT 

MVI 

GOODY+22,C *0 * 

MOVE ZERO INTO PRINT AREA. 


TM 

0(R4),X 9 10 9 

SEE IF XU ON IN DIAG CHK READ BYTE. 


BC 

NONE,NXU 

BR IF NOT ON. 


MVI 

GOODY+22,C *1• 

MOVE ONE INTO PRINT AREA. 

NXU 

MVI 

GOODY+25,C"O* 

PUT ZERO INTO PRINT AREA. 


TM 

0(R4),X *08 * 

SEE IF XL ON IN DIAG CHK DATA. 


BC 

NONE,NXL 

BR IF NOT ON. 


MVI 

GOODY+25,CH* 

MOVE ONE INTO PRINTOUT 

NXL 

MVI 

GOODY+28 »C * 0• 

MOVE ZERO INTO PRINTOUT. 


TM 

0(R4),X'04* 

SEE IF BUFFER PARITY ON IN CHK DATA. 


BC 

NONE,NBP 

BR IF NOT ON. 


MVI 

GOODY+28,C * 1 9 

MOVE A ONE INTO PRINTOUT. 

NBP 

MVI 

GOQDY+32,C'0• 

MOVE A ZERO INTO PRINTOUT. 


TM 

0 C R4),X•01' 

SEE IF ADDR CHK IN CHK DATA 


BC 

NONE,NAC 

BR IF NOT. 


MVI 

GOODY+32,C * 1' 

MOVE A ONE INTO THE PRINTOUT. 

NAC 

MVI 

G00DY+37,C *0* 

MOVE A ZERO INTO PRINTOUT. 


TM 

0(R4),X * 02 9 

SEE IF TRANSLATE CHK 


BC 

NONE,NTC 

BR IF NO. 


MVI 

G00DY+37,C 9 1 * 

MOVE A ONE INTO PRINTOUT. 

NTC 

STM 

R0,R4,TWENTY 

SAVE REGS 0 THRU 4. 


TM 

DATSW+1,X* 20* 

SEE IF PRINTING PRESENT DATA. 


BC 

NONE »C2A 

BR IF NOT. 


TM 

KEYSW*X , 80 9 

SEE IF 2ND AREA CURRENT. 


BC 

NONE,CIA 

BR IF NOT. 

TSRD 

TM 

DATSW,X*04* 

SEE IF 2ND AREA READ WORKED. 


BC 

ANY,CPRT 

BR IF YES. 

IFM 

TM 

CRSW* X 9 40 9 

SEE IF MSG PRINTED BEFORE 


BC 

ALL,RSRG 

BR IF YES. 


MVC 

XX(2 >,C2 

MOVE DIAG RD CMD TO MSG. 


SVC 

X*DO* 

PRINT DIAGNOSTIC READ FAILED. 


DC 

X # A013 9 



DC 

AL2(DCA-SECNO+REG) 



01 

CRSW,X , 40 t 

TURN ON MSG SW. 


BC 

UNCtRSRG 

BR TO UPDATE. 

C2A 

TM 

KEYSW,X*80* 

SEE IF 2ND AREA CURRENT. 
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001784 47 10 F 78C 

001788 47 FO F 75C 

00178C 91 40 F OEA 

001790 47 80 F 764 

001794 91 80 F C4C 

001798 47 10 F 7BE 

00179C OA DO 

00179E A008 

0017 AO F98 5 

0017A2 OA DO 

0017A4 A014 

0017A6 F98D 

0017A8 OA DO 

0017 AA AOO1 

0017 AC F9B7 

0017AE OA DO 

0017B0 A02 2 

0017B2 F9B 7 

0017B4 OA DO 

0017B6 A02 7 

0017B8 F909 

0017BA 96 80 F C4C 

0017BE D2 00 F C4F 3 000 

0017C4 18 42 

0017C6 4E 40 F 898 

0017CA F3 11 F A02 F 89E 

0017D0 96 FO F A03 

0017D4 D2 00 F 898 7 000 

0017DA OA DD 

0017DC 0001 

0017DE 0898 

0017E0 QA12 

0017E2 OA DD 

0017E4 0001 

0017E6 0C4F 

0017E8 OAOE 

0017EA IB 11 

0017EC IB 22 

0017EE IB 33 

0017F0 41 40 0 002 

0017F4 43 30 F C4F 

0017F8 18 13 

0017FA ID 24 

0017 FC 1A 31 

0017FE 43 13 F EOC 

001802 89 10 0 008 

001806 43 13 F EOD 

00180A 41 30 0 OFF 

00180E 14 23 

001810 47 50 F 818 

001814 88 10 0 004 

001818 50 10 F 898 

0Q181C 41 40 0 006 

001820 41 30 0 OOC 

001824 41 00 0 001 

001828 43 23 F A25 

00182C 58 10 F 898 

001830 14 10 

001832 47 80 F 83E 

001836 42 24 F AOS 

00183A 46 40 F 83E 

00183E 89 00 0 001 

001842 46 30 F 828 

001846 OA DO 

001848 8026 

00184A FAOO 

00184C 98 04 F DD8 

001850 47 FO F 5FG 



BC 

ALL,CIA 


BC 

UNC,TSRD 

CIA 

TM 

DATSW,X 9 40 9 


BC 

NONE,IFM 

CPRT 

TM 

HDSW,X•80 * 


BC 

ALL,IPDA 


SVC 

X * DO * 


DC 

X 9 A008 9 


DC 

AL2(HD1-SECN0+REG) 


SVC 

X 1 DO * 


DC 

X 9 A014• 


DC 

AL2(HD1A-SECN0+REG) 


SVC 

X ' DO * 


DC 

X * A001• 


DC 

AL2(BIG-SECNO+REG) 


SVC 

X * DO * 


DC 

X * A022 * 


DC 

AL2(BIG-SECNQ+REG) 


SVC 

X 9 DO 9 


DC 

X * A027* 


DC 

AL2(BEAUTY-SECNO+REG) 


01 

HDSW,X * 80• 

IPDA 

MVC 

ICODAT(l),0CR3) 


LR 

R4,R2 


CVD 

R4,DBWD 


UNPK 

G00DY+2(2I»DBWD+6«2) 


01 

G00DY+3,X»F0« 


MVC 

DBWD(1),G(R7) 


SVC 

X * DD * 


DC 

AL2 (01) 


DC 

AL2 C D8WD-SECN0) 


DC 

AL2(GQ0DY+18-SECN0) 


SVC 

X * DD * 


DC 

AL2(01) 


DC 

AL2(ICODAT-SECNQ) 


DC 

AL2(G00DY+14-SECN0) 


SR 

R1»R1 


SR 

R2,R2 


SR 

R3 »R3 


LA 

R4,2 


IC 

R3,ICODAT 


LR 

R1, R3 


DR 

R2,R4 


AR 

R3,R1 


IC 

R1,H0LESCR31 


SLL 

Rl,8 


IC 

R1,HOLES+iIR3) 


LA 

R3,255 


NR 

R2,R3 


BC 

ANY,*+8 


SRL 

Rl,4 


ST 

R1,DBWD 


LA 

R4,6 


LA 

R3»12 


LA 

RO, 1 

PIK 

IC 

R2,PUNCHS—1(R3) 


L 

R1,DBWD 


NR 

R1, RO 


BC 

NONE,NXT 


STC 

R2,G00DY+5(R4) 


BCT 

R4,*+4 

NXT 

SLL 

RO, 1 


BCT 

R3,PIK 

PRGD 

SVC 

X* DO 9 


DC 

X 9 8026* 


DC 

AL2IGOODY-SECNO+REG) 

RSRG 

LM 

R0,R4,TWENTY 


BC 

UNC,UPD 


BR IF YES. 

BR IF NO. 

SEE IF 1ST AREA RD OK. 

BR IF NOT. 

SEE IF HEADING ALREADY PRINTED. 
BR IF YES. 

PRINT 1ST HDR. 


PRINT CARD LOCATION IN READER. 


PRINT A BLANK. 


PRINT HEADING 3. 


PRINT HEADING 4. 


TURN ON THE HEADING SW. 

MOVE EXP DATA TO WORK AREA. 

PUT THE COLUMN NO. INTO REG 4. 
CONV IT TO DECIMAL. 

PUT IT INTO PRINT AREA. 

COVER SIGN UP FOR PRINTING. 

MOVE ACTUAL DATA TO CONVERT AREA. 
CONVERT FROM HEX TO BINARY. 

1 BYTE. 

FROM HERE. 

TO HERE 

CONVERT FROM HEX TO BINARY. 

1 BYTE. 

FROM HERE 
TO HERE 
ZERO REG 1 
ZERO REG 2. 

ZERO REG 3. 

LOAD DIVISOR 

PICK UP HEX CHARACTER 

SAVE HEX CHARACTER 

DIVIDE HEX CHARACTER BY 2 

ADD DIVIDEND TO CHARACTER 

PICK UP FIRST BYTE 

SHIFT 

PICK UP SECOND BYTE 
LOAD MASK 

AND WITH REMAINDER 
BR. IF THERE WAS A REMAINDER 
SHIFT OFF UNUSED 4 BITS 
SAVE REG 1. 

SET UP FOR 6 POSSIBLE PUNCHES 
SET UP TO CHECK 12 PUNCHES 
LOAD MASK 

PICK UP PRINTABLE CHARACTER 
RESTORE REG 1. 

TEST FOR PUNCH 
BR. IF NONE 

STORE PRINTABLE CHARACTER 
DECREMENT PRINT AREA INDEX 
SHIFT MASK FOR NEXT BIT 
BR. UNTIL 12 CHECKED 
PRINT THE DATA. 


RESTORE REGS. 

8R TO CONTINUE DATA OUTPUT. 
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«*****************************]M********************JMt***************** 




* 

1-0 

HANDLER WORK AREA. 



t******^******************************^******^**************:******** 

001858 

04 001915 0000 0001 

I SENSE 

CCW 

X®04® »IAC5NS+5,X*00 **1 

001860 

00000000 

ISAVE 

DC 

10F *0* 

001864 

00000000 




001868 

00000000 




00186C 

00000000 




001870 

00000000 




001874 

00000000 




001878 

00000000 




00187C 

00000000 




001880 

00000000 




001884 

00000000 




001888 

0000000000000000 

ICSW1 

DC 

XL8®0» 

001890 

0000000000000000 

ICSW2 

DC 

XL8 # 0* 

001898 

+00.00000000000000 

DBWD 

DC 

D®0* 

0018AO 

40C3C34040E740C5E7 

IEXPCC 

DC 

C® CC X EXP® 

0018A9 

D7 




0018AA 

40C3C34040E740C1C3 

IACTCC 

DC 

C® CC X ACT® 

00I8B3 

E3 




00I8B4 

40C1C40940E7E7E7E7 

IOADDR 

DC 

C® ADR XXXXXX SIO® 

0018BD 

E7E740E2C906 




00I8C3 

00 


DC 

X»00® 

0018C4 



CNOP 

0,4 


0018C3 


ORG 

4-1 

0018C3 

40C 1C4D940E7E7E7E7 

ILINK 

DC 

C® ADR XXXXXX LINK® 

0018CC 

E7E740D3C9D502 




0018D3 

00 


DC 

X*O0 8 

0018 04 



CNOP 

0,4 


0018D3 


ORG 

♦-*1 

001803 

40C3C1E640E7E7E7E7 

ICAW 

DC 

C* CAW XXXXXX 9 

00I8DC 

E7E740 




0018DF 

C362E6 

ICSW 

DC 

c®csw* 

0018E2 

C3C3E6 

ICCW 

DC 

c®ccw* 

001865 

40C 3E2E640E7E7E7E7 

IBLAH 

DC 

C® CSW XXXXXXXX XX* 

001 SEE 

E7E7E7E740E7E7 




0018P5 

676 7E7E7E7E740C5E7 


DC 

C'XXXXXX EXP® 

0018FE 

D7 



* 

0018FF 

C1C3E3 

I ACT 

DC 

C • ACT ® 

001902 

C5E7D7 

IEXP 

DC 

c®exp® 

001905 

40E 2D5E240E76 740C5 

IEXSNS 

DC 

C® SNS XX EXP® 

00190E 

E7D7 




001910 

406 2D5E24067E740C1 

IACSNS 

DC 

C® SNS XX ACT® 

001919 

C36 3 




001918 

40D3D6C740E76740E7 

IOLOG 

DC 

C® LOG XX XXXXXX X* 

001924 

E767E7E7E740E7 




00192B 

E767E7E7E740E7E7E7 


DC 

C’XXXXX XXXXXX® 

001934 

E7E7E7 




001937 

40E3E2E340E7E7E7E? 

ITSTNO 

DC 

C® TST XXXX® 

001940 

40E2C5E340E2E240F0 

I0PT1 

DC 

C® SET SS 0 ON FOR® 

001949 

40D6D540C6D609 




001950 

40D3D6D6D740D6D540 


DC 

C« LOOP ON PRESTKR® 

001959 

D7D9C5E263D2D9 




001960 

40C 3C44Q06 0940 E2£2 


DC 

C® CD OR SS 1 ON F * 

001969 

40F140D6D540C6 




001970 

D60940D3D6D6D740D6 


DC 

C®0R LOOP ON STACK® 

001979 

D540E2E3C1C3D2 




001980 

C5C440CJC4 


DC 

C®ED CD® 

001985 

4007C3C840C5D9D9 

HD1 

DC 

C® PCH ERR® 

00198D 

40C3C1D9C440C9D540 

HD1A 

DC 

C* CARD IN ® 

001996 

D7D9C5E2E3D2D940E2 


DC 

C 9 PRESTKR STA® 

00199F 

E3C 1 




0019A1 

D709C5E2E3D2D940E2 

PRES 

DC 

C 9 PRESTKR STA® 

0019AA 

E3C1 




0019AC 

E2E3C1C3D2C5D940D7 

STK1 

DC 

C®STACKER Pi.® 

0019B5 

F14B 




0019B7 

4040404040C5E7D7C5 

BIG 

DC 

C® EXPECTED SH® 
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0019C0 

C3E3C5C440E2C8 




0019C7 

C44040404040404040 


DC 

C ®D B* 

0019D0 

404040404040C2 




0019D7 

E4C 6 


DC 

C ®UF® 

0019D9 

40C3D6D340D7E4D5C3 

BEAUTY 

DC 

C® COL PUNCHES RD* 

0019E2 

C8C 5E24040D9C4 




0019E9 

4040D9C440E7E440E7 


DC 

C® RD XU XL PAR A® 

0019F2 

D340D7C1D940C1 




0019F9 

C4D940E3D9C1D5 


DC 

C*DR TRAN® 

001A00 

404040404040404040 

GOODY 

DC 

C® • 

001A09 

40404040404040 




001A10 

404040404040404040 


DC 

c® • 

001A19 

40404040404040 




001A20 

404040404040 


DC 

C® * 

001A26 

E3C5F0F1F2F3F4F5F6 

PUNCHS 

DC 

C ®TE0123456789® 

001A2F 

F7F8F9 




001A32 

40D4C1D2C540D7C3C8 

MDR 

DC 

C® MAKE PCH RDY® 

001A3B 

40D9C4E8 




001A3F 

001174 

IOADR 

DC 

AL3(ISSUE) 

001A42 

FE 

MSK1 

DC 

X ®FE ® 

001A43 

01 

MSK2 

DC 

* X*01® 

001A44 

40E4C9D640C6D9D6D4 

IUNEX 

DC 

C® UIO FROM DEVICE* 

001A4D 

40C4C5E5C9C3C5 




001A54 

40E7E7E7E7 


DC 

C® XXXX® 



*********************************************************************** 



* 

AUXILIARY WORK AREA. 



*********************************************************************** 

001A5C 

00000000 

PCH 

DC 

F * 0* 

001A60 

00000051 

ATE 1 

DC 

F * 81 • 

001A64 

00003FFF 

MOD50 

DC 

X® 00003FFF * 

001A68 


PCH1 

DS 

80C 

001AB8 


PCH2 

DS 

80C 

001B08 


CRD1 

DS 

80C 

001B58 


CRD2 

DS 

80C 

001BA8 


RD1 

DS 

80C 

001BF8 


RD2 

DS 

80C 

001C48 

OFOO 

RESET! 

DC 

X•OFOO * 

001C4A 

FOOO 

RESET2 

DC 

X'FOOO® 

001C4C 

00 

HDSW 

DC 

X®00® 

001C4D 

00 

CRSW 

DC 

X®00* 

0Q1C4E 

00 

KEYSW 

DC 

X®00® 

001C4F 

00 

ICODAT 

DC 

X®00® 

001C50 

00 

GENDAT 

DC 

X®00« 

001C51 

40D7D9C5E5C9D6E4E2 

HUNG 

DC 

C® PREVIOUS HANG U® 

001C5A 

40C8C1D5C740E4 




001C61 

D740C4C5E3C5C3E3C5 


DC 

C®P DETECTED® 

001C6A 

001C6C 

C4 


CNOP 

0,4 


*********************************************************************** 


* ROUTINE 01 - THIS ROUTINE IS THE PUNCH RIPPLE TEST. 39 CARDS ARE 

* PUNCHED AND THE OPERATION IS FULLY TESTED. EACH ROW ON 

* A CARD IS INDIVIDUALLY PUNCHED, STARTING WITH ROW 12 

4 IN THE FIRST CARD AND ADVANCING A ROW IN EACH SUCCESIVE 

* CARD UNTIL ALL NINES ARE PUNCHED IN THE TWELFTH CARD. 

* THE NEXT 27 CARDS CONTAIN A RIPPLE PATTERN OF THE EBCDIC 

* CARD CODE. 

*********************************************************************** 


001C6C 

01 




R0UT01 

DC 

X®01® 

ROUTINE NUMBER 

001C6D 

00 





DC 

X®00® 

ROUTINE FLAGS -NONE- 

001C6E 

FFFE 




DC 

X® FFFE ® 

OVERLAY FOLLOWS. 

001C70 

IB 

DO 



INIT 

SR 

R13 ,R13 

ZERO REG 13 

001C72 

91 

40 

E 

196 


TM 

406CR14)tX , 40® 

CHECK FOR FORCED PROBLEM STATE 

001C76 

47 

80 

F 

C7C 


BC 

NONE,NITWIT 

BR. IF NOT 

001C7A 

18 

DF 




LR 

R13,R15 * 

SET UP FOR PROBLEM STATE 

001C7C 

58 

CO 

F 

OEO 

NITWIT 

L 

R12 tUNITl 

PICK UP THE PUNCH UNIT TABLE. 

001C80 

54 

CO 

F 

A64 


N 

R12,M0D50 

SAVE ONLY THE PUNCH ADOR. 

001C84 

50 

CO 

F 

A5C 


ST 

R12,PCH 

SAVE IT 

001C88 

91 

80 

F 

0E8 

BLOOP 

TM 

ISW,X ®80® 

CHECK FOR HANG UP 
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001C8C 

47 10 

F 

D2E 


BC 

ALL,HANGUP 

BR. IF DETECTED 

001C90 

OA DO 




SVC 

X'DO' 

TELL OPERATOR TO REMOVE CDS 

001C92 

2419 




DC 

X'2419' 

FROM STACKERS. 

001C94 

FFBF 




DC 

AL2(RCFP-SECNO+REG) 


001C96 

OA DO 




SVC 

X'DO* 

PRINT MAKE DEVICE RDY* 

001C98 

AOOD 




DC 

X •AOOD' 


001C9A 

FA32 




DC 

AL2(MDR-SECNO+REG) 


001C9C 

OA DA 




SVC 

X 'DA • 

-HALT- 

001C9E 

9D 00 

C 

000 


TIO 

0(R12) 

TEST 1-0 

001CA2 

OA DO 




SVC 

X'DO* 

PRINT A BLANK. 

001CA4 

8001 




DC 

X * 8001' 


001CA6 

FFBF 




DC 

AL2(RCFP-SECNO+REG) 


001 CAS 

41 60 

0 

027 


LA 

R6»39 

PUT 39 INTO REG 6. 

001CAC 

92 00 

F 

C4E 


MVI 

KEYSW,X'00* 

INITIALIZE TO 1ST DATA AREA. 

001CB0 

92 00 

F 

C50 


MVI 

GENDAT,X•00• 

ZERO INITIAL EBCDIC CHARACTER. 

001CB4 

D2 OB 

F 

DF8 F DEC 


MVC 

PARAM(12),ROW 

INITIALIZE PARAMETERS. 

OOICBA 

45 40 

F 

D44 

PSIO 

BAL 

R4,INDAT 

BR TO GENERATE DATA. 

OOICBE 

58 CO 

F 

A5C 


L 

R12,PCH 

PUT PUNCH ADDR INTO REG 12. 

001CC2 

41 AO 

F 

DCO 


LA 

RIOtWRTI 

PUT CMD ADDR INTO REG 10. 

001CC6 

D2 01 

F 

CE8 F E04 


MVC 

ORIG( 2 )»FIR 

MOVE ADDR OF EXP CSW INTO PARAMS. 

OOICCC 

91 80 

F 

C4E 


TM 

KEYSW,X*80* 

SEE IF 2ND AREA SHOULD BE USED. 

OOICDO 

47 80 

F 

CDE 


BC 

NONE,BAL 

BR IF NO. 

001CD4 

41 AO 

F 

DC8 


LA 

R10,WRT2 

PUT 2ND AREA CMD ADDR. INTO REG 10. 

001CD8 

D2 01 

F 

CEB F E06 


MVC 

ORIG(2),SEC 

MOVE ADDR OF EXP CSW INTO PARAMS. 

001CDE 

45 BO 

F 

OEC 

8AL 

BAL 

RllfISIO 

BR TO ISSUE START 1-0. 

001CE2 

3E00 




DC 

X•3E00• 

CTRL SWITCHES 

001CE4 

0010 




DC 

X'0010* 

TEST NUMBER 

001CE6 

FOOO 




DC 

X*FOOO* 

EXP COND. CODE AND SENSE. 

001CE8 

FF8C 



ORIG 

DC 

AL2(EXP1-SECNO+REG) 

EXP CSW ADDR. 

001CEA 

91 80 

F 

C4E 


TM 

KEYSW,X*80* 

SEE IF 2ND AREA USED LAST 

001CEE 

47 10 

F 

D20 


BC 

ALL,SUFA 

BR IF IT WAS 

001CF2 

96 80 

F 

C4E 


01 

KEYSW,X*80* 

TURN ON THE SW IF NOT ON. 

001CF6 

D4 01 

F 

OEA F C4A 


NC 

DATSW(2),RESET2 

RESET AREA 2 CONTROL. 

001CFC 

46 60 

F 

CBA 

COP 

BCT 

R6,PSIO 

BR UNTIL ALL CARDS PUNCHED. 

001DOO 

41 AO 

F 

DCS 


LA 

RIO,WRT2 

PUT CMD ADDR INTO REG 10. 

001D04 

58 CO 

F 

A5C 


L 

R12,PCH 

PUT PCH ADDR INTO REG 12. 

001 DOS 

92 40 

F 

ABB 


MVI 

PCH2,C * « 

PUT A BLANK INTO DATA AREA. 

001D0C 

D2 4E 

F 

AB9 F AB8 


MVC 

PCH2+1(79)»PCH2 

BLANK OUT THE REST. 

001D12 

45 BO 

F 

OEC 


BAL 

R11,ISI0 

BR TO ISSUE START 1-0 

001016 

3E00 




DC 

X • 3E00* 

CTRL SWITCHES 

001D1B 

0010 




DC 

X*0010* 

TEST NUMBER 

001DiA 

FOOO 




DC 

X'FOOO * 

EXP COND CODE AND SENSE. 

001D1C 

FF9C 




DC 

AL2(EXP2-SECNO+REG) 

EXP CSW ADDR. 

001 DIE 

OA D6 



EXTP 

SVC 

X • D6* 

ROUTINE EXIT 

001D20 

D4 01 

F 

OEA F C48 

SUFA 

NC 

DATSW(2),RESET1 

RESET AREA 1 CONTROL. 

001D26 

94 7F 

F 

C4E 


NI 

KEYSW,X*7F* 

TURN OFF 2ND AREA POINTER. 

001D2A 

47 FO 

F 

CFC 


BC 

UNC,COP 

BR TO CONTINUE 

001D2E 

OA DO 



HANGUP 

SVC 

X • DO • 

PRINT 

001D30 

64 




DC 

X • 64* 

-PREVIOUS HANGUP DETECTED- 

001D31 

1A 




DC 

X ' 1A * 


001D32 

FC51 




DC 

AL2(HUNG-SECNO+REG ) 


001D34 

96 01 

F 

0E8 


01 

ISW,X*01* 

TURN ON ERROR SWITCH. 

001D38 

45 50 

F 

276 


BAL 

R5,IOOSNS 

BR. TO OUTPUT AVAILABLE INFO 

001D3C 

92 00 

F 

0E8 


MVI 

ISW,X'OO* 

RESET HANGUP SWITCH 

001D40 

47 FO 

F 

C88 


BC 

UNC,BLOOP 






*********************************************************************** 





* 

GENERATE PUNCH DATA HERE 






*********************************************************************** 

001D44 

41 80 

F 

A68 

INDAT 

LA 

R8,PCH1 

PICK UP 1ST PCH AREA ADDR. 

001D48 

91 80 

F 

C4E 


TM 

KEYSW,X*80* 

SEE IF 2ND AREA AVAILABLE. 

001D4C 

47 80 

F 

D54 


BC 

NONE,LA5 

BR IF NOT. 

001D50 

41 80 

F 

AB8 


LA 

R8,PCH2 

PICK UP 2ND PCH AREA ADDR. 

001D54 

50 80 

F 

DD4 

LAS 

ST 

R8,DATAD 

SAVE THE BUFFER ADDR. 

001D58 

55 60 

F 

DDO 


CL 

R6,TW7 

SEE IF REG 6 IS 27. 

001D5C 

47 20 

F 

D84 


BC 

HI,LA52 

BR IF HIGHER. 

001D60 

43 70 

F 

C50 


IC 

R7,GENDAT 

PICK UP 1ST EBCDIC CHAR. 

001D64 

41 50 

0 

050 


LA 

R5,80 

PUT 80 INTO REG 5. 

001D68 

42 78 

0 

000 

PIB 

STC 

R7,0(R8) 

STORE THE CHARACTER INTO THE BUFFER. 
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001D6C 41 77 0 001 

001D70 41 88 0 001 

00ID74 46 50 F D68 

001D78 58 80 F DD4 

001D7C D2 00 F C50 8 007 

001D82 07 F4 

001D84 02 00 8 000 F DF8 

00ID8A D2 4E 8 001 8 000 

00ID90 D2 OA F DF8 F DF9 

001D96 D2 00 F E03 8 000 

001D9C 07 F4 


001 DAO C2 00IBA8 2000 0050 

00IDA8 C2 001BF8 2000 0050 

001DB0 C6 001B08 2000 0050 

001DB8 C6 00IB58 2000 0050 

001DC0 01 001A68 2000 0050 

00IDC8 01 001AB8 2000 0050 

001DD0 000000IB 

001DD4 00000000 

001DD8 

001DEC 5060F0F1F2F3F4F5F6 

001DF5 F7F8F9 

001DF8 5060F0F1F2F3F4F5F6 

001E01 F7F8F9 

001E04 FF8C 

001E06 FF9C 

001E08 C3F2 

001E0A C3F6 


001E0C B039018818418218 
001E14 1180980580390388 
001E1C 384382381380B807 
001E24 D035014814414214 
001E2C 1140940540350348 
001E34 344342341340B407 
001E3C 7033012812412212 
001E44 1120920520330328 
001E4C 324322321320B207 
001E54 F031010810410210 
001E5C 1100900500310308 
001E64 304 302301300B007 
001E6C 000 B01A81A41A21A 
001E74 11A09AO5AO390288 
001E7C 284282281280A806 
001E84 800D01C81C41C21C 
001E8C 11C09C05CQ350248 
001E94 244242241240A406 
001E9C 4003006816416216 
001EA4 11609605603302CO 
001EAC 024222221220A206 
001EB4 E00FO1E81E41E21E 
001EBC 11E09E05E0310208 
001EC4 204202201200AO06 
001ECC B02 BOO A80A40A20A 
001ED4 10A08A04AQ2A01A8 
001EDC 2A42A22A12A0AA06 
001EE4 D02 D00C80C40C20C 
0016EC 10C08C04C02C01C8 
001EF4 2C42C22C12C0AC06 
001EFC 7027006806406206 
001F04 1060860460260168 
001FOG 264262261260A606 
001F14 F02 F00E80E40E20E 


LA R7»1(R7) 

LA R8,1(R8) 

BCT R5*PIB 

L R8» DATAD 

MVC GENDATt1),7(R8) 
BCR UNC»R4 

LA52 MVC 0(1 ,R8)tPARAM 

MVC 1(79,R8),0(R8) 

MVC PARAM(11),PARAM+1 
MVC PARAM+1H 1) ,0(R8) 


ADD 1 TO THE DATA BYTE 
ADD.I TO BUFFER ADDR. 

BR UNTIL FULL BUFFER. 

PICK UP START OF BUFFER ADDR. 

MOVE THE 7TH CHAR FOR NXT CARD. 
RETURN. 

MOVE CHARACTER TO PUNCH DATA AREA. 
FILL BUFFER WITH SAME CHARACTER. 
SHIFT PARAMETERS OVER. 

RESTORE 1ST PARAMETER TO LAST POS. 



* CCW AREA t _ 

******^**%*^**5*******%**************** 3 l'******************************* 


DGRD1 

CCW 

X*C2*,RD1,X'20*,80 

DGRD2 

CCW 

X*C2* ,RD2,X*20.* ,80 

CHRD1 

CCW 

X*C6*,CRDI,X*20 *,80 

CHRD2 

CCW 

X'C6*,CRD2,X*20*,00 

WRT1 

CCW 

X*01*,PCHI,X*20*,80 

WRT2 

CCW 

X'Ol*,PCH2,X'20*,80 

TW7 

DC 

F • 27 * 

DATAD 

DC 

F' O' 

TWENTY 

DS 

20C 

ROW 

DC 

X« 5060F0FIF2F3F4F5F6F7F8F9' 

PARAM 

DC 

X* 506OFOF1F2F3F4F5F6F7F8F9 * 

FIR 

DC 

AL2(EXP1-SECNO+REG) EXP CSW ADDR. 

SEC 

DC 

AL2(EXP2—SECNO+REG) EXP CSW ADDR. 

C2 

DC 

C'C2» 

C6 

DC 

C *C6 • 

* 


*************** 

* 


* HOLES TABLE * 

* 


*************** 

HOLES 

DC 

X'B039018818418218' 


DC 

X'1180980580390388' 


DC 

X' 384382381380B807' 


DC 

X'D035014814414214 ® 


DC 

X*1140940540350348* 


DC 

X * 344342341340B407 * 


DC 

X'7033012812412212 * 


DC 

X'1120920520330328' 


DC 

X'324322321320B207' 


DC 

X'F031010810410210* 


DC 

X'1100900500310308' 


DC 

X'304302301300B007' 


DC 

X* 000B01A81A41A21A 9 


DC 

X'11A09A05A0390288' 


DC 

X * 284282281280A806 * 


DC 

X* 800D01C81C41C21C 


DC 

X * 11C09C05C0350248 * 


DC 

X * 244242241240A406' 


DC 

X'4003006816416216' 


DC 

X'11609605603302C0' 


DC 

X * 024222221220A206 * 


DC 

X'E00F01E81E41E21E' 


DC 

X'11E09E05E0310208* 


DC 

X'204202201200A006• 


DC 

X•B02B00A80A40A20A 1 


DC 

X*10A08A04A02A01A8' 


DC 

X'2A42A22A12A0AA06• 


DC 

X'D02D00C80C40C20C' 


DC 

X•10C08C04C02C01C8 * 


DC 

X * 2C42C22C12C0AC06 * 


DC 

X•7027006806406206• 


DC 

X*1060860460260168* 


DC 

X * 264262261260A606* 


DC 

X * F02FG0E80E40E20E * 
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00 IF 1C 

10E08E04E02E01E8 


DC 

X*IOE08EO4E02EO1E8* 

O01F24 

2E42E22E12E0AE06 


DC 

X * 2E42E22E12E0AE06 * 

O01F2C 

AOO9008808408208 


DC 

X * A009008808408208• 

001F34 

10808804802801A8 


DC 

X*10808804802801A8' 

0O1F3C 

3A43A23A13A0B&G7 


DC 

X* 3A43A23A13A08AQ7 ® 

001F44 

6005004804404204 


DC 

X•6005004804404204’ 

0O1F4C 

10408404402401C8 


DC 

X * 10408404402401C8 * 

001F54 

3C43C23C13C0BC07 


DC 

X* 3C43C23C13C0BC07* 

001F5C 

2827012802402202 


DC 

X’2827012802402202 * 

O01F64 

1020820420220168 


DC 

X*1020820420220168® 

001F6C 

364362361360B607 


DC 

X 9 364362361360B607 ® 

001F74 

2001000800400200 


DC 

X® 2001000800400200® 

O01F7C 

10008004002001EB 


DC 

X s 109080040020016®• 

001F84 

3E43E23E13E0BE07 


DC 

X 9 3E43E23E13E0BE07 * 



t***********^********************************************************* 



* 

EXP 

CSW AREA 



*************%***&**&**&************%**+$&#**++**+%+%%4*###$*%##%+#ft+#+ 

001F8C 

00001 DCS 

EXP 1 

DC 

A i WRT1+8) 

001F90 

08000000 


DC 

X * 08000000 * 

00 IF94 

00000000 


DC 

XL4 8 0 s 

0O1F98 

04000000 


DC 

X 8 04000000 * 

001F9C 

00001DD0 

EXP2 

DC 

A( WRT2-S-81 

001FA0 

08000000 


DC, 

X®08000000 s 

001FA4 

00000000 


DC 

XL4® 0 9 

001FAB 

04000000 


DC 

X s 04000000® 






* 

MESSAGES 




001FAC 

40C4C9C1C740C3D4C4 

DC A 

DC 

C® DIAG CMD • 

001F85 

40 




001FB6 

C3F640C6C1C9D3C5C4 

XX 

DC 

C®C6 FAILED® 

001FBF 

40C4D640D5D6D7D9D6 

RCFP 

DC 

C 9 DO NOPROf EMPTY ® 

001FC8 

6BC5D4D7E3E840 




0O1FCF 

O7C3C840E2E3D2D9E2 


DC 

C *PCH STKRS® 



**************4*******i|^***3M****3M******3M***********:|'**** ************ 



* 

EQUATES 



************************************************, Ml *,t*,t4*,», M(4l * 3 t,|,l4,| ( 4j| MM ', |l 


000000 

NEVER 

EQU 

0 


000007 

NCCO 

EQU 

7 


OOOOOF 

UNC 

EQU 

15 


000008 

NONE 

EQU 

8 


000004 

SOME 

EQU 

4 


000001 

ALL 

EQU 

1 


000005 

ANY 

EQU 

5 


000008 

CCO 

EQU 

8 


000004 

CC1 

EQU 

4 


000002 

CC2 

EQU 

2 


000001 

CC3 

EQU 

1 


OOQOOA 

CC02 

EQU 

10 


000006 

CC12 

EQU 

6 


000008 

EQ 

EQU 

8 


000004 

LO 

EQU 

4 


000002 

HI 

EQU 

2 


000006 

UNEQ 

EQU 

6 


OOOOOC 

EQLO 

EQU 

12 


OOQOOA 

EQHI 

EQU 

10 


000080 

LOGOUT 

EQU 

X • 80® 


000181 

SYSMOD 

EQU 

X • 181 • 


OOFOOO 

REG 

EQU 

X • F0OO* 


00005A 

WHAT 

EQU 

90 


001AOO 

WORK 

EQU 

GOODY 


000000 

RO 

EQU 

0 


000001 

R1 

EQU 

1 


000002 

R2 

EQU 

2 


000003 

R3 

EQU 

3 


000004 

R4 

EQU 

4 


000005 

R5 

EQU 

5 


000006 

R6 

EQU 

6 


OOOOOOOO O O 
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000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

0O0OOA 

RIO 

EQU 

10 

O0OOOB 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

QOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 

DMSSW 

EQU 

X’OIAO* 

000189 

DMIOL 

EQU 

X ®01B9 # 

OOOIBC 

DMPTR 

EQU 

X’OIBC* 



END 

R0UT01 
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POST ASSEMBLY DATA. 

REFERENCES TO DEFINED SYMBOLS. 


2 

1E08 

C2 

176C 







2 

1E0A 

C6 

16D4 







1 

8 

EQ 

I29C, 

137E 






1 

2 

HI 

1D5C 







1 

4 

LO 








1 

0 

RO 

10F2, 

15B2, 

1748, 

1824, 

1830, 

183E, 

184C 

1 

1 

R1 

1580, 

15D8, 

1614, 

17E A , 

17EA , 

17F8, 

17FC 




17FE, 

1802, 

1806, 

1814, 

1818, 

182C , 

1830 

1 

2 

R2 

15DE, 

15FC, 

15FC, 

160C, 

17C4, 

17EC , 

17EC 




17FA, 

180E, 

1828, 

1836 




1 

3 

R3 

1560, 

1574, 

15B8, 

15CC, 

15E2, 

1600, 

1600 




17BE, 

17EE, 

17EE, 

17F4, 

17F8 , 

17FC , 

17FE 




1806, 

160A, 

180E, 

1820, 

1828, 

1842 


1 

4 

R4 

1564, 

1578, 

15BC, 

15D0, 

15EC , 

15F4, 

1604 




1604, 

16FC, 

170C, 

171C, 

172C, 

173C , 

1748 




17C4, 

17C6, 

17F0, 

17FA, 

181C , 

1836, 

183A 




184C , 

1CBA, 

1D82, 

1D9C 




l 

5 

R5 

15A0, 

1D38, 

1D64, 

1D74 




1 

6 

R6 

1CA8, 

1CFC, 

1D58 





1 

7 

R7 

1146, 

1152, 

1156, 

127A, 

12B4 , 

130C, 

1568 




157C, 

15C0, 

15D4, 

15E2, 

1608, 

1608, 

1684 




1692, 

169C, 

17D4, 

1D60, 

1D68, 

1D6C , 

1D6C 

1 

8 

R8 

1276, 

12A4, 

12B0, 

12FC, 

1308, 

1330, 

134E 




1352, 

1370, 

1370, 

1374, 

13BA, 

13BE , 

1468 




146C, 

1470, 

1470, 

1474, 

1548, 

15DC, 

166C 




1D44, 

1050, 

1D54, 

1D68, 

1D70, 

1D70 , 

1D78 




1D7C , 

1D84, 

1D8A, 

1D8A, 

1D96 



1 

9 

R9 

10F2, 

112E, 

1132, 

113E , 

11BA, 

11BE, 

11CA 




1220, 

140E, 

143C, 

147E , 

1496, 

14AE , 

14C6 




15B2, 

1664, 

1668, 

1680 




4 

16F0 

TF 

16C0 







1 

198 

WT 

112E, 

11BA, 

1664 





9 

1FB6 

XX 

16D4, 

176C 






1 

1 

ALL 

1106, 

114E, 

11B2, 

11EA, 

1242, 

1262, 

1282 




12AC, 

12E8, 

12F4, 

1304, 

131C, 

1392, 

13DA 




1570, 

15A0, 

161E, 

1626, 

163A , 

1642, 

1698 




16C0, 

1600, 

16EC, 

1768, 

1784, 

1798, 

1C8C 




1CEE 







1 

5 

ANY 

1598, 

15F0, 

15F8, 

16C8, 

1760, 

1810 


4 

1CDE 

BAL 

1CD0 







16 

19B7 

BIG 

17AC, 

17B2 






4 

178C 

CIA 

1758, 

1784 






4 

1780 

C2A 

1750 







4 

1048 

CAW 








1 

8 

CCO 

113A, 

1178 






1 

4 

CC1 

117C , 

167C 






1 

2 

CC2 

1180 







1 

1 

CC3 








4 

16E6 

CMI 

16B2 







4 

1CFC 

COP 

1D2A 







8 

1040 

CSW 








4 

1580 

CTO 

1570 







10 

IF AC 

DCA 

16DE, 

1776 






2 

1E04 

FIR 

1CC6 







8 

1985 

HD1 

17A0 







4 

1528 

ICO 

14F8 







2 

100A 

I CM 








4 

1764 

IFM 

1790 







4 

112E 

IHI 

111A, 

1122 






2 

10E8 

ISW 

115E, 

115E, 

1164, 

119E, 

11AA , 

11B6 , 

11C2 




11D2, 

UE2, 

11E6, 

11F4, 

1224, 

1232, 

123E 





1246, 

1256, 

1266, 

1286, 

128E, 

1292, 

12A0 




12B8, 

12CC, 

12E4, 

12F0, 

1310, 

1324, 

1346 




1368, 

1382, 

138E, 

1482, 

14B2, 

14D0, 

1528 




1530, 

1538, 

159C, 

1622, 

162 A , 

163E, 

1646 




168E, 

1C88, 

1D34, 

1D3C 




4 

15 AE 

IUP 

15A6 







4 

1D54 

LA5 

1D4C 







13 

1A32 

MDR 

1652, 

165E, 

1C9A 





4 

1738 

NAC 

1730 







4 

1728 

NBP 

1720 







4 

1748 

NTC 

16D0, 

16E4, 

1740 





4 

1718 

NXL 

1710 







4 

183E 

NXT 

1832 







4 

1708 

NXU 

1700 







4 

1A5C 

PCH 

1C84, 

1CBE, 

1D04 





4 

1D68 

PIB 

1D7 4 







4 

1828 

PIK 

1842 







1 

A 

RIO 

110A, 

13EC, 

1408, 

1412, 

141A, 

141A , 

1590 




1CC2, 

1CD4, 

1D00 





1 

B 

Rll 

10EC , 

11AE, 

1236, 

124E, 

1296, 

1334, 

133E 




134E, 

1360, 

13A6, 

13BE, 

13C0, 

13D2, 

13D2 




13D6, 

143E, 

145A, 

1468, 

149A , 

14CA , 

15A2 




15AA, 

15AA, 

15AE , 

15AE, 

15B6 , 

1CDE, 

1D12 

1 

C 

R12 

1116, 

1126, 

1136, 

1174, 

1 IDA , 

1656, 

1670 




1678, 

1C7C, 

1C80, 

1C 84, 

1C9E, 

1CBE, 

1D04 

1 

D 

R13 

10F6, 

10F6, 

110A , 

1156, 

1198, 

1590, 

166C 




1686, 

1C70, 

1C70, 

1C7A 




1 

E 

R14 

10FC , 

10FC , 

112E , 

11BA , 

14F4 , 

14FC , 

1664 




1C72 







1 

F 

R15 

11EE, 

11FC, 

122C, 

1C7A 




1 

1BA8 

RD1 

1568, 

15C0, 

1DA0 





1 

1BF8 

RD2 

157C, 

15D4, 

1DA8 





1 

FOOD 

REG 

120E , 

13B8, 

13D0, 

13EA, 

13FC , 

143A , 

1448 




144E, 

14E4, 

14F2, 

1526, 

1588, 

158E, 

1652 




165E, 

16DE, 

1776, 

17A0, 

17A6, 

17AC, 

17B2 




17B8, 

184A , 

1C94, 

1C9A, 

1CA6, 

1CE8, 

1D1C 




1D32, 

1E04, 

1E06 





12 

ID EC 

ROW 

1CB4 







2 

164E 

RRM 

1282 







4 

12D4 

SB2 

12C4 







2 

1E06 

. SEC 

1CD8 







4 

12 DC 

T05 

131C 







4 

1DD0 

TW7 

1D58 







4 

15F4 

TXS 

161E, 

162E 






1 

F 

UNC 

112A, 

1142, 

115A, 

1188, 

1190, 

11A2, 

11D6 




11F8, 

1228, 

124A , 

12D0, 

12D8, 

12E0, 

12EC 

.. 



12F8, 

141E, 

143C , 

1534, 

15B6, 

15DC, 

1614 




162E , 

164A, 

1660, 

1684, 

1692, 

169C , 

16E4 




177C, 

1788, 

1850, 

1D2A, 

1D40, 

1D82, 

1D9C 

4 

15 FC 

UPD 

163A, 

164A, 

1850 





4 

1A60 

AT El 

160C 







4 

1328 

BTCD 

1314 







4 

16C4 

C1CR 

16EC 







1 

A 

CC02 








1 

6 

CC12 








6 

15E2 

CODA 

1610 







6 

10F6 

CONP 

1660, 

1698 






4 

16F8 

COPT 

16C8 







4 

1794 

CPRT * 

1760 







1 

1B08 

CRD1 

1578, 

15BC, 

1DB0 





l 

1B58 

CRD2 

1564, 

15D0, 

1DB8 





1 

1C4D 

CRSW 

1168, 

16CC, 

16E0, 

1764, 

1778 



8 

1898 

DBWD 

17C6, 

17CA, 

17D4, 

17DE, 

1818, 

182C 


1 

A 

EQHI 








1 

C 

EQLO 








4 

1F8C 

EXP1 

1CE8, 

1E04 






4 

1F9C 

EXP2 

1D1C, 

1E06 







2 IDLE EXTP 


DATE 15JUN67 

EC 130498 
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4 

1136 

GREG 

113E 







1 

48 

HC AW 

110A, 

1156, 

1590, 

166C 




1 

40 

HCSN 

10F6, 

10F6, 

1198, 

11EE, 

lire. 

122C, 

1686 

9 

198D 

HD1A 

16A8* 

16B6§ 

17A6 





1 

1C4C 

HDSW 

116C* 

154C, 

1794, 

170 A 




16 

1C51 

HUNG 

1D32 







3 

18 FF 

I ACT 

121A, 

148A, 

14BA 





4 

1538 

I BCD 

152C 







6 

1334 

ISSN 

132C 







12 

18D3 

1C AW 

I3EC, 

13F4, 

13F6, 

13FC 




3 

18E2 

ICCW 

13FE 







4 

15DE 

ICDT 

' 1580 ® 

1508 






1 

1439 

I GMT 

1216? 

1404, 

1456 





3 

18DF 

ICSW 

1210? 

1450 






4 

14B2 

IDID 

149E 







3 

1902 

I EXP 

1462, 

14A2 






4 

12A4 

1 FUR 

125A, 

126A? 

12? 2, 

lIMt 

I29C 



4 

169E 

I GOP 

1626? 

1642 






2 

1C70 

IN I T 








4 

11 AA 

INOW 

1188, 

1190, 

11A2 





4 

1236 

I NT 3 

X1F8 







4 

1194 

I ONE 

117C 







6 

14CA 

* IPAS 

I4B6 







6 

17BE 

I PDA 

1798 







4 

12FC 

I SCR 

12BC, 

1208 






4 

124E 

IS EN 

1 IB 2, 

1106, 

123A« 

1242 




& 

10EC 

1SI0 

1CDE, 

1012 






6 

122C 

ISV2 

11EA 







4 

1680 

IT IC 

168A 







4 

U8C 

IT WO 

1180 







6 

11FC 

IUIO 

1 IDE 







6 

115E 

JOHN 

a 12 







6 

1D84 

LA52 

ID5C 







i 

1A42 

MSK1 

ac6 







1 

1A43 

MSK2 

11CE 







1 

? 

NCC0 

aiA, 

1674 






1 

IOOD 

NIOU 








1 

8 

NONE 

1112, 

1122, 

I23A, 

1252, 

125A, 

I26A? 

1272 




128 A, 

12BC, 

12C4, 

1314, 

132C, 

1342, 

134 A 




1364? 

136C, 

139A, 

1416, 

145E y 

I486, 

149E 




I486, 

1404, 

I52C, 

1540, 

1558, 

I5A6, 

I5C8 




168A, 

16B2, 

16F4, 

1700, 

1710, 

1720, 

1730 




1740, 

1750, 

1758, 

1790, 

1832 , 

1C76, 

iCDO 




1D4C 







2 

1CE8 

OR IG 

ICC6, 

1CD8 






i 

1A6S 

PC HI 

1560, 

1588, 

1D44, 

IDCO 




1 

1 ABB 

PCH2 

1574, 

15CC t 

1008, 

1D0C , 

IOOC, 

1D50, 

1DC8 

11 

19A1 

PRES 

1686 







2 

1846 

PRGD 








4 

1CBA 

PSIO 

1CFC 







16 

1F8F 

RCFP 

1C94, 

1CA6 






4 

1324 

RRSl 

12E0 







4 

12CC 

RRS2 

12D8 







4 

184C 

RSRG 

1768, 

177C 






I 

IOOC 

SDMF 








4 

1554 

SIPP 

1540 







4 

1004 

SNSW 

1102, 

noe. 

UIE, 

1396, 

1594 



1 * 

4 

SOME 








3 

105D 

SRET 








4 

1156 

S T CD 

114E . 







a 

19 AC 

STKI 

16A8 







4 

1508 

SU1P 

15C8 







4 

15 68 

SUCP 

1330? 

1548 






6 

1D20 

SUFA 

1C EE 







4 

1146 

SULP 

1106 







4 

16CC 

TPNC 

16F4 







4 

175C 

TSRP 

1788 







1 

iOEl 

U10P 
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1 

10E5 

U20P 








1 

6 

UNEQ 

UDEy 

133A, 

I35C * 

14F8, 

15E8, 

1610 


1 

5A 

WHAT 








16 

1A 00 

WORK 

11FC, 

1408, 

1426, 

1428, 

142A, 

1430, 

1478 




1478, 

1490, 

14A8, 

14A0, 

14C0, 

14FC, 

1506 




1508, 

150A, 

1510, 

1516, 

151C 



8 

IDCO 

WRT1 

1146, 

1CC2, 

1F8C 





8 

1DC8 

WRT2 

1152, 

1CD4, 

1D00, 

1F9C 




4 

1C88 

BLOOP 

1D40 







8 

ID BO 

CHRD1 

12B0 







8 

1 DBS 

CHRD2 

12A4 







4 

1DD4 

DATAD 

ID 54, 

1D78 






2 

IDEA 

DATSW 

12C8, 

12D4, 

12DC « 

1320, 

153C , 

1544, 

1550 




1554, 

155C, 

1616, 

161A , 

1632, 

1636, 

16AE 




16C4, 

16F0, 

174C, 

175C, 

178C , 

1CF6 y 

1D20 

8 

1DA0 

DGRD1 

1308 







8 

1 DAS 

DGRD2 

12FC 







1 

1B9 

DMIOL 








1 

1BC 

DMPTR 








1 

1 AO 

DMSSW 








4 

1632 

ERPRE 

15F8 







4 

1616 

ERPRS 

15E8, 

15F0 






1 

100E 

FLAG1 








i 

100F 

FLAG2 








16 

1AOO 

GOODY 

169E » 

16A2, 

16A2, 

16F8, 

1704, 

1708, 

1714 




1718, 

1724, 

1728, 

1734, 

1738, 

1744, 

17CA 




17D0, 

17E0, 

17E 8, 

1836, 

184A , 

1FD8 


8 

1E0C 

HOLES 

17FE , 

1806 






4 

1694 

IBACK 

1674 







18 

18E5 

IBLAH 

1210, 

121A, 

13FE, 

142A , 

1430, 

143A, 

1450 




1462, 

148A, 

14A2, 

14BA 




2 

1422 

ICOUT 

1220, 

140E, 

147E, 

1496, 

14AE, 

14C6 


8 

1888 

ICSW1 

1198, 

11EE, 

125E, 

1356, 

1356, 

1490 


8 

1890 

ICSW2 

122C, 

126E, 

1378, 

1378, 

14C0 



4 

1482 

IDIDI 

145E 







4 

1116 

I HANG 

112A, 

115A 






16 

18C3 

ILINK 

13CQ, 

13C8, 

13CA, 

13D0, 

158E 



4 . 

1686 

ILOKE 

167C 







4 

1102 

HOOP 

113A, 

1142, 

1598 





4 

1D44 

INDAT 

1CBA 







4 

1382 

INDER 

12E8, 

12F4, 

133A, 

134A, 

135C, 

136C 


5 

1010 

INPSW 








3 

1A3F 

IOADR 

13E2 







6 

1450 

IGCSW 

13DA 







16 

191B 

IOLOG 

150A, 

1510, 

1516, 

151C, 

1526 



16 

1940 

I OPT 1 

1588 







4 

14F4 

IPASS 

14D4 







4 

1860 

ISAVE 

10F2, 

15B2 






4 

1174 

ISSUE 

1A3F 







4 

1664 

ISTRT 

127A, 

12B4, 

130C 





16 

1A44 

IUNEX 

1208, 

120E 






4 

11 BA 

IWAIT 

124A, 

1534 






4 

11A6 

IZERO 

1178 







1 

1C4E 

KEYSW 

114A, 

12A8, 

12C0, 

1300, 

1318, 

156C, 

15C4 




16BC, 

16E8, 

1754, 

1780, 

1CAC, 

1CCC, 

1CEA 




1CF2, 

1D26, 

1D48 





4 

1A64 

MQD5Q 

1C80 







1 

0 

NEVER 








12 

1DF8 

PARAM 

1CB4, 

1D84, 

1D90, 

1D90, 

1D96 



4 

1000 

SEGNO 

1206, 

1208, 

120E, 

13B0, 

13B2, 

13B8 , 

13C8 




13CA, 

13D0, 

13E2, 

13E4, 

13EA , 

13F4 , 

13F6 




13FC, 

1426, 

1428, 

143A, 

1448, 

144E, 

14DC 




14DE, 

14E4, 

14EA, 

14EC , 

14F2, 

1506, 

1508 




1526, 

1588, 

158E , 

1652, 

165E, 

16DE, 

1776 




17A0, 

17A6, 

17AC , 

17B2, 

17B8, 

17DE , 

17E0 




17E6, 

17E8, 

184A, 

1C 94, 

1C9A, 

1CA6, 

1CE8 




1D1C, 

1D32, 

1E04, 

IE06 




1 

10E0 

UNIT1 

IC7C 
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1 10E4 UNIT2 

16 19D9 BEAUTY 17B8 

5 1058 EXNPSW 

8 1018 EXOPSW 

1 1C50 GENDAT 1CB0, 1D60, 1D7C 

2 1D2E HANGUP 1C8C 

11 1910 IACSNS 1170, 127E, 1296, 1328, 14EA, 14EC, 14F2 

1694, 1858 

10 18AA IACTCC 1184, 118C, 1194, 11A6, 1334, 144E 

4 130C IAS I 01 1304 

4 12B4 I AS 102 12AC 

6 143E ICCOUT 1416 

6 1356 ICCSW1 1352 

6 1378 ICCSW2 1374 

6 1478 ICHNG1 146C 

6 14A8 ICHNG2 1474 

1 1C4F ICODAT 17BE, 17E6, 17F4 

6 1408 ICWOUT 141E 

4 1276 IDOSNS 1252, 1262, 1038 

4 1386 IDUNCK 12EC, 12F8, 137E 

10 18 AO IEXPCC 143E, 1448 

11 1905 IEXSNS 14CA, 14DC, 14DE, 14E4 

1 1366 I FLAG1 1386, 139E 

1 1586 IFLAG2 138A, 13A2 

4 15A2 ILEAVE 139A 

6 14FC 1L0GED 1228 

4 149A IMORST 1486 

4 12E4 IN0EX1 1342 

4 12F0 IN0EX2 1364 

15 18B4 IOADDR 13E4, 13EA 

4 1078 IONPSW 

8 1038 IOOPSW 1IDA, 1206 

2 1584 IOPOUT 1558 

6 13A6 IOUTIT 1392 

4 1IDA IRETRN 107C 

8 1858 I SENSE 1276 

4 1678 ITIOLP 1680 

9 1937 ITSTNO 10EC, 13A6, 13B0, 13B2, 13B8 

1 80 LOGOUT 10FC, 10FC, 14FC 

8 1070 MCNPSW 

8 1030 MCOPSW 

4 1C7C NITWIT 1C76 

8 1068 PGNPSW 

8 1028 PGOPSW 

12 1A26 PUNCHS 1828 

2 1C48 RESET 1 1D20 

2 1C4A RESET2 1CF6 

1 1C6C ROUT01 1015, 1FD8 

8 1060 SVNPSW 

8 1020 SVOPSW 

1 181 SYSMOD 14F4 

1 1DD8 TWENTY 1748, 184C 

2 10E2 UlADDR 

2 10E6 U2ADDR 


l 1000 XF8220 


NO ERROR DETECTED IN ABOVE ASSEMBLY 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 


8220 TITLE 2540 PUNCH OVERLAY SECTION 
*********************************************************************** 
XF8220 START 4096 

001000 USING *,15 

*********************************************************************** 
******************* ******************* 

* SECTION PREFACE *********************************** SECTION PREFACE * 

******************* ******************* 

001000 SECNO DS F 

001004 SNSW DS F 

001015 ORG SECNO+21 ORIGIN INITIAL PSW ADDRESS * 

001015 001 BIO DC AL3IR0UT02) ADDR OF ROUTINE PREFIX. 

001038 ORG SECNO+56 

001038 IOOPSW DS F 

00107C ORG SECNO+124 

00107C 00001IDE DC AL4(IRETRN) 1-0 RETURN ADDRESS. 

0010E0 ORG SECNO+224 ORIGIN AFTER SECTION PREFACE. 

0010E0 UNIT1 DS F 

0010E4 UNIT2 DS F 

********************************************************************* 4 * 

* OPTIONAL FEATURE BYTE DEFINITION 
*********************************************************************** 

* * BIT 0 * BIT 1 * BIT 2 * BIT 3 * BIT 4 * BIT 5 * BIT 6 * BIT 7 * 

* * HEX 8 * HEX 4 * HEX 2 * HEX 1 * HEX 8 * HEX 4 * HEX 2 * HEX 1 * 

* * ASCII * CARD * * 51 * 1400 * * * 2821 * 

* * * IMAGE * * COL RD* COMP * * * 2 CHN * 

** * * * * * * * SW. * 

*********************************************************************** 

* 2540 READER SENSE BYTE 
*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK - VALIDITY CHECK - INVALID CARD CODE 

* 5 OVERRUN - NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE-2 READS WITHOUT INTERVENING FEED 

* 7 NOT USED 

*********************************************************************** 

* 2540 READER STATUS BYTE 
*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - 1400 COMPATIBILITY FEATURE ONLY - INDICATES 

* SENSE WAS ISSUED BEFORE 6 MS TIME OUT AFTER 

* A 1400 COMPATIBILITY READ. 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - LAST CARD PREVIOUSLY READ, AND END OF 

* FILE WAS ON. 
*********************************************************************** 

* 2540 READER DIAGNOSTIC CHECK READ BYTE DEFINITION 
*********************************************************************** 

* BIT MEANING 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 XU CHECK PLANE 

* 4 XL CHECK PLANE 

* 5 BUFFER PARITY CHECK 

* 6 READ TRANSLATE CHECK 

4 7 READER BUFFER ADDRESS CHECK 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 
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*********************************************************************** 

*********************************************************************** 

*********************************************************************** 

* PARAMETERS USED TO ENTER 

* THE I-G HANDLER ROUTINE 

*********************************************************************** 


4 

BAL 

RllylSSO 

LINK TO 

1-0 HANDLER 

4 

DC 

XL2'0000 * 

CONTROL 

SWITCHES 

4 

DC 

X'0014 * 

TEST NO. 

IN DEC EXPF 

4 

DC 

X * FO 9 

EXPECTED 

CQND. CODE 

4 

DC 

X 9 Q0® 

EXPECTED 

SENSE DATA 

4 

DC 

AL2IADR-BASE4REG) 

ADDR. OF 

EXPECTED C2 


*********************************************************************** 
********************************** 5 ************************************* 

* I~0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING 8AL 
*********************************************************************** 


* SWITCH 

* 0 -- 
* 

* 

* 

♦ 

* 


DESCRIPTION 




OFF 

ON 

OFF 

ON 

OFF 

ON 

OFF 

ON 

OFF 

ON 

OFF 

ON 

OFF 

ON 

OFF 

ON 


ISSUE AN 1-0 COMMAND 

DO NOT ISSUE AN I-Q COMMAND 

ENABLE 

DO NOT ENABLE 

EXPECT NO INTERRUPT 

EXPECT AN INTERRUPT 

DO NOT EXPECT 2 INTERRUPTS 

EXPECT 2 INTERRUPTS 

EXPECT NO CSWS 

EXPECT A CSW 

DO NOT EXPECT 2 CSWS 

EXPECT 2 CSWS 

ALWAYS TRY TO ISSUE SENSE 

SENSE ON UNIT CHECK ONLY 

DO NOT ISSUE 2 DIAGNOSTIC CHECK READ START 1-0 CMOS 
ALWAYS ISSUE 2 DIAGNOSTIC CHECK READ COMMANDS 


* 

* 

* 

♦ 

* 

♦ 

* 

* 

♦ 

* 

*********************************************************************** 
************************************************************* ********** 

* SWITCHES USED BY 1-0 HANDLER 
*********************************************************************** 

* SWITCH DESCRIPTION 

* 0 — OFF - NO HANGUP ON INTERFACE 

* ON - HANGUP OCCURRED 

' * i — OFF - NO CSWS STORED 

* ON - ONE CSW STORED 

* 2 —— OFF - SECOND CSW NOT RECEIVED 

* ON - SECOND CSW RECEIVED 

* 3 -- OFF - DID NOT ENABLE 

* ON - ENABLED ONCE 

% 4 —— OFF - DID NOT ENABLE TWICE 

* ON - ENABLED TWICE 

* 5 —— OFF - NO SENSE DATA RECEIVED 

* ON - SENSE DATA RECEIVED 

* 6 — OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* ON — UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* 7 * — OFF - NO ERROR DETECTED 

* ON - AN ERROR WAS DETECTED 
*********************************************************************** 

* REGISTERS USED IN 1-0 HANDLER 
*********************************************************************** 
sis 

* 

* 

* 

* 

* 

* 

* 

4 


REG 

5 


COMMENTS 

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 
PREVIOUS HANGUP ON INTERFACE DETECTED* 

8 USED AS WORK REGISTER* WILL BE RESTORED UPON RETURN. 

9 USED AS WORK REGISTER* WILL BE RESTORED UPON RETURN. 

10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 


4 









* 

* 

11 

MUST BE USED AS LINK 

REG TO THIS ROUTINE 








* 

■A 

12 

MUST CONTAIN DEVICE ADDRESS 








*3^*********^************* ************ ********************* **4******** 

0010E8 

0000 





1SW 

DC 

XL2 * 0 * 









*********************************************************************** 








*********************************************************************** 








♦ 


* 1-0 HANDLER SUB-ROUTINE * 








*********************************************************************** 

0010EA 

D2 

01 

F 

854 

B 

002 

ISIO 

MVC 

ITSTN0+5C 2),2(R11) 

SAVE TEST NUMBER 

OOIOFO 

90 

09 

F 

760 




STM 

R0 ? R9,1 SAVE 

SAVE WORK REGISTERS. 

0010F4 

D2 

00 

F 

961 

F 

003 


MVC 

RTSV(1) f SECN0+3 

SAVE RT NO. FOR HANGUP. 

0010FA 

50 

AD 

0 

048 



CONP 

ST 

RI0yHCAWC R13) 

STORE CMD ADDRESS. 

001 OFE 

D7 

0? 

D 

040 

D 

040 


XC 

HCSW(8,R13) f MCSW(R13) 


001104 

D7 

08 

E 

080 

E 

080 


XC 

LOGOUTl12,R14),LOGOUT(R14) 

00110A 

91 

80 

B 

000 




TM 

0(R11),X* 80• 

CHECK CONTROL SWITCH FOR NO 1-0 

00110E 

47 

10 

F 

1AE 




BC 

ALL,INOW 

BR. IF ON 

001112 

91 

CO 

F 

004 




TM 

SNSWy X*CO* 


001116 

47 

80 

F 

15E 




BC 

NONE,JOHN 









*********************************************************************** 








* 


SENSE SWITCH LOOPS 








*********************************************************************** 

00111A 

91 

80 

F 

004 



ITRY1 

TM 

SNSW,X * 80* 

CHECK SECTION SENSE SWITCH 0 

00111E 

47 

80 

F 

12A 




BC 

NONE,ITRY2 

BR. IF OFF 

001122 

9C 

09 

C 

000 



ILOOP 

SIO 

0(R12) 

START 1-0 

001126 

47 

FO 

F 

11A 




BC 

UNC,ITRY1 

BR. UNCONDITIONAL 

00112A 

91 

40 

F 

004 



ITRY2 

TM 

SNSW,X *40* 

CHECK SECTION SENSE SWITCH 1 

00112E 

47 

80 

F 

14A 




BC 

NONE,IHI 

BR. IF OFF 

001132 

9D 

00 

C 

000 



IHANG 

TIO 

0(R12) 

TEST 1-0 

001136 

47 

70 

F 

11A 




BC 

NCCO,ITRY1 

BR. IF NOT COND. CODE 0 

Q0113A 

91 

40 

F 

004 




TM 

SNSW,X*40* 

CHECK SECTION SENSE SWITCH 1 

00113E 

47 

80 

F 

14A 




BC 

NONE,IHI 

BR. IF OFF 

001142 

9C 

00 

C 

000 




SIO 

0(R12) 

START 1-0 

001146 

47 

FO 

F 

132 




BC 

UNC,IHANG 

BR. UNCONDITIONAL 

00114A 

58 

9E 

0 

198 



IHI 

L 

R9,WT CR14) 

PICK UP DM WAIT FACTOR. 

00114E 

88 

90 

0 

003 




SRL 

R9,3 

CUT IT DOWN TO 1.25 SECS. 

001152 

9D 

00 

c 

000 



GREG 

TIO 

0CR12) 

TEST 1-0 TO DEVICE. 

001156 

47 

80 

F 

15E 




BC 

CCO,JOHN 

BR IF AVAILABLE. 

00115A 

46 

90 

F 

152 




BCT 

R9,GREG 

LOOP UNTIL TIME OUT. 








*********************************************************************** 








* 

EXECUTE START 1-0 HERE 









*********************************************************************** 

00115E 

07 

01 

F 

0E8 

F 

0E8 

JOHN 

XC 

ISW(2),ISW 

ZERO THE 1-0 HANDLER SWITCHES. 

001164 

96 

80 

F 

0E8 




01 

ISW»X*80* 

TURN ON THE HANG SWITCH. 

001168 

94 

00 

F 

AF3 




NI 

CRSW,X*00* 

ZERO DIAG MSG SW. 

00116C 

94 

00 

F 

AF1 




NI 

HDSW,X* 00 * 

ZERO THE HEADING SWITCH. 

001170 

92 

E7 

F 

82D 




MVI 

IACSNS+5,C * X * 

MOVE AN X INTO THE ACTUAL SENSE DATA 

001174 

92 

E7 

F 

7C7 




MV! 

IACTCC+5,C*X* 

MOVE IN A -X- 

001178 

9C 

00 

C 

000 



ISSUE 

SIO 

0(R12) 

START 1-0 COMMAND. 

00117C 

47 

80 

F 

1AA 




BC 

CCO,I ZERO 

BR. IF COND. CODE 0 

001180 

47 

40 

F 

198 




BC 

CC1,IONE 

BR. IF COND. CODE 1 

001184 

47 

20 

F 

190 




BC 

CC2,I TWO 

BR. IF COND. CODE 2 

001188 

92 

F3 

F 

7C7 




MVI 

IACTCC+5,X*F3* 

INDICATE COND. CODE 3 

00118C 

47 

FO 

F 

1AE 




BC 

UNC*INOW 

BR. UNCONDITIONAL 

001190 

92 

F2 

F 

7C7 



ITWQ 

MVI 

IACTCC+5,X*F2® 

INDICATE COND. CODE 2 

001194 

47 

FO 

F 

1AE 




BC 

UNC,INOW 

BR. UNCONDITIONAL 

001198 

92 

FI 

F 

7C7 



IONE 

MVI 

IACTCC+5,X ®F1• 

INDICATE COND. CODE 1 

Q0119C 

D2 

07 

F 

788 

D 

040 


MVC 

ICSW1S8),HCSW(R131 

SAVE CSW 

0011A2 

96 

40 

F 

0E8 




01 

ISW,X*40* 

INDICATE 1 CSW 

0011A6 

47 

FO 

F 

1AE 




BC 

UNC,INOW 

BR. UNCONDITIONAL 

0011AA 

92 

FO 

F 

7C7 



I ZERO 

MVI 

IACTCC+5,X*F0* 

INDICATE COND. CODE 0 

0011AE 

94 

7F 

F 

0E8 



INOW 

NI 

ISW,X*7F* 

TURN OFF HANG UP SWITCH 

0011B2 

91 

40 

B 

000 




TM 

0(R11),X*40* 

CHECK CONTROL SWITCH FOR NO ENABLE 

0011B6 

47 

10 

F 

252 




BC 

ALL,I SEN 

BR. IF ON 

0011BA 

96 

10 

F 

0E8 




01 

ISW,X*10* 

INDICATE ENABLED ONCE 

0011BE 

58 

9E 

0 

198 



IWAIT 

L 

R9»WTIR14I 

LOAD DM WAIT FACTOR 
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0011C2 

88 

90 

0 

003 

SRL 

R9,3 

ADJUST 

0011C6 

96 

80 

F 

0E8 

01 

I SW*X*80* 

TURN ON HANG UP SW 

0011CA 

80 

00 

F 

95F 

SSM 

mskT 

ENABLE 

0011CE 

46 

90 

F 

ICE 

BCT 

R9,» 

WAIT 

0011D2 

80 

00 

F 

960 

SSM 

MSK2 

DISABLE 

0011D6 

94 

7F 

F 

0E8 

NI 

I SW,X'7F • 

TURN OFF HANG SW 

0011 DA 

47 

FO 

F 

252 

BC 

UNC 11 SEN 

BR. UNCONDITIONAL 






*********************************************************************** 






♦ 

ALL 1-0 

INTERRUPTS RETURN HERE 






*********************************************************************** 

0011DE 

49 

CO 

F 

03A 

IRETRN CH 

R12 *IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

0011E2 

47 

60 

F 

200 

BC 

UNEQ,IUIO 

BR. IF UNEQUAL 

0011E6 

94 

7F 

F 

0E8 

Nl 

ISW,X * 7F • 

RESET HANG UP SW 

0011EA 

91 

40 

F 

0E8 

TM 

ISW * X *40' 


0011 EE 

47 

10 

F 

230 

BC 

ALL fISV2 

BR. IF 1 CSW ALREADY STORED 

0011F2 

D2 

07 

F 

788 F 040 

MVC 

ICSW1(8),HCSW(R15> 

SAVE CSW 1 

0011F8 

96 

40 

F 

0E8 

01 

ISW»X•40 * 

INDICATE 1 CSW STORED 

0011FC 

47 

FO 

F 

23A 

BC 

UNC,INT3 

BR. UNCONDITIONAL 

001200 

D2 

07 

F 

7AO F 040 

IUIO MVC 

WORK C 8),HCSW(R15) 


001206 

OA 

DD 



SVC 

X • DD • 

CONVERT ADDRESS 

001208 

0002 



DC 

AL2(2) 

2 BYTES OF 1-0 OLD PSW. 

00120A 

003 A 



DC 

AL2(I00PSW+2-SECN0) 

FROM HERE. 

00120C 

0973 



DC 

AL2UUNEX+17-SECNO) 

TO HERE 

00120E 

OA 

DO 



SVC 

X * DO' 

PRINT UNEXPECTED INTERRUPT DEVICE 

001210 

64 




DC 

X * 64* 

ADDRESS 

001211 

15 




DC 

X • 15* 


001212 

F962 



DC 

AL2(IUNEX—SECNO+REGI 


001214 

02 

02 

F 

7FE F 7F7 

MVC 

IBLAH+1(3),ICSN 

MOVE -CSW- TO MESSAGE 

00121A 

92 

1A 

F 

429 

MVI 

ICNT, X • 1A' 

ADJUST COUNT 

0012IE 

02 

02 

F 

814 F 817 

MVC 

IBLAH+2313)tIACT 

MOVE -ACT- TO MESSAGE 

001224 

45 

90 

F 

412 

BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

001228 

96 

02 

F 

0E8 

01 

ISW,X *02' 

INDICATE UIO 

00122C 

47 

FO 

F 

4EC 

BC 

UNCtILOGED 

BR. UNCONDITIONAL 

001230 

02 

07 

F 

790 F 040 

ISV2 MVC 

ICSW2(8),HCSW(R15) 

SAVE CSW 2 

001236 

96 

20 

F 

0E8 

01 

ISW,X *20* 

INDICATE 2 CSWS STORED 

00123A 

91 

10 

B 

000 

INT3 TM 

0(R11),X*10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

00123E 

47 

80 

F 

252 

BC 

NONE,I SEN 

BR. IF NOT 

001242 

91 

08 

F 

0E8 

TM 

ISW,X * 08 * 


001246 

47 

10 

F 

252 

BC 

ALL,ISEN 

BR. IF ALREADY ENABLED TWICE 

00124A 

96 

08 

F 

0E8 

01 

ISW,X 1 08 * 

INDICATE ENABLED TWICE 

00124E 

47 

FO 

F 

1BE 

BC 

UNC,I WAIT 


001252 

91 

02 

B 

000 

ISEN TM 

01Rll), X•02 • 

CHECK CONTROL SWITCH FOR SNS ON UC 

001256 

47 

80 

F 

27 A 

BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

00125A 

91 

40 

F 

0E8 

TM 

ISW,X *40• 

SEE IF 1ST CSW IN. 

00125E 

47 

80 

F 

30C 

BC 

NONE,IBSN 

BR IF NONE. 

001262 

91 

02 

F 

78C 

TM 

IC SW1+4,X'02• 

CHECK FOR UNIT CHECK 

001266 

47 

10 

F 

27 A 

BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

00126A 

91 

20 

F 

0E8 

TM 

ISW,X'20» 

CHECK FOR SECOND CSW 

00126E 

47 

80 

F 

30C 

BC 

NONE,IBSN 

BR IF NONE. 

001272 

91 

02 

F 

794 

TM 

IC SW2+4,X *02• 

CHECK FOR UNIT CHECK 

001276 

47 

80 

F 

30C 

BC 

NONE,IBSN 

BR IF NONE. 

00127 A 

41 

80 

F 

750 

IDOSNS LA 

R8,1 SENSE 

LOAD SENSE COMMAND ADDR. 

00127E 

45 

70 

F 

5 DC 

BAL 

R7,ISTRT 

BR TO AUX START 1-0. 

001282 

91 

80 

F 

0E9 

TM 

ISW+1,X* 80* 

CHK FOR DATA RECEIVED 

001286 

47 

80 

F 

2 AO 

BC 

NONE,IFUR 

BR IF NOT. 

00128A 

96 

04 

F 

0E8 

01 

ISW,X»04* 

INDICATE SENSE RECIEVED 

00128E 

94 

7F 

F 

0E9 

NI 

ISW+1,X * 7F • 

TURN OFF DATA RECEIVED. 

001292 

D5 

00 

F 

82D B 005 

CLC 

IACSNS+5C1)*5(R11) 

COMPARE FOR EXPECTED SENSE 

001298 

47 

80 

F 

2A0 

BC 

EQ,IFUR 

BR IF EQUAL. 

00129C 

96 

01 

F 

0E8 

01 

ISW,X*01» 

INDICATE AN ERROR. 

0012AO 

91 

80 

F 

0E8 

IFUR TM 

ISW,X *80* 

SEE IF HANG UP CONDITION. 

0012A4 

47 

10 

F 

30C 

BC 

ALL,IBSN 

BR IF YES. 

0012A8 

91 

80 

B 

001 

TM 

1CR11),X»80» 

SEE IF DIAGNOSTIC CHK RD WANTED. 

0012AC 

47 

80 

F 

30C 

BC 

NONE,IBSN 

BR IF NOT. 

0012B0 

41 

80 

F 

758 

LA 

R8,DCRD 

PUT ADDR. OF CHK RD INTO 8. 

0012B4 

45 

70 

F 

5 DC 

BAL 

R7,ISTRT 

BR TO AUX, START S-0. 

0012B8 

91 

80 

F 

0E9 

TM 

ISW+1, X*80* 

TEST FOR DATA RECIVED 

0012BC 

47 

80 

F 

2C8 

BC 

NONE,I SEA 

BR IF NOT. 
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0012C0 

96 

40 

F 

0E9 



01 

ISW+1,X *40 * 

INDICATE 1ST CHK READ DATA RECEIVED. 

0012C4 

94 

7F 

F 

0E9 



NI 

ISW+1,X'7F« 

TURN OFF DATA RECEIVED SW. 

0012C8 

41 

80 

F 

758 



ISEA LA 

R8,DCRD 

PUT ADDR. OF CHK RD INTO 8. 

0012CC 

45 

70 

F 

5DC 



BAL 

R7,ISTRT 

BR TO AUX, START 1-0. 

0012D0 

91 

80 

F 

0E9 



TM 

ISW+1,X * 80• 

SEE IF DATA RECEIVED 

0012D4 

47 

80 

F 

2E0 



BC 

NONE,BTCD 

BR IF NOT. 

0012D8 

96 

20 

F 

0E9 



01 

ISW+1,X•20' 

INDIC 2ND CHK READ DATA RECEIVED. 

0012DC 

94 

7F 

F 

0E9 



NI 

I SW+1,X•7F 0 

TRN OFF GENERAL DATA REC. SW. 

0012E0 

45 

10 

F 

570 



BTCD BAL 

R1,ICDT 

BR TO CHK DATA. 

0012E4 

91 

60 

F 

0E9 



TM 

1SW+1,X•60 * 

SEE IF ANY OF THE CHK READS OK. 

0012E8 

47 

50 

F 

30C 



BC 

ANY,IBSN 

BR IF YES. 

0012EC 

96 

01 

F 

0E8 



01 

ISW,X*01* 

TURN ON ERROR SW. 

0012F0 

47 

FO 

F 

30C 



BC 

UNC,IBSN 

BR TO CONTINUE. 

0012F4 

91 

40 

F 

0E8 



IN0EX1 TM 

ISW,X'40* 


0012F8 

47 

10 

F 

35A 



BC 

ALL,INDER 

BR. IF CSW STORED 

0012FC 

47 

FO 

F 

35E 



BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

001300 

91 

20 

F 

0E8 



IN0EX2 TM 

ISW,X*20* 


001304 

47 

10 

F 

35 A 



BC 

ALL,INDER 

BR. IF CSW 2 STORED 

001308 

47 

FO 

F 

35E 



BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

00130C 

D5 

00 

F 

7C7 

B 

004 

IBSN CLC 

IACTCC+5C1),4(Rll) 

COMPARE FOR EXPECTED COND. CODE 

001312 

47 

60 

F 

35 A 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001316 

91 

08 

B 

000 



TM 

0( Rll)*X*08 * 


00131A 

47 

80 

F 

2F4 



BC 

NONE,IN0EX1 

BR. IF NO CSW EXPECTED 

00131E 

91 

40 

F 

0E8 



TM 

ISW,X *40* 


001322 

47 

80 

F 

35A 



BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

001326 

48 

8B 

0 

006 



LH 

R8,6(R11) 

LOAD CSW ADDR 

00132A 

40 

80 

F 

332 



STH 

R8,ICCSW1+4 

STORE IN COMPARE INSTR. 

00132E 

D5 

07 

F 

788 

F 

788 

ICCSW1 CLC 

ICSW1(8),ICSWl 

COMPARE FOR EXPECTED CSW 

001334 

47 

60 

F 

35 A 



BC 

UNEQ,INDER 

BR. IF UNEQUAL 

001338 

91 

04 

B 

000 



TM 

0(R11),X* 04• 


00133C 

47 

80 

F 

300 



BC 

NONE,IN0EX2 

BR. IF NO CSW 2 EXPECTED 

001340 

91 

20 

F 

0E8 



TM 

ISW,X•20' 


001344 

47 

80 

F 

35 A 



BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

001348 

41 

88 

0 

008 



LA 

R8,8CR8) 

UPDATE TO SECOND CSW 

00134C 

40 

80 

F 

354 



STH 

R8,ICCSW2+4 


001350 

D5 

07 

F 

790 

F 

790 

ICCSW2 CLC 

ICSW2I 8) ,1CSW2 

COMPARE FOR EXPECTED CSW 2 

001356 

47 

80 

F 

35E 



BC 

EQ,IDUNCK 

BR. IF EQUAL 

00135A 

96 

01 

F 

0E8 



INDER 01 

ISW,X*01» 

INDICATE AN ERROR 

00135E 

92 

64 

F 

39E 



IDUNCK MVI 

IFLAG1,X'64» 

SET UP FOR ERROR PRINTOUT 

001362 

92 

CO 

F 

53E 



MVI 

IFLAG2,X•CO * 


001366 

91 

01 

F 

0E8 



TM 

ISW,X‘01» 

CHECK FOR A DETECTED ERROR 

00136A 

47 

10 

F 

37E 



BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

00136E 

91 

01 

F 

004 



TM 

SNSW,X*01* 

CHECK SECTION SENSE SWITCH 7 

001372 

47 

80 

F 

55A 



BC 

NONE,ILEAVE 

BR. IF OFF 

001376 

92 

24 

F 

39E 



MVI 

IFLAG1,X # 24* 

SET UP FOR CORRECT PRINTOUT 

00137A 

92 

80 

F 

53E 



MVI 

IFLAG2,X•80' 


00137E 

95 

40 

F 

82D 



IOUTIT CLI 

IACSNS+5,X , 40* 

SEE IF INTERVENTION REQUIRED. 

001382 

47 

80 

F 

5C6 



BC 

EQ,RRM 

BR IF YES. 

001386 

91 

01 

F 

78C 



TM 

ICSW1+4,X *01 • 

SEE IF UNIT EXCEPTION. 

00138A 

47 

10 

F 

5C6 



BC 

ALL,RRM 

BR IF YES. 

00138E 

D2 

01 

F 

854 

B 

002 

MVC 

ITSTN0+5I2),2(R11) 

MOVE TEST NO. TO PRINT AREA. 

001394 

OA 

DD 





SVC 

X' DD * 

CONVERT TEST NUMBER 

001396 

000 2 





DC 

AL2(2I 


001398 

0854 





DC 

AL2(ITSTN0+5-SECN0) 


00139A 

0854 





DC 

AL2UTSTN0+5-SECN0) 


00139C 

OA 

DO 





SVC 

X * DO* 

PRINT TEST NUMBER 

00139E 

64 






IFLAG1 DC 

X * 64 * 


00139F 

09 






DC 

X* 09* 


0013AO 

F84F 





DC 

AL2(ITSTNO-SECNO+REG) 


0013A2 

41 

80 

0 

004 



LA 

R8,4 

ADJUST LINK ADDRESS FOR PRINTOUT 

0013A6 

IB 

B8 





SR 

R11,R8 


0013A8 

50 

BO 

F 

7E0 



ST 

Rll,lLINK+5 


0013AC 

OA 

DD 





SVC 

X • DD* 

CONVERT LINK ADDRESS 

0013AE 

0003 





DC 

AL2C3) 


0013BO 

07E1 





DC 

AL2(IL1NK+6-SECN0) 


0013B2 

07E0 





DC 

AL2IILINK+5-SECNO) 


0013B4 

OA 

DO 





SVC 

X*DO* 

PRINT LINK ADDRESS 

0013B6 

AO 






DC 

X'AO* 
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OOI3B7 

10 





DC 

X*10 8 


0013B8 

F7DB 





DC 

AL2IILINK-SECNO+REG1 


0013BA 

41 B8 

0 

004 



LA 

R11,4(RU) 


0013BE 

91 80 

B 

000 



TM 

0(R11),X®80* 


0013C2 

47 10 

F 

440 



BC 

ALL ,IQCSW 

BR. IF NO I—Q COMMAND ISSUED 

0013C6 

OA DO 





SVC 

X * DD * 

CONVERT 1-0 ADDRESS 

00I3C8 

0003 





DC 

AL2(3) 


0Q13CA 

095 C 





DC 

AL2{IOADR-SECNO) 


00I3CC 

07D1 





DC 

AL2(IOADDR+5-SEGNO) 


0013CE 

OA DO 





SVC 

X * DO * 

PRINT 1-0 ADDRESS 

0013D0 

AO 





DC 

X»AO* 


0013D1 

OF 





DC 

X 8 OF * 


0013D2 

F7CC 





DC 

AL2U OADDR-SECNO+REG) 


0013D4 

95 9C 

F 

178 



CLI 

ISSUE,X 8 9C 8 

COMPARE FOR SIO COMMAND 

0013D8 

47 60 

F 

42E 



BC 

UNEQ,ICCOUT 

BR. IF NOT 

0013DC 

50 AO 

F 

7F0 



ST 

RIO,ICAW+5 

STORE CCW ADDR. 

0013E0 

OA DD 





SVC 

X 8 DD * 

CONVERT CAW 

0013E2 

0003 





DC 

AL2S3) 


0013E4 

07F 1 





DC 

AL2f ICAVH6-SECN0) 


0013E6 

07F 0 





DC 

AL2UCAW+5-SECN0) 


0013E8 

OA DO 





SVC 

X * DO* 

PRINT CAW 

0013EA 

AO 





DC 

X * AO* 


0013E8 

OB 





DC 

X * OB ® 


0013EC 

F7EB 





DC 

AL2. (1GAW-SECM0+REG) 


0013EE 

02 02 

F 

7FE 

F 

7FA 

MVC 

IBLAH + K3) ,ICCW 

MOVE -CCW- TO MESSAGE 

0013F4 

92 16 

F 

429 



MV I 

ICNT»X 8 16* 

ADJUST COUNT 

0013F8 

D2 07 

F 

7 AO 

A 

000 

ICW0U? MVC 

W0RM81,0SR10) 

MOVE CCW TO WORK AREA 

0013F6 

45 90 

F 

412 



BAL 

R9,ICOUT 

BR. TO OUTPUT CCW 

001402 

91 CO 

A 

004 



TM 

4(R10),X*CG® 

CHECK FOR ANY CHAIN FLAGS 

001406 

47 80 

F 

42E 



BC 

NONE,ICCOUT 

BR. IF NONE 

00140A 

41 AA 

0 

008 



LA 

RIO,8IR101 

UPDATE TO NEXT CCW 

00140E 

47 FO 

F 

3F8 



BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

001412 

OA DD 





ICOUT SVC 

X 1 DD * 

CONVERT 

001414 

000 8 





DC 

AL2C8J 


001416 

07 AO 





DC 

AL2 C WORK-SECNO1 


001418 

07A0 





DC 

A12CW0RK-SECNQS 


00141A 

D2 07 

F 

802 

F 

7A0 ' 

MVC 

IBLAH48(8) 9 W0RK 

MOVE TO MESSAGE 

001420 

D2 07 

F 

BOB 

F 

im 

MVC 

IBLAH4-14181 , WORMS 


001426 

OA DO 





SVC 

X 8 DO * 

PRINT 

001428 

AO 





DC 

X * AO ® 


001429 

IA 





ICNT DC 

X 8 1A * 


00142A 

F7FD 





DC 

AL2UBLAH-SECNO+REG5 


00142C 

07 F9 





BCR 

UNC »R9 

RETURN VIA REG 9 

00142E 

D2 00 

F 

780 

B 

004 

ICCOUT MVC 

IEXPCC+5CL) ,4(Rll) 

MOVE EXP CC TO MESSAGE 

001434 

OA DO 





SVC 

X *D0* 

PRINT EXPECTED COND. CODE 

001436 

AO 





DC 

X 4 AO 1 


001437 

OA 





DC 

X * OA ® 


001438 

F 7 8 8 





DC 

AL2 i IEXPCC-5ECNQ+REGI 


00143A 

OA DO 





SVC 

X 1 DO * 

PRINT ACTUAL COND. CODE 

00143C 

AO 





DC 

X 8 AO* 


00143D 

OA 





DC 

X 8 OA * 


00143E 

F7C2 





DC 

AL2(IACTGC-SECNO+REG) 


001440 

D2 02 

F 

7FE 

F 

7 FT 

IOCSW MVC 

IBLAH+LO) ,1CSW 

MOVE -CSW- TO MESSAGE 

001446 

92 1A 

F 

429 



MV I 

ICNT,X 8 1A 8 

ADJUST COUNT 

00I44A 

91 08 

B 

000 



TM 

OiRll),X 8 08 8 


00144E 

47 80 

F 

472 



BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

001452 

D2 02 

F 

814 

F 

81A 

MVC 

IBLAH+23I3),IEXP 

MOVE -EXP- TO MESSAGE 

001458 

48 8B 

0 

006 



LH 

R8,6«R111 


00145C 

40 80 

F 

46C 



STH 

R0® ICHNG14-4 


001460 

41 88 

0 

008 



LA 

R8,8< R8) 


001464 

40 80 

F 

49C 



STH 

R8, ICHNG2+4 


001468 

D2 07 

F 

7 AO 

F 

7 AO 

ICHNG1 MVC 

WORM 8) »WORK 

MOVE EXPECTED CSW TO WORK AREA 

00146E 

45 90 

F 

412 



BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

001472 

91 40 

F 

OEB 



1DIDI TM 

ISW,X # 40 e 


001476 

47 80 

F 

48A 



BC 

NONE,IMORST 

BR. IF NO CSW STORED 

00147 A 

D2 02 

F 

814 

F 

81? 

MVC 

IBLAH+23131,IACT 

MOVE -ACT-* TO MESSAGE 

001400 

02 07 

F 

7 AO 

F 

788 

MVC 

WORK!8),ICSW1 

MOVE ACTUAL CSW TO WORK AREA 

001486 

45 90 

F 

412 



BAL. 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 
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00148A 

91 04 

B 

000 



IMORST TM 

0(R11),X 8 04» 


00148E 

47 80 

F 

4A2 



BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

001492 

D2 02 

F 

814 

F 

81A 

MVC 

IBLAH+23(3),IEXP 

MOVE -EXP- TO MESSAGE 

001498 

D2 07 

F 

7 AO 

F 

7 AO 

1CHNG2 MVC 

WORM 8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

00149E 

45 90 

F 

4U 



BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

0014A2 

91 20 

F 

0E8 



IDID TM 

ISW,X 8 20 8 


0014A6 

47 80 

F 

4BA 



BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

0014AA 

D2 02 

F 

814 

F 

817 

MVC 

IBLAH+2301 »IACT 

MOVE -ACT- TO MESSAGE 

0014B0 

D2 07 

F 

7 AO 

F 

790 

MVC 

WORM 8) ,ICSW2 

MOVE CSW TO WORK AREA 

0014B6 

45 90 

F 

412 



BAL 

R9,ICOUT 


0014BA 

D2 00 

F 

822 

B 

005 

IPAS MVC 

IEXSNS+5U) ,5(R11) 

MOVE EXP SENSE TO MESSAGE 

0014C0 

91 04 

F 

0E8 



TM 

ISW,X 8 04 * 


0014C4 

47 80 

F 

4E4 



BC 

NONE,IPASS 

BR. IF NO SENSE DATA RECIEVED 

0014C8 

OA DD 





SVC 

X 8 DD 8 

CONVERT EXPECTED SENSE 

0014CA 

0001 





DC 

AL211) 


0014CC 

0822 





DC 

AL2(IEXSNS+5-SECN0) 


0014CE 

0822 





DC 

AL2(IEXSNS+5-SECN0) 


0014DO 

OA DO 





SVC 

X * DO 8 

PRINT EXPECTED SENSE 

0014D2 

AO 





DC 

X *A0 8 


0014D3 

OB 





DC 

X 8 OB 8 


0014D4 

F81D 





DC 

AL2(IEXSNS-SECNO+REG) 


0014D6 

OA DD 





SVC 

X 8 DD 8 


0014D8 

0001 





DC 

AL2(1) 


0014DA 

082D 





DC 

AL2(IACSNS+5-SECN0) 


0014DC 

082 D 





DC 

AL2CIACSNS+5-SECN0) 


0014DE 

OA DO 





SVC 

X 8 DO 8 

PRINT ACTUAL SENSE DATA 

0014E0 

AO 





DC 

X 8 AO 8 


0014El 

OB 





DC 

X 8 OB 8 


0014E2 

F828 





DC 

AL2(IACSNS-SECNO+REG) 


0014E4 

95 30 

E 

181 



IPASS CLI 

SYSM0D(R14),X 8 30 8 

CHECK FOR MOD 30. 

0014E8 

47 60 

F 

518 



BC 

UNEQ,ICD 

BR. IF NOT 

0014EC 

D2 OB 

F 

7 AO 

E 

080 

ILOGED MVC 

WORM 12) ,L0G0UT(R14) 

MOVE LOG OUT TO WORK AREA 

0014F2 

OA DD 





SVC 

X* DD 8 

CONVERT 

0014F4 

OOOC 





DC 

AL2(i2) 


0014F6 

07A0 





DC 

AL2(WORK-SECNO) 


0014F8 

07A0 





DC 

AL2(WORK-SECNO) 


0014FA 

D2 01 

F 

838 

F 

7A0 

MVC 

I0L0G+5I2),WORK 

MOVE LOG OUT TO MESSAGE 

001500 

D2 05 

F 

83B 

F 

7A2 

MVC 

I0L0G+8I6),W0RK+2 


001506 

D2 05 

F 

842 

F 

7AA 

MVC 

I0L0G+15C6)tWQRK+10 


00150C 

D2 05 

F 

849 

F 

7B2 

MVC 

I0L0G+22I6),WDRK+18 


001512 

OA DO 





SVC 

X 8 DO 8 

PRINT LOG OUT 

001514 

AO 





DC 

X 8 AO 8 


001515 

1C 





DC 

X 8 1C 8 


001516 

F833 





DC 

AL2(IOLOG-SECNO+REG) 


001518 

91 02 

F 

0E8 



ICD TM 

ISW»X 8 02 8 

SEE IF UIO. 

00151C 

47 80 

F 

528 



BC 

NONE,IBCD 

BR IF NO 

001520 

94 FD 

F 

0E8 



NI 

ISW,X 8 FD 8 

RESET UIO SWITCH 

001524 

47 FO 

F 

1BE 



BC 

UNC,IWAIT 

BR. UNCONDITIONAL 

001528 

91 80 

F 

0E8 



IBCD TM 

ISW,X 8 80 8 

SEE IF HANG UP CONDITION. 

00152C 

47 10 

F 

53C 



BC 

ALL,IOPOUT 

BR IF YES. 

001530 

91 80 

B 

001 



TM 

1(Rll),X* 80* 

SEE IF DIAG CHK READ DONE. 

001534 

47 80 

F 

53C 



BC 

NONE,IOPOUT 

BR. IF NOT UIO 

001538 

45 10 

F 

570 



BAL 

Rl*ICDT 

BR TO INDICATE ANY DATA ERRORS. 

00153C 

OA DO 





IOPOUT SVC 

X 8 DO 8 

PRINT LOOP OPTIONS 

00153E 

CO 





IFLAG2 DC 

X 8 C0 8 


00153F 

36 





DC 

X 8 36 8 


001540 

F85 8 





DC 

AL2(I0PT1-SECN0+REG) 


001542 

OA DO 





SVC 

X 8 DO 8 

SPACE A LINE 

001544 

AO 





DC 

X 8 AO 8 


001545 

01 





DC 

X 8 01 8 


001546 

F7DB 





DC 

AL2(ILINK-SECNO+REG) 


001548 

50 AD 

0 

048 



ST 

RlOyHCAWIR13) 

STORE CAW 

00154C 

91 CO 

F 

004 



TM 

SNSW*X 8 C0 8 

CHECK SECTION SENSE SWITCH 0 AND 1 

001550 

47 50 

F 

11A 



BC 

ANY,1TRY1 

BR. IF ANY ON 

001554 

91 00 

F 

OEB 



TM 

ISW,X 8 80* 


001558 

07 15 





BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

00155A 

91 08 

B 

000 



ILEAVE TM 

O(Rll),X*08* 


00155E 

47 80 

F 

566 



BC 

NONE,!UP 

BR. IF NO CSW EXPECTED 
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001562 

41 

BB 

0 

002 


LA 

R11,2(R11) 

UPDATE 

LINK ADDRESS FOR RETURN 

001566 

41 

BB 

0 

006 

IUP 

LA 

R 11v 6(R11) 



00156A 

98 

09 

F 

760 


LM 

R0*R9 »I SAVE 

RESTORE 

WORKING REGS. 

00156E 

07 

FB 




BCR 

UNC , Rll 

RETURN 

VIA REG 11 


* * * * * * * * * * * * * ** * * * * * * 4c * * * * * * * * * * * * * * * * * * * * * ♦ * * * * * * * * * * * * * * * * * ** * * * * * * * * 

* DATA COMPARE ROUTINE 

* 4c * * * * * * * * * * * * * * * * * * * * ** * ** * * * * * * * * * * * ♦ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 


001570 

41 

20 

0 

001 

ICDT 

LA 

R2,l 

PUT A 1 INTO REG 2. 

001574 

41 

30 

F 

AAO 


LA 

R3* EXPBUF 

PICK UP ADDR OF EXP DATA. 

001578 

D2 

00 

F 

AF2 3 000 

IT80 

MVC 

ICODAT(1),0(R3) 

SAVE THE BYTE FOR COMPARE. 

00157E 

41 

42 

F 

A4F 


LA 

R4,CHKBUF-1(R2> 

PICK UP ADDR OF CHK DATA BYTE 

001582 

41 

72 

F 

9FF 


LA 

R7,BUFFER-1(R2> 

PICK UP ADDR OF DATA BYTE. 

001586 

D5 

00 

7 

000 F AF2 


CLC 

0(1*R7),ICODAT 

SEE IF DATA BYTE AS EXPECTED. 

00158C 

47 

60 

F 

5B6 


BC 

UNEQ,ISIP 

BR IF NOT EQUAL. 

00X590 

91 

60 

F 

0E9 

ITCO 

TM 

ISW+1,X * 60 * 

SEE IF ANY CHK READS DONE. 

001594 

47 

80 

F 

5A0 


BC 

NONE,IRTU 

BR IF NO. 

001598 

91 

FF 

4 

000 


TM 

0(R4),X * FF• 

SEE IF ANY CHK BITS ON. 

00159C 

47 

50 

F 

5B6 


BC 

ANY,ISIP 

BR IF YES. 

0015AO 

41 

33 

0 

001 

IRTU 

LA 

R3,1(R3) 

ADD 1 TO EXP DATA BYTE. 

0015A4 

41 

22 

0 

001 


LA 

R2,1(R2) 

ADD 1 TO INDEX VALUE. 

0015A8 

55 

20 

F 

9F8 


CL 

R2,ATE1 

SEE IF END OF COMPARE 

0015AC 

47 

60 

F 

578 


BC 

UNEQ,IT80 

BR IF NO. 

0015B0 

96 

02 

F 

0E9 

1SSW 

01 

I SW+1* X*02 • 

TURN ON 1ST PASS SW. 

0015B4 

07 

FI 




BCR 

UNC *R1 

RETURN. 

0015B6 

91 

02 

F 

0E9 

ISIP 

TM 

I SW+1,X # 02 * 

SEE IF 1ST PASS SW ON. 

0015BA 

47 

10 

F 

61E 


BC 

ALL,IGOP 

BR IF YES 

0015BE 

96 

01 

F 

0E8 


01 

ISW,X*01* 

INDICATE AN ERROR 

00I5C2 

47 

FO 

F 

5B0 


BC 

UNC,ISSW 

BR TO EXIT ROUTINE 


♦ * * * * * * * * « * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * 
♦ INTERVENTION REQUIRED ROUTINE 

*********************************************************************** 


0015C6 

OA 

DO 



RRM 

SVC 

X* DO* 

PRINT -MAKE DEVICE READY- 

0015C8 

2410 




DC 

X * 2410• 


0015CA 

F92 6 




DC 

AL2(MDR-SECNO+REG) 


0015CC 

OA 

DA 




SVC 

X 1 DA • 

HALT 

0015CE 

9D 

00 

C 

000 


TIO 

01R12) 

TEST 1-0 

0015D2 

OA 

DO 




SVC 

X * DO • 

PRINT A BLANK. 

0015D4 

8001 




DC 

X*8001* 


00I5D6 

F92 6 




DC 

AL2(MDR-SECN0+REGJ 


0015D8 

47 

FO 

F 

OFA 


BC 

UNC,C0NP 

BR TO CONTINUE. 






*********************************************************************** 






* 

AUXILIARY START 1-0 ROUTINE 







* * * * 4 * * * * * * * * * * * * * * * * * ♦ * * * * * * * * * * * * * * * ♦ * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * 4c 

0015DC 

58 

9E 

0 

198 

ISTRT 

L 

R9,WTf R14) 

LOAD DM WAIT FACTOR. 

0015E0 

88 

90 

0 

002 


SRL 

R9,2 

CUT IT DOWN TO 2.5 SECS. 

0015E4 

50 

8D 

0 

048 


ST 

R8,HCAWt R13) 

STORE IN CAW 

0015E8 

9C 

00 

C 

000 


SIO 

0(R12) 

START 1-0 

0015EC 

47 

70 

F 

60C 


BC 

NCCO,IBACK 


0015F0 

9D 

00 

C 

000 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 

0015F4 

47 

40 

F 

5FE 


BC 

CC1,1LOKE 

BR. IF CSW STORED 

0015F8 

46 

90 

F 

5F0 

IT1C 

BCT 

R9,ITIOLP 


0015FC 

07 

F7 




BCR 

UNC,R7 

RETURN. 

0015FE 

91 

04 

D 

044 

1L0KE 

TM 

HCSW+4(R13),X•04• 

CHECK FOR DEVICE END. 

001602 

47 

80 

F 

5F8 


BC 

NONE,I TIC 

BR IF NOT IN YET. 

001606 

96 

80 

F 

0E9 


01 

ISW+1» X•80• 

INDICATE THE DATA RECEIVED. 

00160A 

07 

F7 




BCR 

UNC »R7 

RETURN. 

00160C 

91 

01 

F 

78C 

I BACK 

TM 

ICSW1+4,X *01 8 

SEE IF UNIT EXCEPTION. 

001610 

47 

10 

F 

5C6 


BC 

ALL,RRM 

BR IF YES. 

001614 

95 

40 

F 

82D 


CLI 

IACSNS+5*X*40* 

SEE IF INTERVENTION REQUIRED. 

001618 

47 

80 

F 

5C6 


BC 

EQ,RRM 

BR IF YES. 

00161G 

07 

F7 




BCR 

UNC,R7 

RETURN. 






*********************************************************************** 






* 

DATA 

PRINTOUT ROUTINE 







*********************************************************************** 

0016IE 

91 

60 

F 

0E9 

IGOP 

TM 

ISW+1tX*60* 

SEE IF AT LEAST ONE CHK READ OK. 

001622 

47 

50 

F 

63C 


BC 

ANY,COPT 

BR IF YES. 

001626 

91 

80 

F 

AF3 


TM 

CRSW,X*80* 

SEE IF MSG ALREADY PRINTED. 

00162A 

47 

10 

F 

692 


BC 

ALLvNTC 

BR IF YES. 
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2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
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00162E 

OA DO 


SVC 

X * DO * 

001630 

8026 


DC 

X * 8026 * 

001632 

F93 6 


DC 

AL2(TCRA-SECNO+REG) 

001634 

96 80 F AF3 


01 

CRSW,X * 80* 

001638 

47 FO F 692 


BC 

UNC,NTC 

00163C 

02 24 F 8F5 F 8F4 

COPT 

MVC 

GOODY+1(37),GOODY 

001642 

92 FO F 90A 


MV I 

GOODY+22,C * 0* 

001646 

91 10 4 000 


TM 

0{R4),X*10* 

00164A 

47 80 F 652 


BC 

NONE,NXU 

00164E 

92 FI F 90A 


MVI 

GOODY+22,C*l* 

001652 

92 FO F 90D 

NXU 

MVI 

GOODY+25,C * 0 * 

001656 

91 08 4 000 


TM 

0(R4),X * 08 * 

00165A 

47 80 F 662 


BC 

NONE,NXL 

00165E 

92 FI F 90D 


MVI 

GOODY+25,C*l* 

001662 

92 FO F 910 

NXL 

MVI 

G00DY+28,C * 0* 

001666 

91 04 4 000 


TM 

0(R4),X*04* 

00166A 

47 80 F 672 


BC 

NONE,NBP 

00166E 

92 FI F 910 


MVI 

GQODY+28,C * 1 * 

001672 

92 FO F 914 

NBP 

MVI 

GOODY+32*C *0* 

001676 

91 01 4 000 


TM 

0(R4>,X*01* 

00167 A 

47 80 F 682 


BC 

NONE,NAC 

00167E 

92 FI F 914 


MVI 

GOODY+32 tC * 1 * 

001682 

92 FO F 919 

NAC 

MVI 

G00DY+37,C * 0 * 

001686 

91 02 4 000 


TM 

0(R4),X* 02 * 

00168 A 

47 80 F 692 


BC 

NONE,NTC 

00168E 

92 FI F 919 


MVI 

GOODY+37,C *1 * 

001692 

91 80 F AF1 

NTC 

TM 

HDSW »X ® 80'* 

001696 

47 10 F 6BC 


BC 

ALL,IPDA 

00169A 

OA DO 


SVC 

X * DO * 

00169C 

A009 


DC 

X*A009* 

00169E 

F88E 


DC 

AL2(HD1-SECN0+REG) 

0016A0 

OA DO 


SVC 

X * DO * 

0016A2 

A014 


DC 

X * A014* 

0016A4 

F897 


DC 

AL2(HD1A-SECN0+REG) 

0016A6 

OA DO 


SVC 

X * DO* 

0016A8 

AOO 1 


DC 

X * A001* 

0016AA 

F8AB 


DC 

AL2(BIG-SECNO+REG) 

0016AC 

OA DO 


SVC 

X * DO* 

0016AE 

A02 2 


DC 

X * A022 * 

0016B0 

F8AB 


DC 

AL2 (BIG-SECNO+REG 31 

0016B2 

OA DO 


SVC 

X * DO • 

0016B4 

A02 7 


DC 

X*A027* 

0016B6 

F8CD 


DC 

AL2CBEAUTY-SECNO+REG5 

0016B8 

96 80 F AF1 


01 

HDSW,X * 80 * 

0016BC 

18 42 

IPDA 

LR 

R4,R2 

0016BE 

4E 40 F 798 


CVD 

R4,DBWD 

0016C2 

F3 11 F 8F6 F 79E 


UNPK 

GOODY+2(2),DBWD+6(2) 

0016C8 

96 FO F 8F7 


01 

G00DY+3,X*F0* 

0016CC 

D2 00 F 798 7 000 


MVC 

DBWD(l),0(R7) 

0016D2 

OA DD 


SVC 

X * DD * 

0016D4 

0001 


DC 

AL2(Oil 

0016D6 

0798 


DC 

AL2(DBWD-SECN0) 

0016D8 

0906 


DC 

AL2(G00DY+18-SECN0) 

0016DA 

OA DD 


SVC 

X * DD * 

0016DC 

0001 


DC 

AL2C01) 

0016DE 

0AF2 


DC 

AL2(ICQDAT-SECNO) 

0016E0 

0902 


DC 

AL2(G00DY+14-SECN0) 

0016E2 

90 04 F C20 


STM 

R0,R4,TWENTY 

0016E6 

IB 11 


SR 

R1»R1 

0016E8 

IB 22 


SR 

R2,R2 

0016EA 

IB 33 


SR 

R3,R3 

0016EC 

41 40 0 002 


LA 

R4,2 

0016F0 

43 30 F AF2 


IC 

R3,ICODAT 

0016F4 

18 13 


LR 

R1»R3 

0016F6 

ID 24 


DR 

R2,R4 

0016F8 

1A 31 


AR 

R3,R1 

0016FA 

43 13 F C4C 


IC 

R1,HOLES!R31 


0016FE 89 10 0 008 


SLL Rl,8 


PRINT BOTH CHK READS FAILED* 


TURN ON SWITCH FOR MSG. 

GO TO MSG. 

BLANK DATA PRINT AREA. 

MOVE ZERO INTO PRINT AREA. 

SEE IF XU ON IN DIAG CHK READ BYTE. 
BR IF NOT ON. 

MOVE ONE INTO PRINT AREA. 

PUT ZERO INTO PRINT AREA. 

SEE IF XL ON IN DIAG CHK DATA. 

BR IF NOT ON. 

MOVE ONE INTO PRINTOUT 
MOVE ZERO INTO PRINTOUT. 

SEE IF BUFFER PARITY ON IN CHK DATA. 
BR IF NOT ON. 

MOVE A ONE INTO PRINTOUT. 

MOVE A ZERO INTO PRINTOUT. 

SEE IF ADDR CHK IN CHK DATA 
BR IF NOT. 

MOVE A ONE INTO THE PRINTOUT. 

MOVE A ZERO INTO PRINTOUT. 

SEE IF TRANSLATE CHK 
BR IF NO. 

MOVE A ONE INTO PRINTOUT. 

SEE IF HEADING PRINTED. 

BR IF YES. 

PRINT 1ST HDR* 


PRINT CARD LOCATION IN READER. 


PRINT A BLANK. 


PRINT HEADING 3. 


PRINT HEADING 4. 


TURN ON THE HEADING SW. 

PUT THE COLUMN NO. INTO REG 4. 
CONV IT TO DECIMAL. 

PUT IT INTO PRINT AREA. 

COVER SIGN UP FOR PRINTING. 

MOVE ACTUAL DATA TO CONVERT AREA. 
CONVERT FROM HEX TO BINARY. 

1 BYTE. 

FROM HERE. 

TO HERE 

CONVERT FROM HEX TO BINARY. 

1 BYTE. 

FROM HERE 
TO HERE 

SAVE REGISTERS 
ZERO REG 1 
ZERO REG 2. 

ZERO REG 3. 

LOAD DIVISOR 

PICK UP HEX CHARACTER 

SAVE HEX CHARACTER 

DIVIDE HEX CHARACTER BY 2 

ADD DIVIDEND TO CHARACTER 

PICK UP FIRST BYTE 

SHIFT 
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001702 

43 

13 

F 

C4D 


IC 

R1,HGIE$+HR3$ 

PICK UP SECOND BYTE 

001706 

41 

30 

0 

OFF 


LA 

R3f255 

LOAD MASK 

0017 0 A 

14 

23 




NR 

R2,R3 

AND WITH REMAINDER 

00170C 

47 

50 

F 

714 


BC 

ANY,$+8 

BR. IF THERE WAS A REMAINDER 

001710 

88 

10 

0 

004 


SRL 

Rl»4 

SHIFT OFF UNUSED 4 BITS 

001714 

50 

10 

F 

798 


ST 

RltDBWD 

SAVE REG 1. 

001718 

41 

40 

0 

006 


LA 

R4 * 6 

SET UP FOR 6 POSSIBLE PUNCHES 

00171C 

41 

30 

0 

ooc 


LA 

R 3 , 12 

SET UP TO CHECK 12 PUNCHES 

001720 

41 

00 

0 

001 


LA 

RQ,1 

LOAD MASK 

001724 

43 

23 

F 

919 

PIK 

IC 

R2y PUNCHS~1<R3) 

PICK UP PRINTABLE CHARACTER 

001728 

58 

10 

F 

798 


L 

RltDBWD 

RESTORE REG 1. 

00172C 

14 

10 




NR 

R1»R0 

TEST FOR PUNCH 

00172E 

47 

80 

F 

73A 


BC 

NONE,NXT 

BR. IF NONE 

001732 

42 

24 

F 

8F9 


STC 

R2,GOQDY+5(R4) 

STORE PRINTABLE CHARACTER 

001736 

46 

40 

F 

73A 


BCT 

R4,*+4 

DECREMENT PRINT AREA INDEX 

00173A 

89 

00 

0 

001 

NXT 

SUL 

ROf 1 

SHIFT MASK FOR NEXT BIT 

00173E 

46 

30 

F 

724 


BCT 

R3* PIK 

BR. UNTIL 12 CHECKED 

001742 

98 

04 

F 

C20 


LM 

R0»R4,TWENTY 

RESTORE REGISTERS 

001746 

OA 

DO 



PROD 

SVC 

X ®D0® 

PRINT THE DATA. 

001748 

8026 




DC 

X * 8026 ® 


00174A 

F8F4 




DC 

AL2 C GOODY-SECNO-fr REG 1 


00174C 

47 

FO 

F 

5A0 


BC 

UNC yIRTU 

RETURN TO COMPARE RTN. 












* 

1-0 

HANDLER WORK AREA. 



001750 

04 00182D GOOD 0001 

I SENSE 

CCH 

X®04® ® 

IACSNS+5,X®0( 

001758 

C6 001A50 2000 0050 

DCRD 

CCW 

X®C6*,CHKBUF,X®20* 

001760 

00000000 

ISAVE 

DC 

10F ®0* 


001764 

00000000 





001768 

00000000 





00176C 

00000000 





001770 

00000000 





001774 

00000000 





001778 

00000000 





00177C 

00000000 





001780 

00000000 





001784 

00000000 





001788 

0000000000000000 

ICSW1 

DC 

XL8*0® 


001790 

0000000000000000 

ICSW2 

DC 

XL8*0® 


001798 

+00.00000000000000 

DBWO 

DC 

D®0* 


0017AO 


WORK 

DS 

24C 


001788 

40C3C34040E740C5E? 

IEXPCC 

DC 

C« CC 

X EXP® 

0017 C1 

D7 





0017C2 

40C3C34040E740CIC3 

IACTCC 

DC 

C* CC 

X ACT® 

0017CB 

E3 





0017CC 

40C1C4D940E7E7E7E7 

IOADDR 

DC 

C® ADR 

XXXXXX SIC® 

0017D5 

E7E 740E2C9D6 





0017DB 

00 


DC 

x«oo® 


0017DC 



CNOP 

0,4 



0017DB 


ORG 

*-l 


0017DB 

40C1C4D940E7E7E7E7 

IL INK 

DC 

C® ADR 

XXXXXX LINK 

0017E4 

E7E 740D3C9D5D2 





0017EB 

00 


DC 

X*00® 


0017EC 



CNOP 

0,4 



00I7EB 


ORG 



0017 E B 

40C3C1E640E7E7ETE7 

ICAW 

DC 

C® CAW 

XXXXXX • 

0017F4 

E7L740 





0017F7 

C3E2E6 

ICSW 

DC 

C®CSW® 


0017FA 

C3C3E6 

ICCW 

DC 

c®ccw* 


0017FD 

40C3E2E640E7E7E7E7 

IBLAH 

DC 

c® csw 

XXXXXXXX XX' 

001806 

E7E7E7E740E7E7 





001800 

E7E7E7E7E7E740C5E7 


DC 

C'XXXXXX EXP® 

001816 

07 





001817 

C1C3E3 

I ACT 

DC 

C ®ACT® 


00181A 

C5E7D7 

IEXP 

DC 

C*EXP® 


0018 ID 

40E2D5E240E7E740C5 

iexsns 

DC 

c® SNS 

XX EXP * 

001826 

E7D? 





001828 

40E205E240E7E740C1 

IACSNS 

DC 

C» SNS 

XX ACT® 


t******^************************************************************** 
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001831 

C3E3 





001833 

40D3D6C740E7E740E7 

IOLOG 

DC 

C* LOG XX XXXXXX X® 


00183G 

E7E7E7 E7E740E7 





001843 

E7E7E7E7E740E7E7E7 


DC 

C»XXXXX XXXXXX® 


00184C 

E7E7E7 





00184F 

40E 3E2E340E7E7E7E7 

ITSTNO 

DC 

C® TST XXXX® 


001858 

40E2C5E340E2E24GF0 

I0PT1 

DC 

C® SET SS 0 ON FOR® 


001861 

40D6D540C6D6D9 





001868 

40D3D6D6D740D6D540 


DC 

C® LOOP ON SIO, SS® 


001871 

E2C9D66B40E2E2 





001878 

40F140D6D540C6D6D9 


DC 

C 1 ON FOR TIO SI® 


001881 

40E3C9D640E2C9 





001888 

D640D3D6D6D7 


DC 

C®0 LOOP® 


00188E 

40D9C5C1C440C5D9D9 

HD1 

DC 

C® READ ERR® 


001897 

40C3C1D9C440C9D540 

HD1A 

DC 

C® CARD IN • 


0018 AO 

D7D9C5E2E3D2D940E2 


DC 

C'PRESTKR STA® 


0018A9 

E3C 1 





0018AB 

4040404040C5E7D7C5 

BIG 

DC 

C® EXPECTED SH® 


0018B4 

C3E3C5C440E2C8 





0018BB 

C44040404040404040 


DC 

C ®D B® 


0018C4 

404040404040C2 





0018CB 

E4C6 


DC 

C * UF® 


0018CD 

40C3D6D34007E4D5C3 

BEAUTY 

DC 

C® COL PUNCHES RD® 


0018D6 

C8C 5E24040D9C4 





0018DD 

4040D9C440E7E440E7 


DC 

C* RD XU XL PAR A® 


0018E6 

D340D7C1D940C1 





0018ED 

C4D940E3D9C1D5 


DC 

C * DR TRAN® 


0018F4 

404040404040404040 

GOODY 

DC 

C® • 


0018FD 

40404040404040 





001904 

404040404040404040 


DC 

C® • 


00190D 

40404040404040 





001914 

404040404040 


DC 

C« • 


00191A 

E3C5F0F1F2F3F4F5F6 

PUNCHS 

DC 

C * TE0123456789 * 


001923 

F7F8F9 





001926 

40D4C1D2C540C4C5E5 

MDR 

DC 

C* MAKE DEVICE RDY® 


00192F 

C9C3C540D9C4E8 





001936 

40F240C4C9C1C740C3 

TCRA 

DC 

C® 2 DIAG CHK RDS ® 


00193F 

C8D240D9C4E240 





001946 

C1E3E3C5D4D7E3C5C4 


DC 

C®ATTEMPTED -BOTH * 


00194F 

4060C2D6E3C840 





001956 

C6C1C9D3C5C4 


DC 

C ®FAILED® 


00195C 

001178 

IOADR 

DC 

AL3IISSUE) 


00195F 

FE 

MSK1 

DC 

X * FE • 


001960 

01 

MSK2 

DC 

X®01® 


001961 

00 

RTSV 

DC 

X®00* 

SAVE RT NO. FOR HANGUP. 

001962 

40E4C9D640C6D9D6D4 „ 

I UN EX 

DC 

C® UIO FROM DEVICE® 


00196B 

40C4C5E5C9C3C5 





001972 

40E7E7E7E7 


DC 

C® XXXX* 




it********************************************************************** 



* 


INITIALIZE ROUTINE 




001978 

IB DD 

INIT 

SR 

R13,R13 

ZERO REG 13 

00197A 

91 40 E 196 


TM 

406(R14),X®40® 

CHECK FOR FORCED PROBLEM STATE 

00197E 

47 80 F 984 


BC 

NONE,NITWIT 

BR. IF NOT 

001982 

18 DF 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

001984 

58 CO F OEO 

NITWIT 

L 

RI2,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

001988 

54 CO F 9FC 


N 

R12,M0D50 

SAVE ONLY THE PUNCH ADDR. 

00198C 

50 CO F 9F0 


ST 

R12,PCH 

SAVE IT 

001990 

58 CO F 0E4 


L 

R12,UNIT2 

PICK UP THE READER UNIT TABLE. 

001994 

54 CO F 9FC 


N 

R12 *M0D50 

SAVE ONLY THE READER ADDR. 

001998 

50 CO F 9EC 


ST 

R12,RDR 

SAVE IT 

00199C 

92 00 F AFO 


MVI 

LDSW,X*00® 

ZERO LOADER INDICATOR. 

0019A0 

IB 66 


SR 

R6,R6 

ZERO REG 6. 

0019A2 

43 6E 0 IB9 


IC 

R6,0MI0L(R14I 

PUT LENGTH OF DMIO TABLE INTO 6. 

0019A6 

4A 6E 0 18C 


AH 

R6,OMPTR f R14) 

ADD OFFSET ADDRESS TO LENGTH. 

0019AA 

1A 6E 


AR 

R6.R14 

ADD BASE REG VALUE. 

0019AC ' 

06 60 


BCTR 

R6,0 

SUBTRACT 2 TO GET 

0019AE 

06 60 


„BCTR 

R6*0 

TO LOADER ADDR. 
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0019B0 

0019B4 

0019B8 

0019BC 

0019C0 

0019C4 

0019C8 

0019CE 

0019D0 

OOI9D6 

0019D8 

0019D9 

00I9DA 

0019DC 

0019E0 

0019E4 

0019E8 

0019EC 


49 C6 0 000 
47 60 F 9BC 
96 80 F AFO 

91 80 F 0E8 
47 10 F 9 DO 

92 40 F AOO 

D2 9E F A01 F AOO 
07 F4 

D2 00 F 003 F 961 
OA DO 
64 
1A 

FAF6 

96 01 F 0E8 
45 50 F 27A 
92 00 F 0E8 
47 FO F 9BC 


CH 

BC 

01 

BLOOP TM 
BC 
MVI 
MVC 
BCR 

HANGUP MVC 
SVC 
DC 
DC 
DC 
01 
BAL 
MVI 
BC 

CNOP 


K12tOlR6| 

UNEQ*BLOOP 

LDSW,X®80® 

ISW,X'80® 

ALL y HANGUP 
BUFFER,C' • 

BUFFER+1(159),BUFFER 
UNC,R4 

SECN0+3I1),RTSV 
X • DO* 

X * 64* 

X' 1A • 

AL2(HUNG-SECNO+REG) 
ISW,X®01® 

R5,IDOSNS 
ISW,X®00® 

UNC,BLOOP 
0,4 


SEE IF TEST DEVICE IS LOADER, 
BR IF NOT. 

TURN ON LOADER SW. 

CHECK FOR HANG UP 
BR. IF DETECTED 
CLEAR DATA AREA. 

CLEAR DATA AREA. 

RETURN VIA REG 4 
RESTORE RT NO. 

PRINT 

-PREVIOUS HANGUP DETECTED- 


TURN ON ERROR SWITCH. 

BR. TO OUTPUT AVAILABLE INFO 
RESET HANGUP SWITCH 


0019EC 
0019F0 
0019F4 
0019F8 
0019FC 
001AOO 
001A50 
OOIAAO 
001AFO 
001AF1 
001AF2 
001AF3 
001AF4 
001AF5 
001AF6 
001AFF 
001B06 
001B0F 
001BIO 


001 BIO 
001B11 
001B14 
001B18 
001B1C 
001B20 
001B22 
001B24 
001B26 
001B28 
001B2C 
001B2E 
001B30 
001B32 
00IB36 
001B3A 
001B3C 
001B40 
001B44 
001B48 
001B4A 
001B4C 
001B4E 
001B50 
001B52 


00000000 

RDR 

DC 

00000000 

PCH 

DC 

0000001B 

TW7 

DC 

00000051 

ATE 1 

DC 

00003FFF 

M0D50 

DC 


BUFFER 

DS 


CHKBUF 

DS 


EXPBUF 

DS 

00 

LDSW 

DC 

00 

HDSW 

DC 

00 

ICODAT 

DC 

00 

CR SW 

DC 

00 

SFLE 

DC 

00 

GENDAT 

DC 

40D7D9C5E5C9D6E4E2 

40C8C1D5C740E4 

HUNG 

DC 

D740C4C5E3C5C3E3C5 


DC 


AUXILIARY WORK AREA. 


F * 0 * 

F * 0 • 

F 1 27® 

F • 81 • 

X•00003FFF * 

80C 
80C 
80C 
X • 00® 

X'OO® 

X®00® 

X*00® 

X®00® 

X®00® 

C® PREVIOUS HANG U® 


DC C*P DETECTED® 


********************* 


CNOP 0,4 

* ROUTINE 02 - READ 39 CARDS PUNCHED FROM SECTION F822 ROUTINE 01. 


02 

OOFFFF 
45 40 F 
91 40 F 
47 10 F 
OA DO 
2431 
FF4F 
OA DA 
9D 00 C 
OA DO 
8001 
FF4F 
91 40 F 
47 10 F 
OA D6 
58 CO F 
91 80 F 
47 80 F 
OA DO 
2422 
FDE4 
OA DO 
A03C 
FE06 


R0UT02 DC 
DC 


X' 02 ' 

X•OOFFFF• 

R4,IN IT 
SNSW+1,X®40® 

ALL,EXEC 
X * DO * 

X'2431' 

AL2(IDTR-SECNO+REG) 
X * DA • 

0 (R 12 I 
X • DO* 

X *8001® 

AL2CIDTR-SECNO+REG) 
SNSW+1»X®40® 

ALL,EXEC 
X * D6 * 

R12»RDR 

LDSW,X®80® 

NONE,ERM 

X*DO® 

X * 2422® 

AL2(RTD1-SECNO+REG) 
X*DO® 

X*A03C® 

AL 2(RT02-SECNO+REG) 


ROUTINE NUMBER 
LAST ROUTINE 
BR TO INITIALIZE 
TEST SSW 9. 

BR IF ON. 

PRINT -IF DESIRED TO VERIFY THE CDS’ 
IN POCKET 1 OF PUNCH, SET SSW 9 ON. 

-HALT- 
TEST 1-0 
PRINT A BLANK. 


TEST SSW 9. 

BR IF ON. 

ROUTINE EXIT. 

PUT READER ADDR. INTO REG 12. 
SEE IF ON LOADER DEVICE 
BR IF NO. 

PRINT -REMOVE CDS FROM STACKER- 


PRINT -REMOVE REMAINING TEST DECKS- 
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001B54 

OA DO 






SVC 

X' DO • 

PRINT -DO NOPRO¬ 

001B56 

A040 






DC 

X' A040 ® 


001B58 

FE42 






DC 

AL2(RTD3-SECN0+REG) 


001B5A 

OA DO 






SVC 

X' DO • 

PRINT -SAVE TEST DECKS- 

001B5C 

A04 5 






DC 

X' A045® 


001B5E 

FE82 






DC 

AL2(RTD4-SECNO+REG) 


001B60 

OA DO 





RAP 

SVC 

X 1 DO' 

PRINT -TAKE CDS FROM PCH AND PUT 

001B62 

A04 A 






DC 

X * A04A• 

THEM INTO RDR- 

001B64 

FEC 7 






DC 

AL2(RTD5-SECNO+REG) 


001B66 

OA DA 






SVC 

X • DA • 

-HALT- 

001B68 

9D 00 

C 

000 




TIO 

0(R12) 

TEST 1-0 

001B6C 

OA DO 






SVC 

X'DO® 

PRINT A BLANK 

001B6E 

8001 






DC 

X'8001• 


001B70 

FEC7 






DC 

AL2(RTD5-SECNO+REG) 


001B72 

D2 OB 

F 

C40 

F 

C34 


MVC 

PARAM(12),ROW 

INITIALIZE PARAMETERS. 

001B78 

92 00 

F 

AF5 




MVI 

GENDAT,X®00® 

ZERO 1ST EXP EBCDIC CHARACTER. 

001B7C 

41 60 

0 

027 




LA 

R6,39 

PUT 39 INTO REG 6. 

001B80 

41 80 

F 

AAO 



TEST 

LA 

R8,EXPBUF 

PUT ADDR OF EXP DATA BUFFER INTO 8. 

001B84 

55 60 

F 

9F4 




CL 

R6,TW7 

SEE IF REG 6 IS 27. 

001B88 

47 20 

F 

BEA 




BC 

HI, LA 52 

BR IF HIGHER. 

001B8C 

43 70 

F 

AF5 




IC 

R7,GENDAT 

PICK UP THE 1ST EBCDIC CHARACTER. 

001B90 

41 50 

0 

050 




LA 

R5,80 

PUT 80 INTO REG 5. 

001B94 

42 78 

0 

000 



PIB 

STC 

R7,0(R8) 

STORE EBCDIC CHAR IN BUFFER. 

001B98 

41 77 

0 

001 




LA 

R7,1(R7I 

ADD 1 TO REG 7. 

001B9C 

41 88 

0 

001 




LA 

R8,1(R8) 

ADD 1 TO REG 8. 

001BAO 

46 50 

F 

B94 




BCT 

R5,PIB 

BR UNTIL EXP DATA GENERATED. 

001BA4 

D2 00 

F 

AF5 

F 

AA7 


MVC 

GENDAT! 1),EXPBUF 4-7 

SAVE NEXT 1ST EBCDIC CHAR. 

001 BAA 

41 AO 

F 

CIO 



RSIO 

LA 

RIO,RDNF 

PUT CMD ADDR INTO REG 10. 

001BAE 

45 BO 

F 

OEA 




BAL 

Rll,ISIO 

BR TO ISSUE START 1-0. 1 

001BB2 

2880 






DC 

X * 2880• 

CTRL SWITCHES ] 

001BB4 

002 0 






DC 

X•0020 8 

TEST NUMBER j 

001BB6 

FOOO 





ESNS 

DC 

X * FOOO® 

EXP COND. CODE AND SENSE.* 

001BB8 

FDCC 






DC 

AL2CEXP1—SECNO+REGJ 

EXP CSW ADDRESS. 

001BBA 

41 AO 

F 

C18 



DOF 

LA 

R10,FSS1 

PUT FEED STK SEL R1 CCW ADDR. IN 10. 

001BBE 

45 BO 

F 

OEA 




BAL 

Rll, ISIO 

BR TO ISSUE START 1-0. j 

001BC2 

2E00 






DC 

X•2E00 * 

CTRL SWITCHES ! 

001BC4 

003 0 






DC 

X * 0030 * 

TEST NUMBER ! 

001BC6 

F100 






DC 

X•F100 ® 

EXP COND. CODE AND SENSE. 

001BC8 

FDD4 






DC 

AL2(EXP2—SECNO+REG) 

EXP CSW ADDRESS. 

001BCA 

46 60 

F 

B80 




BCT 

R6,TEST 

BR TO TEST EVERY CARD. 

001 BCE 

91 80 

F 

AFO 




TM 

LDSW,X * 80 ® 

SEE IF ON LOADER. 

001BD2 

47 80 

F 

BE8 




BC 

NONE,EXIT 

BR IF NOT. 

001BD6 

OA DO 






SVC 

X * DO* 

PRINT -PUT TEST DECKS BACK. 

001BD8 

243 E 






DC 

X * 243E ® 


001BDA 

FF11 






DC 

AL2(PTDB-SECNO+REG) 


001BDC 

OA DA 






SVC 

X * DA * 

-HALT- ‘ j 

001BDE 

9D 00 

C 

000 




TIO 

0(R12) 


001BE2 

OA DO 






SVC 

X * DO * 

PRINT A BLANK 

001BE4 

8001 






DC 

X ®8001 * 


001BE6 

FF11 






DC 

AL2(PTDB-SECNO+REG) 


001BE8 

OA D6 





EXIT 

SVC 

X *D6* 

EXIT 

001BEA 

D2 00 

8 

000 

F 

C40 

LA52 

MVC 

0( 1,R8),PARAM 

MOVE CHAR TO EXP DATA. 

001BF0 

D2 4E 

8 

001 

8 

000 


MVC 

1(79,R8),0(R8) 

FILL EXP BUFFER WITH SAME CHAR. 

001BF6 

D2 OA 

F 

C40 

F 

C41 


MVC 

PARAM(ll),PARAM+1 

SHIFT PARAMETERS OVER. 

001BFC 

D2 00 

F 

C4B 

8 

000 


MVC 

PARAM+11C1),0CR8) 

RESTORE 1ST PARAMETER TO LAST POS. 

001C02 

47 FO 

F 

BAA 




BC 

UNC,RSIO 

BR TO ISSUE SIO. 

001C06 

OA DO 





ERM 

SVC 

X * DO * 

PRINT REMOVE CDS FROM RDR. 

001C08 

241C 






DC 

X ®241C * 


001C0A 

FF80 






DC 

AL2(RTC-SECNO+REG) 


001C0C 

47 FO 

F 

B60 




BC 

UNC,RAP 

BR TO NXT MSG. 







*********************************************************************** 







♦ 

CCW 

AREA 








*********************************************************************** 

0Q1C10 

C2 OOIAOO 2000 

0050 

RDNF 

CCW 

X®C2®,BUFFER,X*20®,80 

RD NO FEED CCW. 

001Cl8 

23 OOIAOO 2000 

0001 

FSS1 

CCW 

X®23® fBUFFERtX'ZO®,! 


001C20 






TWENTY 

DS 

20C 

j 

001C34 

5060F0F1F2F3F4F5F6 

ROW 

DC 

X® 5060F0F1F2F3F4F5F6F7F8F9® 

001C3D 

F7F8F9 
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001C40 

5060F0F1F2F3F4F5F6 

PARAM 

DC 

X* 

5060F0F1F2F3F4F5F6F7F8F9• 

001C49 

F7F8F9 







* 



*************** 



♦ 



* HOLES TABLE * 



* 



*************** 

00IC4C 

B039018818418218 

HOLES 

DC 

X* 

B039018818418218 * 

001C54 

1180980580390388 


DC 

X* 

1180980580390388® 

001CSC 

384382381380B807 


DC 

X* 

384382381380B807' 

001C64 

D0350148144142 14 


DC 

X* 

D035014814414214' 

001C6C 

1140940540350348 


DC 

X® 

1140940540350348* 

001C74 

344342341340B407 


DC 

X* 

344342341340B407 * 

001C7C 

7033012812412212 


DC 

x® 

7033012812412212® 

001C84 

1120920520330328 


DC 

X* 

1120920520330328® 

001C8C 

324322321320B207 


DC 

X 9 

324322321320B207 * 

001C94 

F031010810410210 


DC 

X* 

F031010810410210 * 

001C9C 

1100900500310308 


DC 

X 9 

1100900500310308® 

00ICA4 

304302301300BO07 


DC 

X® 

3043023013008007® 

OOICAC 

000B01A81A41A21A 


DC 

X 1 

000B01A81A41A21A * 

00ICB4 

11A09AOSAO390288 


DC 

X® 

11A09A05A0390288• 

001CBC 

284282281280A806 


DC 

X® 

284282281280A806 * 

001CC4 

80QD01C81C41C2XC 


DC 

X® 

800D01C81C41C21C* 

001CCC 

11C 09C0SCO350248 


DC 

X* 

11C09C05C0350248 * 

001CD4 

244242241240A406 


DC 

X 9 

244242241240A406 9 

001CDC 

4003006816416216 


DC 

X® 

4003006816416216® 

001CE4 

11609605603302C0 


DC 

x* 

11609605603302C0 * 

001CEC 

024222221220A206 


DC 

X® 

024222221220A206* 

001CF4 

E00F01E81E41E21E 


DC 

X® 

E00F01E81E41E21E * 

001CFC 

11E09E05E0310208 


DC 

X* 

11E09E05E0310208 * 

001D04 

204202201200A006 


DC 

X® 

204202201200A006' 

001 DOC 

802B00A80A40A20A 


DC 

X® 

B02B00A80A40A20A * 

00ID14 

10A08A04A02A01A8 


DC 

X® 

10A08A04A02A01A8® 

001D1C 

2A42A22A12A0AA06 


DC 

X* 

2A42A22A12A0AA06® 

001D24 

D02D00C80C40C20C 


DC 

X® 

D02D00C80C40C20C * 

001D2C 

10C08C04C02CG1C8 


DC 

X* 

10C08C04C02C01C8® 

001D34 

2C42C22C12C0AC06 


DC 

X® 

2C42C22C12C0AC06® 

001D3C 

7027006806406206 


DC 

X® 

7027006806406206® 

001D44 

1060860460260168 


DC 

X* 

1060860460260168® 

001D4C 

264 262261260A606 


DC 

X® 

264262261260A606 * 

001D54 

F02 F00E80E40E20E 


DC 

X® 

F02F00E 80E40E20E * 

001D5C 

10E08E04E02EQ1E8 


DC 

X® 

10E08E04EQ2EQXE8® 

001D64 

2E42E22E12E0AE06 


DC 

X® 

2E42E22E12E0AE06® 

001D6C 

AGO9008808408208 


DC 

X® 

A009008808408208 * 

001D74 

10808804802801A8 


DC 

X® 

108088048028 01A8 8 

001D7C 

3A43A23A13A0BA07 


DC 

X® 

3A43A23A13A0BA07 • 

001D84 

6005004804404204 


DC 

X* 

6005004804404204® 

Q01D8C 

10408404402401C8 


DC 

X® 

1040840440240 1C 8 ® 

001D94 

3C4 3C23C13C0BC07 


DC 

X® 

3C43C23C13C0BC07® 

001D9C 

2827012802402202 


DC 

X® 

2827012802402202® 

001DA4 

1020820420220168 


DC 

X® 

1020820420220168® 

001DAC 

364362361360B607 


DC 

X® 

3643623613608607* 

001DB4 

2001000800400200 


DC 

X® 

2001000800400200* 

001DBC 

10008004002001E8 


DC 

X® 

10008004002001E8® 

001DC4 

3E43E23E13E0BE07 


DC 

X® 

3E43E23E13E0BE07 • 



*********************************************************************** 



* 

EXP 

csw 

AREA 



*********************************************************************** 

001DCC 

00001C18 

EXP 1 

DC 

AIRDNF+8) 

001DD0 

OCOOOOOO 


DC 

X® 

OCOOOOOO* 

001DD4 

00000000 

EXP2 

DC 

XL4® 00* 

001DD8 

08000000 


DC 

X® 

08000000® 

001DDC 

00000000 


DC 

XL4®0* 

OOIDEO 

04000000 


DC 

X® 

04000000* 



****+******++**+***+*++**++****+**+*+++* 4 ++**++*+++*+++++++++*+++**++++ 



* 

MESSAGES 



*********************************************************************** 

001DE4 

40D9C5D4D6E5C540C3 

RTDi 

OC 

C® 

REMOVE CDS FROM* 

OOIDEO 

C4E240C6D9D6D4 





001DF4 

40E2E3C1C3D2C5D940 


DC 

c» 

STACKER OF READ* 
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001DFD 

D6C640D9C5C1C4 





001E04 

C5D9 


DC 

C* 

ER® 

001E06 
001 EOF 

40D9C5D4D6E5C540E3 
C8C540D9C5D4C1 

RTD2 

DC 

C* 

REMOVE THE REMA 

001 El6 
001 ElF 

C9D5C9D5C740E3C5E2 

E340C4C5C3D2E2 


DC 

C* 

INING TEST DECKS 

001E26 

001E2F 

6BC9C640C1D5E86B40 

C6D9D6D440E3C8 


DC 

C® 

tIF ANY, FROM TH 

001E36 

001E3F 

C54QD9C5C1C4C5D940 

C8D7D9 


DC 

C® 

E READER HPR' 

001E42 

001E4B 

40C4D640D5D6D7D9D6 

40C1D5C440D7D3 

RTD3 

DC 

C' 

DO NOPRO AND PL 

001E52 

001E5B 

C1C3C540C3C4E240D9 

E4D540D6E4E340 


DC 

C® 

ACE CDS RUN OUT 

001E62 

001E6B 

C9D540C6D9D6D5E340 
D6C640D9C5D4C1 


DC 

C® 

IN FRONT OF REMA 

001E72 

001E7B 

C9D5C9D5C740E3C5E2 

E340C4C5C3D2E2 


DC 

c® 

INING TEST DECKS 

001E82 

001E8B 

40E2C1E5C540D9C5D4 

C1C9D5C9D5C740 

RTD4 

DC 

c* 

SAVE REMAINING 

001E92 

001E9B 

E3C5E2E340C4C5C3D2 

E240E4D5E3C9D3 


DC 

c® 

TEST DECKS UNTIL 

001EA2 

001EAB 

40C140D4E2C740D9C5 
D8E4C5E2E3E240 


DC 

c® 

A MSG REQUESTS 

001EB2 
001 EBB 

E3C8C5D440E3D640C2 

C540D7E4E340C9 


DC 

c® 

THEM TO BE PUT I 

001EC2 

D540C8D7D9 


DC 

c® 

N HPR® 

001EC7 
001 EDO 

40D9C5D4D6E5C540C3 

C4E 240C6D9D6D4 

RTD5 

DC 

c® 

REMOVE CDS FROM 

001ED7 

001EE0 

40D7F140D6C640D7C3 

C840C1D5C440D7 


DC 

c* 

PI OF PCH AND P 

001EE7 
001E FO 

E4E 340C9D540D9C4D9 
40C8D7D940D6C6 


DC 

c* 

UT IN RDR HPR OF 

001 EFT 
001FOO 

40E 2C1D4C540F2F5F4 

F06 BD4C1D2C540 


DC 

c« 

SAME 2540,MAKE 

001F07 

001F10 

D9C4E86BC5D6C640D6 

05 


DC 

c® 

RDYfEOF ON® 

001F11 
001F1A 

40D7E4E340D9C5D4C1 

C9D 5C9D5C740E3 

PTDB 

DC 

c® 

PUT REMAINING T 

001F21 

001F2A 

C5E2E340C4C5C3D2E2 

40C9D5E3D640D9 


DC 

c® 

EST DECKS INTO R 

001F31 

001F3A 

C4D940C8D7D940C1D5 
C440D4C1D2C540 


DC 

c® 

DR HPR AND MAKE 

001F41 

001F4A 

D9C4D940D9C4E86BC5 

D6C640D6D5 


DC 

c® 

RDR RDYjEOF ON® 

001F4F 

001F58 

40C9C640C4C5E2C9D9 

C5C440E3D640E5 

IDTR 

DC 

c® 

IF DESIRED TO V 

001F5F 

001F68 

C5D9C9C6E840E3C8C5 

40C3C4E240C9D5 


DC 

c® 

ERIFY THE CDS IN 

001F6F 

001F78 

40D7F16B40E2C5E340 

E2E2E640F940D6 


DC 

c® 

Pit SET SSW 9 0 

001F7F 

05 


DC 

c® 

N* 

001F80 

001F89 

40D9C5D4D6E5C540C1 

D3D340C3C4E240 

RTC 

DC 

c® 

REMOVE ALL CDS 

001F90 

001F99 

C6D9D6D440E3C8C540 

D9C4D9 


DC 

c® 

FROM THE RDR* 


*********************************************************************** 

* EQUATES 

*********************************************************************** 


000000 

NEVER 

EQU 

0 

000007 

NCCO 

EQU 

7 

OOOOOF 

UNC 

EQU 

15 

000008 

NONE 

EQU 

8 

000004 

SOME 

EQU 

4 

000001 

ALL 

EQU 

1 

000005 

ANY 

EQU 

5 

000008 

CCO 

EQU 

8 

000004 

CC1 

EQU 

4 
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000002 

CC2 

EQU 

2 

000001 

CC3 

EQU 

1 

OOOOOA 

CC02 

EQU 

10 

000006 

CC12 

EQU 

6 

000008 

EQ 

EQU 

8 

000004 

LO 

EQU 

4 

000002 

HI 

EQU 

2 

000006 

UNEQ 

EQU 

6 

OOOOOC 

EQLO 

EQU 

12 

OOOOOA 

EQHI 

EQU 

10 

000080 

LOGOUT 

EQU 

X • 80* 

000181 

SYSMOD 

EQU 

X•181• 

OOFOOO 

REG 

EQU 

X*F000* 

00005A 

WHAT 

EQU 

90 

000000 

RO 

EQU 

0 

000001 

R1 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

OOOOOB 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

000198 

WT 

EQU 

408 

000040 

HCSW 

EQU 

64 

000048 

HCAW 

EQU 

72 

0001A0 

DMSSW 

EQU 

X*01A0* 

0001B9 

DMIOL 

EQU 

X , 01B9* 

00018C 

DMPTR 

EQU 

X*01BC f 



END 

R0UT02 


POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


1 

8 

EQ 

1298, 

1356, 

1382, 

1618 




1 

2 

HI 

1B88 







1 

4 

LO 








1 

0 

RO 

10F0, 

156A, 

16E2, 

1720, 

172C, 

173A, 

1742 

1 

1 

R1 

12E0, 

1538, 

15B4, 

16E6, 

16E6 , 

16F4, 

16F8 




16F A, 

16FE, 

1702, 

1710, 

1714, 

1728, 

172C 

1 

2 

R2 

1570, 

157E, 

1582, 

15A4, 

15A4 , 

15A8, 

16BC 




16E8, 

16E 8, 

16F6, 

170A , 

1724, 

1732 


1 

3 

R3 

1574, 

1578, 

15A0, 

15A0, 

16EA , 

16EA, 

16F0 




16F4, 

16F8, 

16FA, 

1702, 

1706, 

170A , 

171C 




1724, 

173E 






1 

4 

R4 

157E, 

1598, 

1646, 

1656, 

1666, 

1676, 

1686 




16BC, 

16BE, 

16E2, 

16EC , 

16F6, 

1718, 

1732 




1736, 

1742, 

19CE, 

IB 14 




1 

5 

R5 

1558, 

19E0, 

1B90, 

1BA0 




1 

6 

R6 

19A0, 

19A0, 

19A 2, 

19A6, 

19AA , 

19AC , 

19AE 




19B0, 

1B7C, 

1B84, 

1BCA 




1 

7 

R7 

127E, 

12B4, 

12CC, 

1582, 

1586, 

15FC , 

160A 




161C, 

16CC, 

1B8C, 

1B94, 

1B98 , 

1B98 


1 

8 

R8 

127A, 

12B0, 

12C8, 

1326, 

132A, 

1348, 

1348 




134C. 

13A2, 

13A6, 

1458, 

145C , 

1460, 

1460 




1464, 

15E4, 

1B80, 

1B94 , 

1B9C , 

1B9C , 

1BEA 

h 



1BF0, 

1BF0, 

1BFC 





1 

9 

R9 

10F0, 

114A, 

114E , 

115A, 

UBE, 

11C2 , 

lice 




1224, 

13FE, 

142C, 

146E , 

1486, 

149E , 

14B6 




156A, 

15DC, 

15E0, 

15F8 




1 

198 

WT 

114A, 

11BE, 

15DC* 





1 

1 

ALL 

110E, 

11B6, 

11EE, 

1246, 

1266, 

12A4, 

12F8 




1304, 

136A, 

138A, 

13C2, 

152C, 

1558, 

15BA 




1610, 

162A, 

1696, 

19C0, 

1B1C, 

1B36 


1 

5 

ANY 

12E8, 

1550, 

159C, 

1622, 

170C 



16 

18 AB 

BIG 

16AA, 

16B0 






1 

8 

CCO 

1156, 

117C 






1 

4 

CC1 

1180, 

15F4 






1 

2 

CC2 

1184 







1 

1 

CC3 








4 

1BBA 

DOF 








2 

1C06 

ERM 

1B44 







9 

188E 

HD1 

169E 







4 

1518 

ICO 

14E8 







4 

114A 

IHI 

112E, 

113E 






2 

10E8 

ISW 

115E, 

115E , 

1164, 

11A2, 

UAE, 

11BA, 

11C6 




11D6, 

11E6, 

11EA, 

11F8, 

1228, 

1236, 

1242 




124A, 

125A, 

126A, 

1282, 

128A, 

128E , 

129C 




12A0, 

12B8, 

12C0, 

12C4, 

12D0, 

12D8, 

12 DC 




12E4, 

12EC, 

12F4, 

1300, 

131E , 

1340, 

135A 




1366, 

1472, 

14A2, 

14C0, 

1518, 

1520, 

1528 




1554, 

1590, 

15B0, 

15B6, 

15BE, 

1606, 

161E 




19BC, 

19DC, 

19E4 





4 

1566 

IUP 

155E 







16 

1926 

MDR 

15CA, 

1506 






4 

1682 

NAC 

167A 







4 

1672 

NBP 

166A 







4 

1692 

NTC 

162A, 

1638, 

168A 





4 

1662 

NXL 

165A 







4 

173A 

NXT 

172E 







4 

1652 

NXU 

164A 







4 

19 FO 

PCH 

198C 







4 

1B94 

PIB 

1BA0 







4 

1724 

PIK 

173E 







1 

A 

RIO 

10FA, 

13DC, 

13F8, 

1402, 

140A , 

140A, 

1548 
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1BAA, 

1BBA 






1 

B 

R11 

10EA, 

110A, 

11B2, 

123A, 

1252, 

1292, 

12A8 




130C, 

1316, 

1326, 

1338, 

138E, 

13A6 , 

13A8 




13BA, 

13BA, 

13BE, 

142E , 

144A t 

1458, 

148A 




14BA, 

1530, 

155A, 

1562, 

1562, 

1566, 

1566 




156E, 

1BAE, 

1BBE 





1 

C 

R12 

1122, 

1132, 

1142, 

1152, 

1178, 

UDE, 

15CE 




15E8, 

15F0, 

1984, 

1988, 

198C, 

1990, 

1994 




1998, 

1980, 

1B28, 

1B3C , 

1B68, 

1BDE 


1 

D 

R13 

10FA, 

10FE , 

10FE, 

119C, 

1548, 

15E4 , 

15FE 




1978, 

1978, 

1982 





1 

E 

R14 

1104, 

1104, 

114A, 

11BE, 

14E4 , 

14EC , 

15DC 




197A, 

19A2, 

19A 6, 

19AA 




1 

F 

R15 

11F2, 

1200, 

1230, 

1982 




2 

I860 

RAP 

1C0C 







4 

19EC 

RDR 

1998, 

1B3C 






1 

FOOO 

REG 

1212, 

13A0, 

13B8, 

13D2, 

13EC, 

142A, 

1438 




143E, 

14D4, 

14E2, 

1516, 

1540, 

1546, 

15CA 




15D6, 

1632, 

169E, 

16A4, 

16AA , 

16B0, 

16B6 




174A, 

19DA, 

1824, 

1B30, 

1B4C , 

1B52, 

1858 




1B5E, 

1B64, 

1B70, 

1BB8 , 

1BC8 , 

1BDA, 

1BE6 




1C0A 







12 

1C 34 

ROW 

1B72 







2 

15C6 

RRM 

1382, 

138A, 

1610, 

1618 




16 

1F80 

RTC 

1C0A 







4 

19F4 

TW7 

1B84 







1 

F 

UNC 

1126, 

1146, 

use. 

1194, 

1IA6, 

1 IDA» 

11FC 




122C, 

124E, 

12F0, 

12FC, 

1308, 

140E , 

142C 




1524, 

156E, 

15B4, 

15C2 , 

15D8, 

15FC , 

160A 




161C s 

1638, 

174C, 

19CE , 

19E8 , 

1C02 , 

1C0C 

4 

19F8 

ATE1 

15A8 







4 

12E0 

BTCD 

1204 







1 

A 

CC02 








1 

6 

CC12 








4 

10FA 

CONP 

1508 







6 

163C 

COPT 

1622 







1 

1AF3 

CRSW 

1168, 

1626, 

1634 





8 

1798 

OBWD 

168E, 

16C2, 

16CC , 

16D6, 

1714, 

1728 


8 

1758 

DCRO 

12B0, 

12C8 






1 

A 

EQHI 








1 

C 

EQLO 








2 

1BB6 

ESNS 








4 

1 B3C 

EXEC 

1B1C, 

1B36 






2 

1BE8 

EXIT 

1BD2 







4 

1DCC 

EXP1 

1BB8 







4 

1DD4 

EXP 2 

18C8 







8 

1C 18 

FSS1 

1BBA 







4 

1152 

GREG 

115A 







1 

48 

HC AW 

10FA, 

1548, 

15E4 





1 

40 

HCSW 

10FE , 

10FE, 

119C, 

11F2, 

1200, 

1230, 

15FE 

9 

1897 

HD1A 

16A4 







1 

1 API 

HDSW 

116C, 

1692, 

16B8 





16 

1AF6 

HUNG 

19DA 







3 

1817 

I ACT 

121E, 

147A, 

14AA 





4 

1528 

IBCD 

151C 







6 

130C 

IBSN 

125E, 

126E, 

1276, 

12A4, 

12AC, 

12E8, 

12F0 

12 

17E8 

ICAW 

13DC, 

13E4, 

13E6, 

13EC 




3 

17FA 

ICCW 

13EE 







4 

1570 

ICDT 

12E0, 

1538 






1 

1429 

ICNT 

121A, 

13F4, 

1446 





3 

17 F7 

ICSW 

1214, 

1440 






4 

14A2 

IDID 

148E 







16 

1F4F 

IDTR 

1824, 

1830 






3 

181A 

I EXP 

1452, 

1492 






4 

12 AO 

I FUR 

1286, 

1298 






4 

161E 

IGOP 

15BA 







2 

1978 

IN IT 

1814 







4 

11AE 

I NOW 

110E, 

use. 

1194, 

11A6 





4 

123A 

INT3 

11FC 


4 

1198 

IONE 

1180 


6 

14BA 

IPAS 

14A6 


2 

16BC 

I PDA 

1696 


4 

15 AO 

IRTU 

1594, 

174C 

4 

12C8 

ISEA 

12BC 


4 

1252 

ISEN 

1166, 

11DA, 

6 

10EA 

ISIO 

1BAE, 

1BBE 

4 

15B6 

ISIP 

158C, 

159C 

4 

15 BO 

ISSW 

15C2 


6 

1230 

ISV2 

11EE 


6 

1578 

IT80 

15AC 


4 

1590 

IT CO 



4 

15F8 

IT IC 

1602 


4 

1190 

ITWO 

1184 


6 

1200 

IUIO 

11E2 


6 

115E 

JOHN 

1116, 

1156 

6 

1BEA 

LA52 

1B88 


1 

1AFO 

LDSW 

199C, 

19B8, 

1 

195F 

MSK1 

11CA 


1 

1960 

MSK2 

11D2 


1 

7 

NCCO 

1136, 

15EC 

1 

8 

NONE 

1116, 

111E, 




126E, 

1276, 




1322, 

133C; 




148E, 

14A6, 




1602, 

164A, 




197E, 

1B44, 

2 

1746 

PRGD 



16 

1F11 

PTDB 

1BDA, 

1BE6 

8 

1C1Q 

RDNF 

1BAA, 

1DCC 

4 

1BAA 

RS 10 

1C02 



1B40, IBCE 


112E, 

1286, 

1344, 

14C4, 

165A, 

1BD2 


113E * 123E t 

12 AC, 12BC, 
1372, 1406, 

151C, 1534, 

166A, 167A, 


1256, 125E 

12D4# 131A 

144E, 1476 

155E, 1594 

168A, 172E 


16 

16 

16 

16 

16 

1 

1 

4 

1 

16 

4 

1 

1 

1 


4 

1 

1 

1 

16 


.8 

4 

16 

2 

8 

8 

4 

4 

16 


1DE4 
1E06 
1E42 
1E82 
1EC7 
1961 
1AF4 
1004 

4 

1936 

1B80 

6 

5A 
17 AO 


19BC 
1B9 
1BC 
1 AO 
18F4 


1C4C 

160C 

17FD 

1412 

1788 

1790 

1472 

1132 

17DB 


RTD1 

RTD2 

RTD3 

RTD4 

RTD5 

RTSV 

SFLE 

SNSW 

SOME 

TCRA 

TEST 

UNEQ 

WHAT 

WORK 


BLOOP 

DMIOL 

DMPTR 

DMSSW 

GOODY 


HOLES 

1BACK 

IBLAH 

ICOUT 

ICSW1 

ICSW2 
IDIDI 
I HANG 
JUNK 


1B4C 

1B52 

1B58 

1B5E 

1B64, 

10F4, 

1112 , 

1B32 

1632 

1BCA 

11E2, 

19B4 

1200, 

1468, 

14F8 , 

19B4, 

19A2 

19A6 

163C, 

166E, 

16D8, 

16FA, 

15EC 

1214, 

1452, 

1224, 

119C, 

160C 

1230, 

144E 

1146 

13A8, 


1B70 

19D0 


DATE 

EC 


15JUN67 

130498 


ID F822-0 OATE 

PAGE 22 ec 


15JUN67 

130498 


lilA, 

U2A, 

113A, 

136E, 

154C , 

1B18 


1312, 

1334, 

1308, 

14E8 * 

158C t 

15AC 


13F8, 

1416, 

1418, 

141A, 

1420, 

1468 


1480, 

1498, 

1498, 

14B0 , 

14EC, 

14F6 


14FA , 

1500, 

1506, 

150C 




19E8 







163C, 

1642, 

164E , 

1652, 

165E, 

1662 


1672, 

167E? 

1682, 

168E, 

16C2 , 

16C8 


16E0, 

1732, 

174A 





1702 







121E* 

13EE, 

141A, 

1420, 

142A, 

1440 


147A, 

1492, 

14AA 





13FE, 

146E, 

1486, 

149E, 

I486 



11F2, 

1262, 

132E, 

1326, 

1386, 

1480 


1272, 

1350, 

1350, 

14B0 




13B0, 

13B2, 

13B8, 

1546 










ID F822-0 
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f r\ 


/0\ /On 

^ 




On 











c c c c c c c c c c 


c c c 
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2540 PUNCH FUNCTION 

TESTS - 

SECTION 

3 F822 


2540 PUNCH 

OVERLAY SECTION 




4 

15FE 

ILQKE 

15F4 



4 

1122 

I LOOP 




4 

135A 

INDER 

12F8, 

1304, 

1312, 

3 

195C 

IOADR 

13CA 



6 

1440 

IOCSW 

13C2 



16 

1833 

IOLOG 

14FA * 

1500, 

1506, 

16 

1858 

I0PT1 

1540 



4 

14E4 

IPASS 

14C4 



4 

1760 

ISAVE 

10F0* 

156A 


4 

1178 

ISSUE 

13D4, 

195C 


4 

15 DC 

ISTRT 

127E * 

12B4, 

12CC 

4 

111A 

ITRY1 

1126, 

1136, 

1550 

4 

112A 

ITRY2 

11 IE 



16 

1962 

IUNEX 

120C, 

1212 


4 

11BE 

IWAIT 

124E, 

1524 


4 

11AA 

IZERO 

117C 



4 

19FC 

M0D50 

1988, 

1994 


1 

0 

NEVER 




12 

1C40 

PARAM 

1B72, 

1BEA, 

1BF6, 

4 

1000 

SECNO 

1008, 

1018, 

103C, 




1212, 

1398, 

139A , 




13CA, 

13CC, 

13D2, 




1418, 

142A, 

1438, 




14DA, 

14DC, 

14E2, 




1546, 

15CA, 

15D6, 




16B0, 

16B6, 

16D6, 




19D0, 

19DA, 

1B24, 




1B5E, 

1B64, 

1B70, 




1C0A 



4 

10E0 

UNIT1 

1984 



4 

10E4 

UNIT2 

1990 



16 

18CD 

BEAUTY 

16B6 



1 

1AOO 

BUFFER 

1582, 

19C4, 

19C 8, 

1 

1A50 

CHKBUF 

157E, 

1758 


1 

1A AO 

EXPBUF 

1574, 

1B80, 

1BA4 

1 

1AF5 

GENDAT 

1B78, 

1B8C, 

1BA4 

6 

19 DO 

HANGUP 

19C0 



11 

1828 

IACSNS 

1170, 

1292, 

137E, 




1750 



10 

17C2 

IACT CC 

1174, 

1188, 

1190, 

6 

142E 

ICCOUT 

13D8, 

1406 


6 

132E 

ICCSW1 

132A 



6 

1350 

ICCSW2 

134C 



6 

1468 

ICHNG1 

145C 



6 

1498 

ICHNG2 

1464 



1 

1AF2 

ICODAT 

1578, 

1586, 

16DE, 

6 

13F8 

ICWOUT 

140E 



4 

127A 

IDOSNS 

1256, 

1266, 

19E0 

4 

135E 

IDUNCK 

12FC, 

1308, 

1356 

10 

17B8 

IEXPCC 

142E, 

1438 


11 

181D 

IEXSNS 

14BA, 

14CC, 

14CE, 

1 

139E 

IFLAG1 

135E, 

1376 


1 

153E 

IFLAG2 

1362, 

137A 


4 

155A 

ILEAVE 

1372 



6 

14EC 

ILOGED 

122C 



4 

148A 

IMORST 

1476 



4 

12F4 

IN0EX1 

131A 



4 

1300 

1N0EX2 

133C 



15 

17CC 

IOADDR 

13CC, 

13D2 


4 

1038 

IOOPSW 

11DE, 

120A 


2 

153C 

IOPOUT 

152C, 

1534 


4 

137E 

IOUT IT 

136A 



4 

11DE 

IRETRN 

107C 



8 

1750 

I SENSE 

127A 



4 

15F0 

ITJQLP 

15F8 



9 

184F 

ITSTNO 

10EA, 

138E, 

1398, 

l 

80 

LOGOUT 

1104, 

U04, 

14EC 

4 

1984 

NITWIT 

I97E 




1322, 1334* 


150C * 1516 


1C10, 1C18 


14DC * 14E2, 

11AA 9 130Cv 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


2540 PUNCH FUNCTION TESTS - SECTION 3 F822 
2540 PUNCH OVERLAY SECTION 


12 191A PUNCHS 1724 

1 1B10 R0UT02 1015, 1F9C 

1 181 SYSMOD 14E4 

1 1C20 TWENTY 16E2 t 1742 

1 1000 XF8220 


NO ERROR DETECTED IN ABOVE ASSEMBLY 
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F822 2540 PCH FUNCTION 

SEC 3 



F822 2540 PCH FUNCTION 

SEC 3 




PERIODS CORRESPOND TO BLANK COLUMNS* 



BTXT.ALA. 

• A8« «AA3FFA 

0YBM3FB05FAA0YGA30AA 


0DGA5KBU3FBA5FKA94AB 

BEABA4A4B0MA82200017 







9 Y9Y 

Y9 Y9 0-9 

-Z 0-4 0-9 ZQ 0-9 


9ZY 0-9 0-Y 0 9 8Q9 

8QY988888-Z8 

COLS. I 

THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 

9 

9 9 

9 


90 

999 99999 9 

BESD. 

• AA. 

.AAXF82 

20.•AAAA.AGQ..•••#•• 

...840 

577.130498..82200001 

BTXT.ALH. 

•A8..AA97AA 

ADLH4A8HBEACHIHHB0JA 


8CACADAAAAGA44BEACB7 

HIB0JG8D4J8Q82200018 

9 

YQ 

Y9 

YYQY Y8 



9 Y90 

Y9 Y9 9ZY 

Y980 Q 8QY99 9 8-YQ 


ZQY9-YQYZQ 8QY988 

908-Y8 0 Y 


99 

9 

9999 99 



9 - 

9 9 

99-0 999 9 9 


09 09 9 999 99 

—9 9 - 

6 TXT.AAA. 

• A8. 

•AA8SAA 

AAAAAAAAABOAADAAAAMU 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA82200002 

BTXT.ALO. 

• A8.•AABEAC 

HRHQB0JC8LKB8W8SB041 


KGBAJAEA4SA0JDGA46AK 

AHG04HBEAHBA82200019 

9 YQY 

Y9 

Y9 9YY 

YYYYYYYYY9+Y99YYYY88 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 

9 Y9 

Y9 Y98QY9 

9 9 8-Y8 9 -98 


9QYYYZQ 9-4Y9ZY 8ZY 

Y9Z 98QY98Y 

999 

9 

9 99 

999999999 9 99999 

99999999999999999999 

999999999999 

9 

9 9 999 

9 9 9 


Z9 9 9 

9 999 99 

6 TXT.AA8. 

• A8. 

.aaaaaa 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAADAAAAAAAAAA 

AAAAAAAAAAAA82200003 

BTXT.AMY. 

•A8.•AABAKG 

8KBAKG83BHB0JK8VG9KA 


8NADB0JB8JBOJB8KKB8W 

8GBK41AHAAGA82200020 

9 YQ9 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYY9YYYYYYYYYY 

YYYYYYYYYYYY 

9 Y99 

Y9 Y98Y 9 

YQY 9 Q98-Y8 9 Y 


. 0Q98-Y8 Y8-Y8 Y 9 

Q-8 8-9QYZY 

99 

9 

9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 

9 

9 9 99 

9Z9 Z 9 9 9 


0 9 9 9 9 

9 9 9 09 

BTXT.AAO. 

.AA. 

.AAAAAA 

AAAAADAAAAJB. 


.82200004 

BTXT.AM-. 

.A8..AA4BKB 

809BHCAF.A44AHAH.A4M 


KGBABAEA4SA.0YGA4BKB 

8D8GKGBA8HEA82200021 

9 YG+ 

YQ 

Y9YYYY 

YYYY99YYYY9Q 



9 Y9 

Y9 Y9 0 9 

Q 9ZYY9 Y 8Z0Y9 Y Y 


9QYQYZQ 9- ZY Q 9 

Q Q 9QY OZQ 

99- 

99 

9 9999 

9999 9999 9 



9 

9 9 

Z 9 9 


Z9Z9 

Z Z Z9 

BTXT.AAS* 

• A8. 

.AABAAA 

AAAAAAAAKA94A8AA8-PG 

0.0.PCSASAA.0DGA1F+N 

AHAA0DGA10EA82200005 

BTXT«AMH*.AS.•AA4SAD 

AAGA4BKB8D9BKGBABAEA 


4SAJ0YGA4BKB8D8GKGBA 

8AEA4SKA9BAE82200022 

9 YQ8 

Y9 

Y90YYY 

OYYYYYYY 9 8Q9Q8 9 

- - 88Y8Y- 9ZQ Z Y 

YZ-Y 9ZY 8QY 

9 Y9- 

Y9 Y9 9-9 

QYZY 0 9 Q 9 9QYQYZQ 


9-Y ZY Y 9 Q Q 9QY 

QZQ 9 Y 8Q9 

99 

9 

9 9 9 

9 99999 90 9 

9 9 

9 9 

9 

9 9 

09 - Z Z9Z9 


9 9 Z Z Z9 

9 90 

BTXT.AJQ. 

• A8. 

•AAOAGO 

1WA00DGA1WDA0AG010HF 

AHHAACEA0AGA1BFA16G0 

1BA0E0AADFGA82200006 

BTXT.AMO. 

. A8« • AAA DO Y 

GA44BEAAABABB0JC9EBE 


AAANANB0JC9AEAJAG-5Y 

KCBASABEADBA82200023 

9 Y99 

Y9 

Y9+YZ+ 

8-4 9ZY 8QY+YZ 9RQ 

9-0QY9QY+YZY 9ZQ 9Z 

9Z4Q4-YQ8ZQ 

9 Y9- 

Y9 Y9-9 

ZY 8QY988888-Y8 98Q 


Y989898-Y8 Q-QZOZ 9 

8 QY8Y8QY88Y 

9 

9 

9 9 - 

9 9 9 9 

9 9 9 

-Z Z 9 

9 

9 9 

999 99999 9 99 


9 9 9 9 9 9 Z 

9Z9 999999 

BTXT.AJ4. 

• A8. 

•AA1FA0 

EH+5AHG010PA0Y0YFA0Y 

DADEDADDBA9NDA0AGA10 

G.1DGJ1DB38P82200007 

BTXT.ANH. 

.A8*•AABAKA 

9JBAKE9TBBKE9S8BKE91 


BKB0JM9LAB0YGA58DE0Y 

GO1BFB0ZAA0L82200024 

9 Y9 

Y9 

Y9 RZ4 

Q 8YZZ 99 -Y 

-YQ8-YQ8-Y 9QY+YZY 0 

Z -ZY Y- Y 

9 Y99 

Y9 Y98Y 9 

YQY 9 9Q9 9 8Q8 9 9 


Q98-Y8 8-9 ZY 9-Q 

Z Q-9 -Y Y 

9 

9 

9 

Z 9 

9Z 9Z 9 9 9 

9 

9 

9 9 99 

9Z9 Z 9Z9 


Z 9 9 9 Z 

0 9 

8 TXT.AJH. 

• A8. 

•AAG01K 

B28PG01KB18PKG8H0.F. 

OYG01KB08PD70YA.AAGA 

2FFA0YHFAHHA82200008 

BTXT.AN.. 

•A8.•AAGA5D 

FJ0LEA5HD7DDDG0LA.0L 


GA5DFA0LAABQA.CHA0CQ 

AADFGA5AAABH82200025 

9 Y90 

Y9 

Y9Z Y 

- YZ Y- Y 9 0~ “ 

Z Y- Y-8 - QYZQ 

8 -Q RQ9-0Q 

9 Y9 

Y9 Y9ZY R 

-Y YZY 0-8Q8-Q Y- Y 


ZY 0-Q YZQQZZ QRZ4Q0 

-YQ8ZQ YZQQO 

9 

9 

9 


09 9 

9 

9 

9 9 

9 9 - Z 9 9 9 


9 9 ZZ Z -Z 

Z 9 ZZ- 

BTXT.AJQ. 

. A8. 

•AAACFA 

0YAABBFA1BAA8CQ7QYG0 

2FA002G-1DD70YA.OYGA 

2UKG8H0.F.0Y82200009 

BTXT.ANH. 

•A8..AAA.CH 

A0C8EA5FB00E9.B0JA8C 


4NAHA00DG+1BAA0YGNAH 

AAGA50ACABAC82200026 

9 Y9+ 

Y9 

Y9Y9-Y 

YYQZZQ YYYQZ-8 Z 

884 82 Q-8 - ZQ 

8 9 0 - 

9 Y9R 

Y9 Y9Z Q9 

Z4Q ZQ Q8-4Z 8-Y9 


YYZ—4 9Z 9-Y 99-9 

QYZY YZQY9ZQ 

9 

9 

9 9 

9Z 9 9Z 

9 Z 9 

9 

9 0 

9 9 Z 

-Z 9 99 9 


9 

09 09 0 

BTXT.AJQ. 

. AS ® 

.AAG026 

KGBA0.BEABA2BEB0MNBD 

K88VI8GBK41K88D8GEA4S 

FB0YG04DKG8A82200010 

BTXT.ANA. 

•A8..AAAFHA 

8 -GCAABQA.CHAOCQAADF 


GA5QAABHA.CHA0C8EA5F 

G8AJAANAAA0A82200027 

9 Y9 

Y9 

Y9Z 9 

9QY 8QY9Y88R8-Z9QZ 

9 Q-8 8 9 Q QZQ 9 

-9 Z Q 9 Q 

9 Y9Q 

Y9 Y9Y9-8 

9QZQQZZ Q9Z+Q0-YQ8 


ZY ZQQOZ QRZ4Q ZQ Q 

9 ZYY9 YQY4Y 

9 

9 

9 

Z9 999 999 9 Z 

9 9 9 Z Z 

Z 

9 0 

9 9 9 9 

z zz z -z z 


ZZ- Z -Z 9 9 

99 9Z9-9 

BTXT.AKA. 

* A8. 

.AAO.FJ 

OYAAAAGA2FAHOYGA2FFH 

0YG01BABAAGA2FA.0YGA 

2MAB8DGA2FAJ82200011 

BTXT.ANY. 

.A8..AAG-60 

AG.AG+60AQ.AG+62ASAA 


A3AAADAAAGAAEJB-G-5S 

G1FA0LAA0LGA82200028 

9 Y9Q 

Y9 

Y9 -Y 

-QQYZY 8-9 ZQ 8-9 

Z Q-9QYZY R- ZY 

0-9 YZQ R-Y 

9 Y9 

Y9 Y9Z 9 

-9 YZ 9-9 YZ 9Z9Y9 


Z9Y9ZZY9ZRY9RYQ Z 

9 -Y Y-Q YZQ 

9 Z 

9 

9 9 

909 9 

0 09 0 

9 0 9 

9 

9 9 

9 9 9 


9 9 09 9Z 

9 9 9 9 

BTXT.AKQ. 

• A8. 

•AAOYGA 

2MA88DGA2MAA8HE06MA* 

9NGA6FAA0ZGA2MFD0YD7 

0ZNA9NAEGA2M82200012 

BTXT.AOJ. 

•AB.•AA54AB 

0ZGA6FFA0YG054F.0LAJ 


0LGA5DAB0ZGA6FFA0YG0 

5DB0UEB2BBEA82200029 

9 Y9Z 

Y9 

Y9 ZY 

0-9 -ZY OZY RZ4- Z~ 

9ZQ 8—Y ZY 0-9 -8 

Y 9Q9ZY 0 

9 Y9Y 

Y9 Y9 -9 

ZQ Q-9 Z - Y-Y 


YZQ Q-9 ZQ Q-9 Z 

Q8-98Q98QQY 

9 

9 

9 

- 

9 

9 0 

9 9 

9 9 

9 9 9 


9 9 Z 9 

Z9 9Z 99 9 

8 TXT.AKJ. 

• AS. 

.AAFAOY 

AAEHAADFGA2DAAEAE06M 

AA0ZGA2DAADFGA2MFB0K 

D70ZG02DFJ0K82200013 

BTXT.AOH. 

.A8..AA0AB0 

AAB2G006HFAHHAAB+EAH 


DA0AG06DEA0AG.6FFA6H 

G7AD0DGA6AFA82200030 

9 Y9Y 

Y9 

Y9-9 

ZYQ0-YQ8ZQ OZYQQZ+ I 

-Y ZY Q-YQ8ZY -9 Y 

-8 Z Q-Y Y 

9 Y9R 

Y9 Y94Y8- 

Y9Q9Z RQ9-0QY9 YYZ 


QY4YZ4 -QY4YZ OZQ R 

9 -9-ZZY Y-Y 

9 

9 

9 

Z- Z 9 - ZO - 

l Z 9 

Z 9 9 

9 

9 9 99 

Z 9 9 


9 9 - 9 9 0 


BTXT.AKQ. 

• A8. 

•AAG02D 

FD0KGQ3UA.0YGA3BG03F 

AJ0Y6A3BG03FAAEQAADF 

6A3DAAEJE06M82200014 

BTXT.AOA. 

•A8.•AA0ZG7 

A.9NGA06G7B.BAKUBABA 


KB9F9MAJ0LGA6YKB9F9J 

AADFGA60AJOK82200031 

9 Y9 

Y9 

Y9Z Y 

-9 YZ 9- ZQ 01 0 

-Y ZQ OZ 0ZYQ0-YQ8 

ZQ 8ZYQYZ4 Z 

9 Y9Q 

Y9 Y9 9 

- 9ZQ 9 - QY 9Q9QY 


8 - Y-Y YZY 8-0 

-YQ8ZQ -Y Y 

9 

9 

9 9 

9 9 

9 9 Z Z 

9 9 Z - 

9 

9 9 

9 Z9 Z Z9 


9 9 9 9 

Z 9 9 9 

BTXT.ALA. 

. A8 * 

.AAA ADZ 

GA3Y AADFGA2DF.QK0702 

AA9NGA34EA5HNA8PADG- 

3BAHAAGA2UA.82200015 

BTXT.AOH. 

•A8.•AAG+68 

AADEGA7HKAGFFBB0JLGM 


FADE607HAADFGA6DAB0K 

GA6DB0B0AA.A82200032 

9 Y9Q 

Y9 

Y9-Y 

ZY 9-YQ8ZQ Q- Y-8 

-Q 9ZY 9ZY 0 Y YQ9Z 

0-9QYZY - 

9 Y9 

Y9 Y9Z 

-YQ8ZQ Z 9Q0Q88—Y9QY 


-YQ8Z Z-YQ8ZQ -9 Y 

ZY Y- Q9-Q Y 

9 9 

9 

9 

Z 9 9 9 

9 - 9 0 

09 

9 

9 9 

Z 9 Z—299 Z 


Z Z 9 9 

9 Z 9 9 

BTXT.ALH* 

. A8. 

.AAOYGA 

3BHCAF.A3KNG8H8HG-3B 

ADAAGA20AJ0YGA3BAHAH 

•A34NG8A8AGA82200016 

BTXT.APA. 

>• A8..AAGA7H 

B1B0B0BJAH.AGA7QBIBJ 


BOBMAD.AGA7YB1BMB0BJ 

AA.AGA78B1BJ82200033 

9 Y9Z 

Y9 

Y9 ZY 

0ZYY9 Y 8 9 0 OZ 0 

-9QYZY -Y ZY 0Z0Y9 

Y 8 9 Q QZY 

9 Y9Y 

Y9 Y9ZY 9 

- Q9- Q8-9 YZY 9- Q8 


- Q8-9 YZY 9- Q8- QY 
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9 

9 

9 

9 
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9 Y99 

Y9 

Y9- Q9 

-9 YZY Z~ Q9Q9Q -Y Y 

ZY Y-YQ8ZY Y-9 YZ - 

- Q8ZQ 8 9Q0 

9 

9 

9 Z 

9 Z Z 9 9 

Z 9 

Z 9 Z- 

BTXT.APO. 

• A8. 

•AAFHBO 

JLGMF.DEG08DAADFGA7D 

G07MA.0KGA7MAADDGA7F 

BOJH9EB0JM9E82200035 

9 Y9+ 

Y9 

Y9Q98- 

Y9QY- Q8Z 8-YQ8ZQ Y 

Z 8- YZY Z-YQ8ZQ Q 

8-Y9 08-Y9 Y 

9 - 

9 

9 Z 9 

Z Z Z 9 

9 Z 9 0 

9 9 

BTXT.APQ. 

. A8. 

•AABOJA 

9GB0JS9GB0JX9RFADDKA 

DGAAQBF.8H3JBB8FF0BC 

KA8H0ABEAAHH82200036 

9 Y90 

Y9 

Y98-Y9 

08-Y9 08-Y9 -YQ8 Y 

Q8QY9Z8 - 9Q9 Q- Q9 

Y -+Y8QY99- 

9 

9 

9 9 

-9-9 Z 9 

Z Z9 11 

9 -9999 

BTXT.APS. 

• A8. 

•AABKBE 

AADGBFLJLSL 3A.ABCADG 

QLNUK1CLFDIAAHCLFEAA 

AGMT G+8QHAAD82200037 

9 Y98 

Y9 

Y9898Q 

Y98888898989Z Y9ZQQ8 

998989Z9Q80QY9Z9Q8ZQ 

YQ99Z 90QY9 

9 

9 

9 9 99 

9 9 999 99 9 11 

99 Z9 99 19 l 

9Z 99 

BTXT.AQQ. 

. A8. 

.AA+A8H 

A.AFAAADAAAACTBVHA8H 

MAGA86BUBEF.861AAAFA 

8YB0AWBAHDEQ82200038 

9 Y99 

Y9 

Y9 Q - 

Z Y9ZQY8ZYY9Z9Q9RQ - 

9QZY 8Z9Q9Z 80YY9ZQ 

98-Y9QY-9Q 

9 

9 

9 9 

9 199 99 l 9 

9 9 Z 9 99 Z 

9 Z9 Z 

BTXT.AQ+. 
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AAAADAJNAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA82200039 

9 Y9 

Y9 

Y9Z Q 
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YYYYYYYYYYYY 

9 

9 

9 Z 

9999 99 999 99999999 

99999999999999999999 

999999999999 

BTXT.AQH. 

• A8. 

.AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

.CC..X.EXP.CC..X.ACT 
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9 Y90 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 



9 

9 

9 9999 

99999999999999999999 
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.AD. 

•AASIOA 




9 Y9 + 

Y9 
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_ _ 

9 

9 

9 9 
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• XXXXXX.LINKA «••••*. 
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9 Y9 

Y9 

Y9 
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9 

9 

9 
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Y9 
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9 
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99 
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Y9 

Y98Y Y 

99 
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• AADOBM 

9 Y8Y 

Y9 

Y9R+QZ 

99 

9 

9 Z 

BTXT.AMH. 

. A8. 

•AAEME. 

9 Y80 

Y9 

Y9QYZ 

99- 

9 

9 19 

BTXT.AMO. 

. A8. 

•AAEJFA 

9 Y8 

Y9 

Y9QY-Y 

99 

9 

9 Z9 

BTXT.ANY. 

. A8. 

•AADFGO 

9 Y 89 

Y9 

Y9Q8Z 

99 

9 

9 Z 

BTXT.AN-. 

. A8. 

•AACOD+ 

9 Y 8 

Y9 

Y9Z+Q 

99 

9 

9 -1 
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. A8. 

•AAFCAA 

9 Y8- 

Y9 

Y9Q9YY 

99 

9 

9 Z 9 
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.AH. 

.AAAAAL 

9 Y8- 

Y9 

Y9YYY8 


99 9 9 9999 


BTXT.ANM..A8..AA+-01 
9 Y8Y Y9 Y9 

999 9 9 

BTXT.AOU«• A8. •AAO5AH 
9 Y89 Y9 Y9-99Z 

99 9 9 

BTXT•AOM*.A8»•AAJAAE 
9 Y88 Y9 Y99YQ9 

99 9 9 9 

BTXT.AOD*.A8•« AAUBBU 
9 Y 8- Y9 Y99ZZ9 

99 9 9 

BTXT.AOD*.A8..AAATAQ 
9 Y8Y Y9 Y9Q8Y0 

999 9 9 099 

BTXT*APD** A8* * AAA-FD 
9 Y89 Y9 Y9Q 09 

99 9 9 9 

BTXT*AP4*•A8•*AA2CK2 
9 Y88 Y9 Y98Z08 

999 9 999 

BTXT*APD**A8**AAJAAH 
9 Y8R Y9 Y9Y9Y9 

990 9 999 

BTXT*APM** AU*•AA«DIA 
9 Y8Y Y8 Y9 

99 99 9 
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AAAAA.PREVIOUS.HANG* 

YYYYY 

99999 

+OBMAAOYGAEWBOUJGGBO 
+Q8-Y ZQQ88-98QQ8- 

Z 9Z99 9Z09 

EDHOBMAJEOKADYFDAADF 
QZR+Q8ZYQ+ 9Q Q9-YQ8 

z z z z z z 

DFMAOKDBF-DBAJEHHOBM 
Q8 9 YQ8Z QQZYQ R+Q8 
Z 9Z ZO Z Z 

DDB0MKDAFA0YE+2FBA0Y 
QQ8-Z8QR-9 Z R-Y 
ZZ9 9Z 09 

A+A+BHAAAGAAAHAAF+EQ 
Z Y ZRYYZRY9Z0Y9Z QZ 
9 099 09 9 Z 

G4AABALQJAA+BAL8JAA+ 
9 YY Y80YYY Y8 YYY 
99 99 999 99 999 

AAAA. 

YYYY 

9999 

23456789+-0123456789 


MABMJ*DE.5CH4CB4L.DG 
9ZZ99 -9 99Z9ZZ99 09 


A1CHACBALAAGACAQKAKK 
Y999QZ9Q9YQ9Y8908Z08 
9 Z Z 90 99 9 9 

K.MF.CAQ0AK0J-FE-3B0 
9 09 9YZ9ZZ99 -9 99+ 
9 

B.KBAJBDJSAQSBKSKJKF 

8 08QYY9Y8908Z089YY9 

9 99 999 

-WAQWBKWK-OFOXAYF.SF 
99Z9ZZ99 09 8Y 8 8 

99 9 9 

LJBG-EAHD.BDA.DD.UAH 
9YQ9 9YZ9 Z9Q 09 99 
0 9 9 

A.BAAAADAJAY6CS6L3FG 
Y 9YQYY9YY9 8Z 898Q9 
9 999 99 9 9 0 

G*CMD*C6*FAILED*D0*N 


UP.DETECTEDAAAGFLEA. 

Y9YQQ8Q- 
9 91199 

JEB2BBEA0AB0AAGGA-AX 
Y8Q98QQY+Y8-Y9QQZ Y9 
9Z 99 9 99 ZO 9 

GADFAJEHKADYFFEA0M6A 
ZYQQZYQ 9Q Q9ZQ Y8Y 
Z9 Z Z Z 0 999 

B.BHKFBIBHEA0M6AAA0A 
- QO 8Q0Q0ZQ Y8YYQ Y 
Z- Z-Z- 0 99999 9 

GODHAABQAADFGAEDAABH 
Z Q0ZYQZ-YQ8ZYQRZYQ0 
11111 - 

HAEMKAD+AGG4KAAAE8KF 
RYQ YQ Y99 YYYQ 8 
1 91 9 91 

FALHJAA+FALHJAA+AAKQ 
Y89YYY Y8RYYY 9Y8Z 
99 999 99 999 99 


GDGDC2C6A1AHQABQJAHE 
QYQQ 08909Z099Y—9 
11 09 

03AYKASKJJBEJ3CY2CS2 
+9999Z999Y-9Y9999Z99 
9 9 

JJBEJ1BHY0BYKAQFAEAH 
9YQ9Y8909Z099Y09Y89 
9 9 

BBSSKJKFSGAYOASOJSFE 
9Z999Y09889 8Z 898Q9 
9 9 9 9 

OVAHD.BDAODDOUAHUBBU 
-8Y 8 8Q+Y9+89 8Z 8 

99 9 99 9 9 9 

ASFDSWAYWBSWKSOFJAAH 
Q8Y9889 8Z 898Y9Y8Y0 
9 9 9 9 99 

4CB4L0DGYXAYB.SBAJBD 
8 Z 89+Q999999 99QY09 
9 9 0 99 

AANHHAAAAAAADAAAAANO 
YY8 9YYYYYYY9YYYYY8- 
999 9999999 999999 

OPROTEMPTY*PCH* STKRS 
8 


JFGAD4QGH00S82200051 
Z-ZYQ89QR+ 8 
Z 9 

BADFBAD+KCE882200052 
-YQ8-YQ 8Q 
9Z 9Z 9Z 

AA0AGDAADFGA82200053 
YQ YQY-YQ8ZQ 
99 9Z Z 9 

GDB0MA0KDHD782200054 
QQ8 9 YQZ-8 
Z 9 9Z 

+AEME-E0GJED82200055 
YQ R Q-ZYQO 
Z 1 91 

AAAAKBE8E9KA82200056 
Y9YY 8Q Q Y 
9 91 1 9 

JAA+AAKHJ AA+82200057 
YYY 9Y80YYY 
999 99—999 

.**..82200058 


A1CH8CB8L AHG82200059 
Y8909Z099Y09 
9 

LJBGO1AHAABA82200060 
9Y09 999QZ9Q 
9-* 9 9 

MABMJ0DEQ5BH822Q0061 
8 Z 89+Q9+99Z 
9 9 

S1BHJBBJKAJF82200062 
8999YZ9Y9YY9 
9 9 9 

K0MF0XAQF.KF82200063 
9+Y9+9YZ9 Z9 
- 9 

H* BHAAHDAY AQ82200064 
9 09QY09Y990 
9 

JSAQ6CK6L—FG82200065 
Y99Z9ZZ99 09 
9 

HAAAAAAADAAA82200066 
9YYYYYYY9VYY 
9999999 999 
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9 Y9 Y9Y9 

9 9 9 
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999 999 
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9 Y88 Y9 

99 9 




BOAT* «.... 




9 

BESD*« • • • «AA*•AAX F82 

20. . AAAA* AGD*.* 
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9 YQ Y9 

99 9 

YYQY Y8Q 

9999 99 



BTXT • A AN* • AC* * A AAL A* 




9 YQ9 Y9 Y9Y8Q 

99 9 9 999 



. . 

BTXT.AA4*.AD.•AAAAJF 




9 YQ8 Y9 Y9YY9Q 

99 9 9 99 9 



..82200073 

BTXT•AAY *•A8*•AAAAKA 

9 YQ Y9 Y9YY 9 

99 9 9 99 

8DABAA7-KA9/0C+NAHPG 
RQ9Q8 Y 9 YYZ 9 

0 9 9 9 

0*0* PCSASAAAAAGA10A0 
- - 88Y8Y-YQYZQ Y-+ 

9 09 9 

0DGA10AA0DGA82200074 
9ZY 8-Y 9ZY 

BTXT*AJJ**A8*•AA1S DA 

9 Y9Y Y9 Y9 8QY 

9 9 9 9 9 9 

OAGOIKA.ODGAIBEAOAGO 

4 +YZ 8- 92Y 8QY*YZ* 

9 9 9 9 - 

IKA.0D6A1BDA0AG012HF 

8- 9ZY 8QY+YZ 9RQ 

9 9 9 

AHHAACEA0AGA82200075 
9-GQY9QY+YZY 

9 9 9 

BTXT.AJH*.A8*•AA10FA 

9 Y9R Y9 Y9 8ZQ 

9 9 9 

IBPA0Y0YFA0YDA83DAB1 

R 9 -Y -YQ -YQ 

92 92 

BX8VBX7GDA0AGA1KG.1H 
- 8- QY+YZY YZ - 

9 9 9 

GJ1AB37GG01082200076 
ZY Q- Z Y 

9 

BTXT.AJA*.A8..AAB27G 

9 Y9Q Y9 Y9- 

9 9 9 

G010B17GKG7H0.F.0YG0 

2 Y- 9 0- - 2 

10B07GD70YA*AAGA2BFA 

Y- -8 - QYZQ R-Q 

09 9 9 

0YHFAHHAACFA82200077 
RQ9-0QY9-Y 

9 

BTXT.AJH*.A8..AA0YAA 

9 Y9 Y9 Y9 YY 

9 9 9 9 

9PFAIFAA9-D70Y602BA0 

82Q YYY -8 2 R8+ 

9 9 

02G-2AD70YA.0YGA2AKG 

8Z Y-8 - ZQ Q 9 

9 9 9 Z 

7H0*F *0YG02282200078 

0 - Z 8 

9 

BTXT.AKA..A8..AAKG7J 

9 Y9Y Y9 Y9 9 Y 

9 9 9 9 

0.BEABA2ACB0MN9KKB7F 
8QV9Y88R8-Z9 I 9 Q 

999 99909 2 

77BK4/KB8M8PEA4KFB0Y 
-8899 9ZQ 9-9 

9 9 

GQ4MK67AO.FJ82200079 
l Y 9 Q -Y 

9 9 

BTXT*AK8«* A8» *AA0YAA 

9 Y99 Y9 Y9 -Q 

9 9 9 9 

AAGA2BAH0YGA2BFH0YG0 

QYZY R—9 ZQ R-9 Z 

09 9 

1FABAAGA22A*0YGA3DAB 
Q-9QY2Y 8- ZY 8-9 

0 09 9 

7DGA22AJ0YGA82200080 

YZQ 8-Y ZY 

9 9 

BTXT* AKO.* A8. . AA3DAB 

9 Y9+ Y9 Y9 8-9 

9-9 99 

7DGA3DAA7*E05DAA0ZGA 
~ZY 8ZY Z + Q-Y ZY 

9 - 9 

2JFD0YD70ZNA8VAEGA2J 

Y—9 -8 Y 8Q9ZY Y 

9 90 

FA0YAA0YGA3D82200081 

-9 -Y ZQ 8 

9 9 

BTXT*AKQ#*A3** AAAAAA 

9 Y90 Y9 Y9-YQ9 

9 9 9 0 

GA3DAA7HE05DAA0ZGA2H 

2Y 8ZY RZ4 Q-Y ZY 

9 - 9 

> 

F*0ZD70ZAA7HE05DAA0Z 
-8 ZY RZ+ Q-Y 

9 

GA2SFJOZD70Z82200082 

ZY 8-Y -8 

9 

BTXT*AKS«.A8«.AAEA50 

9 Y98 Y9 Y9ZQ ♦ 

9 9 9 9 - 

A-02G43DFA0YG03DA.0Y 

Z 8-9 Z 8- 
9 9 

GA3KG030AJ0YGA3KG030 

ZQ 8Z 8-Y ZQ 8Z 8 
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NA7GADG-3KAH82200083 
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Y9 
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9 

9 

9 
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9 

9 9 

BTXT*ALH. 

• A8® 

•AA7DGA 

5FKA8DABBEABHDHDB0MA 

8GAAADLH+A7SBEACGJGS 

BOJA7CACAOAA82200086 

9 Y90 

Y9 

Y9 YZQ 

9 RQ98QY99R9R8—Z8 

8ZYY980 Q 88QY99Z98 

8-YQ QZQY9-Y 

9 

9 

9 9 

0 999 9 9 

99-0 999 

9 9 9 09 

BTXT*ALO* 

* A8. 

•AAAAGA 

4.BEACAMGJB0JG7DED1H 

G-4W+J70BEACG1G0B0JC 

7LKB7F7BB04/82200087 

9 Y9* 

Y9 

Y9QYZQ 

8QY9889 8-Y8 Y-Q R 

Z , 8 Y 8QY99 9 8-Y8 

Y 9 Q Q-9 8 

9 

9 

9 09 9 

999 9 999 0 

9 999 9 9 

9 Z Z 9 

BTXT*AL8* 

*A8. 

•AAKG7J 

JAEA4KA0JDGA4WAKAHG0 

38BEAHGJGJKG8B7JKG8C 

7QB0JK7EG9KA82200088 

9 Y9 

Y9 

Y9 9 Y 

YYZQ 9-+Y9ZY 8ZYY9Z 

8QY99Y9Y 9 9 Y 9 8 

08-Y8 Q9 Y 

9 

9 

9 

9 9 9 

999 9 

9 9 Z 9 

BTXT*AMA. 

.AS. 

•AA7EAD 

B0JB7HB0JB7BKB7FT7BK 

4/AHAAGA4BKB8M8KHCAF 

.A4UAHAH.A4D82200089 

9 Y9Q 

Y9 

Y9 QQ9 

8-Y8 08-Y8 9 Q -0 

8-9QYZY R 9 9 8ZYY9 

Y 8Z0Y9 Y Q 

9 Z 

9 

9 00 

9 9 -9 9 Z 9 

9 09 0 9 9 

9 
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Y9 
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9 

9 

9 


09 

9 
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9 Y 9Q9-9 ZY 8QY9 

99998—Y8 88Q 

9 

9 

9 9 

0 

9 0 999 

9 9 999 
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9 Y99 

Y9 
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ZYY9Z9 8RQ -9QZY 8Z9 
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9 

9 
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BTXT.AP.. 

• A8 • 
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AAAAAAAAAAAA82200103 

9 Y9 

Y9 

Y9 9-9 
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9 

9 

9 
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Y9 
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9 

9 


9 
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9 

9 
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Y9 

Y9 
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9 
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I0.L00P.READ82200109 

9 Y98 

Y9 

Y9 


8 


9 

9 

9 




BTXT.AQC. 

• A8. 

• AA* ERR 
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1403 FUNCTION TEST 


1403 PRINTER FUNCTION TESTS 
DESCRIPTION 

TABLE OF CONTENTS 

1. PURPOSE.1 

2. REQUIREMENTS • .. ...... 1 

3. OPERATING PROCEDURE . . 1 

4. PRINTOUTS.2 

5. COMMENTS . . . . ■. 3 

1. PURPOSE 


1.1 INTENT. 

F830 PRINTER FUNCTION 1 
TESTS ABILITY TO... 

1. ADDRESS THE DEVICE UNDER TEST. 

2. ISSUE SENSE START 1-0. 

3. PROPERLY SET ALL CONDITION CODES. 

4. CLEAR INTERRUPTS WITH TEST 1-0 AND BY ENABLING 
THE SYSTEM MASK. 

5. PROPERLY STORE THE CSW ICHANNEL STATUS WORD). 

6. PROPERLY SET AND SUPPRESS THE INCORRECT LENGTH 
INDICATOR* 

7. COMMAND AND DATA CHAIN CHANNEL COMMAND WORDS (CCH). 

F831 PRINTER FUNCTION 2 
TESTS ABILITY TO... 

1. BREAK COMMAND CHAINING WITH UNIT CHECK (CHANNEL 9). 

2. DISTINGUISH BETWEEN.DATA AND COMMAND CHAINING. 

3. BREAK COMMAND CHAINING WITH UNIT EXCEPTION (CHANNEL 12). 

4. BREAK COMMAND CHAINING WITH INCORRECT LENGTH RECORD. 

5. REJECT THE BLOCK OR ALLOW DATA CHECK COMMAND AND THE 
PRE-CONDITION LOAD COMMAND IF THEY ARE NOT FIRST 

IN A CHAIN. 

6. PRINT BLANKS 

7. SET AND RESET THE PRE-CONDITION LOAD LATCH. 

8. REJECT ALL INVALID COMMANDS ISSUED T0 THE DEVICE. 

F832 PRINTER FUNCTION 3 
TESTS ABILITY TO... 

1. LOAD THE UCS BUFFER WITH OR WITHOUT FOLDING. 

2. LOAD THE UCS BUFFER AND SET THE INCORRECT LENGTH 
RECORD FLAG ON WITH A SHORT OR LONG COUNT. 

3. LOAD THE UCS BUFFER WITH BLANKS -40-. 

4. SET PRINT CHECK. 

5. ISSUE DIAGNOSTIC CHECK READ AND OBTAIN CORRECT READ 
BACK. 

6. SET PRINT LINE COMPLETE BIT. 

7. ALLOW OR BLOCK DATA CHECKS DEPENDING UPON THE SETTING 
OF THE BLOCK DATA CHECK LATCH. 

8. PRINT A CHARACTER ON A SINGLE COMPARE BETWEEN DATA 
BUFFER AND UCS BUFFER. 

9. LOAD THE DATA BUFFER WITH A SINGLE CHARACTER WITHOUT 
AFFECTING THE REST OF THE BUFFER. 

10. CORRECTLY TRANSFER WHAT IS IN THE PRINT AREA TO 
THE DATA BUFFER. 

11. PERFORM’ FOLDING FROM THE 1ST TO THE 4TH QUADRANT. 

12. CORRECTLY TRANSLATE DUALING CHARACTERS. 
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2. PREREQUISITES 


2.1 PROGRAM REQUIREMENTS. 

ALL SECTIONS ARE RELOCATABLE. 

THE EXCLUSIVE CPU FLAG 1$ ON IN ALL SECTIONS. 


THE UNIT DEFINITION TABLE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 


* UNIT CODE ♦ * 

- * OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 

* * * 


* UNIT *ZZ*BIT 0* BIT 1* BIT 2♦ BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 

* -*—*--*-- — *-*- — -*- - * —-* 

* 1403 PRINTER*83*ASClI*SEL * *UN!V. * HI- * 120 * * 2821 * 

* OR * * *TAPE * *CHAR. *SPE£D *PR1NT * *2 CHNL * 

* 1404 PRINTER* * *LISTER* *BUPF. *PTR. *P0$. * ^SWITCH * 

* CONTINUOUS * * * * * * * * * * * 

* FORMS * * * * * * * * * * 


2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR PROGRAM LOADING. 
OUTPUT DEVICE OTHER THAN TEST DEVICE. 
4K OF STORAGE FOR THIS PROGRAM. 

CPU 

CHANNEL 


3. USE PROCEDURE 

3.1 PROGRAM LOADIMG. 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 


**************************** nqte ***************************** 

* IF 2 CHANNEL SWITCH FEATURE INSTALLED* DISABLE THE UNUSED * 

* INTERFACE TO PREVENT NOT READY TO READY STATUS FROM BEING * 

* PRESENTED TO THE OTHER CHANNEL. * 

*************************************************************** 
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3*2*1 SENSE SWITCH USAGE* 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTES OF THEIR 
RESPECTIVE SECTION PREFACES* THE CHARACTER X REPRESENTS THE RELOCATION 
FACTOR CONTAINED IN REGISTER IS DURING RUN TIME. the SWITCH BITS ARE 
ZERO WHEN OFF, AND ONE WHEN ON. 


I SENSE I 
I SW* I 
I # I 


I 0 l 
I I 

I"- 1 

I 1 I 
I I 

I 5 I 
I I 

I 7 I 
I I 

I 24 I 
I I 

I I 

I I 

I I 


QFF-PRGCEEO 

ON—LOOP ON CURRENT 1-0 COMMAND* 
OFF-PROCEED 

ON'—LOOP ON CURRENT $10, 110 COMMAND* 

OFF-BYPASS MANUAL INTERVENTION ROUTINES* 
ON— PERFORM MANUAL INTERVENTION ROUTINES. 


SECTION 

OR 

ROUTINE 


I BYTE 
I AND 

I BIT 


I X004 
1 0 


I X004 

I 1 


I XQQ4 
I 5 


QFF-PROCEED 1 

ON—PRINT CORRECT RESULTS* I 

OFF-PROGRAM WILL ASSUME THE PRINTER DOES I 

HAVE A PCS EMITTER CHAIN, AND IS THEREFORE I 
NOT IN DUAL INS MODE I 

ON—PROGRAM WILL ASSUME THE PRINTER DOES NOT HAVEI 
PCS EMITTER CHAIN AND IS IN DOALING MODE S 


I X004 
I 7 

I XOO? 
I 0 
I 
I 
I 


3.2.2 DUALIMG MODE INFORMATION 

IF THE UCS PRINTER IS AN ~N1~, OR MOD 3, YOU CAN TELL IF IT IS IN 
OUALING MODE BY INSPECTING THE INSTALLED CHAIN CARTRIDGE. WHILE FACING 
THE PRINTER, YOU WILL SEE A MICRO SWITCH LOCATED NEAR THE 
LEFT END OF THE CARTRIDGE. IF THIS SWITCH IS NOT DEPRESSED BY A 
CUP OR TAB ON THE CARTRIDGE, THE PRINTER IS IN OUALING MODE. 


IF THF UCS PRINTER IS A MOD 2, YOU CAN TELL IF IT IS IN OUALING 
MODE BY INSPECTING THE INSTALLED CHAIN CARTRIDGE® WHILE FACING 
THE PRINTER YOU WILL SEE A SMALL CABLE CONNECTED TO THE LEFT END 
OF THE CHAIN CARTRIDGE. IF THIS CABLE IS DISCONNECTED, THE PRINTER 
IS IN OUALING MODE. 


3.2 PROGRAM HALTS 

F830 - THE PROGRAM WILL HALT ONCE FOR EACH DEVICE TO BE TESTED, AFTER 
' INSTRUCTING THE OPERATOR TO INSTALL THE DIAGNOSTIC CARRIAGE 
TAPE* THE PROGRAM WILL ALSO HALT MANY TIMES IN ROUTINE 07 
AFTER PRINTING OPERATOR INSTRUCTIONS, AND AT THE END OF THE 
ROUTINE. 

F832 - THE PROGRAM WILL HALT FOR EACH UCS PRINTER, AFTER INSTRUCTING 
THE OPERATOR TO CHECK SECTION SENSE SWITCH 24. ‘V 



j 

f 


I 


3.3 PROGRAM OPERATE 

ALL ROUTINES IN EACH SECTION WILL BE RUN ON A DEVICE, BEFORE 
THE SECTION PROCEEDS TO THE NEXT DEVICE. 


4* PRINTOUTS 

4.1 OPERATOR INSTRUCTIONS 

FB 30 

- INSTALL CARRIAGE TAPE, CE OUTPUT MUST NOT BE TEST DEVICE- 
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THE ABOVE MESSAGE WILL OCCUR ONCE FOR EACH DEVICE, PRIOR TO A HALT# 

SEE F838* FOR DESCRIPTION OF CARRIAGE TAPE. MAKE THE DEVICE READY 
FOR THE TEST. IT MAY BE NECESSARY TO REDEFINE THE CE OUTPUT DEVICE 
AT THIS TIME. 

- RTN BYPASSED - 

THE ABOVE MESSAGE WILL OCCUR WHEN A ROUTINE IS BYPASSED* 

ROUTINE 07 WILL BE BYPASSED IF SECTION SENSE SWITCH 5 IS OFF . 

THIS ROUTINE REQUIRES MANUAL INTERVENTION. IT TESTS 
THE RESPONSE OF A NOT READY DEVICE, A NOT .AVAILABLE 
DEVICE, AND REQUIRES OBSERVING CARRIAGE RESPONSE. 

ROUTINE 11 WILL BE BYPASSED IF SECTION SENSE SWITCH 7 IS ON • 

TESTS 0400 TO 0450 OF THIS ROUTINE ARE BYPASSED IF 
CORRECT PRINT SWITCH IS ON. THIS IS OUE TO TIMING 
RESTRICTIONS. MISLEADING RESULTS WOULD OCCUR IF TIME 
WAS TAKEN BETWEEN TESTS 0400 AND 0430 TO ATTEMPT 
PRINTING CORRECT RESULTS. 

- MAKE NOT READY- 

THE ABOVE PRINTOUT WILL APPEAR PRIOR TO A HALT IN ROUTINE 07. THE 
OPERATOR SHOULD DROP READY ON THE TEST DEVICE AT THIS TIME. 

- MAKE UNAVAILABLE- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR*SHOULD MAKE THE TEST DEVICE UNAVAILABLE AT THIS TIME# FOR 
EXAMPLE, TAKE THE DEVICE OFF LINE. 

- MAKE AVAILABLE, RESTORE, READY- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD PLACE THE DEVICE ON LINE, RESTORE THE CARRIAGE, 

AND READY THE DEVICE BEFORE CONTINUING. 

- OBSERVE NO CARRIAGE MOT ION- 

- SKIP TO 1 IMMED- 

THE ABOVE PRINTOUTS WILL APPEAR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD WATCH THE TEST DEVICE FOR ERRONEOUS CARRIAGE MOTION. 

- OBSERVE NO CARRIAGE MOTION- 

- PRINT NO SPACE- 

THE ABOVE PRINTOUT WILL APPEAR IN ROUTINE 07 PRIOR TO A HALT. THE 
OPERATOR SHOULD WATCH THE TEST DEVICE FOR ERRONEOUS CARRIAGE MOTION. 

- OBSERVE CARRIAGE MOTION- 

- SKIP TO 1 IMMEO- 

THE ABOVE PRINTOUT WILL OCCUR IN ROUTINE 07, PRIOR TO A HALT. THE 
OPERATOR SHOULD WATCH THE TEST OEVICE TO MAKE SURE THE CARRIAGE MOVES. 


-SEC SS 24 IS OFF SET IT ON FOR OUALING MOOE- 

-SEC SS 24 IS ON SET IT OFF IF NOT OUALING MODE- 

ONE OF THE ABOVE MESSAGES WILL APPEAR ONCE FOR EACH UCS PRINTER, 
PRIOR TO A HALT. THE OPERATOR SHOULD CHECK FOR THE PROPER SETTING 
OF THIS SWITCH BEFORE EACH DEVICE IS TESTED. 

ROUTINE 07 MILL BE BYPASSED IF SECTION SENSE SWITCH 24 IS OFF. 
THIS ROUTINE TESTS OUALING MODE. 
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4.2 STATUS MESSAGES 

4.2.1 SAMPLE CORRECT PRINTOUT 

LINE MESSAGE 

01 - S OO F8304 08 00135C OOE- 

02 - TST 0370- 

03 ~ ADR 001BA4 LINK-r 

04 - ADR 001182 SIO- 

05 - CAW 001BB8- 

06 - CCW 05001831 80000020- 

- CCW 00001831 00000064- 
07 - CC 0 EXP- 

08 - CC 0 ACT- 

09 - CSW OOOOIBC8 08000001 EXP- 

10 - CSW 00001BC8 08000001 ACT- 

11 - CSW 00000000 04000000 EXP- 

12 - CSW 00000000 04000000 ACT- 

13 - SNS 00 EXP- 

14 - SNS 00 ACT- 

15 - LOG 00 000000 000000 000000- 

16 - SS 0 ON FOR LOOP ON SIO, SS 1 ON FOR TIO SIO LOOP- 

4.2.2 ANALYSIS OF SAMPLE PRINTOUT 

LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY DM. IF AN ASTERISK 

PRECEEDS THE -SDO- AN ERROR HAS CAUSED THE MESSAGE 

PRINTOUT., IF NO ASTERISK IS PRINTED, THE MESSAGE 
IS A RESUtT OF EITHER HAVING THE CORRECT PRINTOUT 
SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 
BY ANOTHER -SDO- PRINTOUT. THE -F830R- IS THE SECTION 
ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 
THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 
WHILE THE -OOE— IS THE ADDRESS OF THE DEVICE UNDER 
TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 

BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 

SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUEO 
FROM THIS SUB-ROUTINE, SO IT IS ENTEREO MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION 
WILL BE THE NEXT ONE PERFORMED, RESTART THE PROGRAM WITH A 
SYSTEM RESET, PSW RESTART, AND AODRESS STOP AT THE GIVEN 
ADDRESS. 

04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANOLER SUB-ROUTINE. 

05 THIS LINE SHOWS THE ADDRESS OF THE CCW TO BE ISSUED BY 

A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE ADDRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 

THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 


15MAR66 15N0V66 120CT67 

125632 125655 131812 


DATE 

EC 


ID F830-* 
PAGE 3 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


1403 FUNCTION TEST 


07 THIS LINE SHOWS THE CONDITION CODE EXPECTEO, BY THE 

PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 

TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTEO BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE DEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECIEVED BY THE PROGRAM. 
NOTE...FOR EVERY EXPECTEO -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 
ONE CSW. 

12 THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS 

IN THE PROGRAM LISTING, AFTER THE TEST NUMBER DESCRIPTIONS. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECIEVED BY THE PROGRAM 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 

MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON* 

A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR. 

SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP* 

- PREVIOUS HANGUP OEtECTED- 

- SEE DESCRIPTION-COMMENTS - 


5. COMMENTS 

5.1 LOOPING 

IF IT IS DESIRED TO LOOP ON AN ENTIRE ROUTINE RATHER THEN USE THE 
SECTION SENSE SWITCH LOOPS PROVIDED. MANUALLY ENTER 
THE NUMBER OF THE ROUTINE IN X04C. WHERE X STANOS FOR THE RELOCATION 
ADDRESS. NOW PERFORM A SYSTEM RESET-PSW RESTART, TO LOOP THE ROUTINE. 
SENSE SWITCHES MAY BE SET BY MANUALLY ENTERING THE DESIRED BITS. 

5.2 HANG UP 

THE HANG UP MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANGUP CONDITION ON AN I-G COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE. 

A FALSE HANG UP MESSAGE PRINTOUT CAN OCCUR IF THE OPERATOR PERFORMS 
A SYSTEM RESET-PSW RESTART WHILE THE PROGRAM IS RUNNING. THE PROGRAM 
WILL RESTART AFTER PRINTING THE MULTI-LINE ERROR MESSAGE, OR ANOTHER 
SYSTEM RESET PSW RESTART MAY BE PERFORMED TO BYPASS THE ERROR MESSAGE. 
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COCAT OBJECT CODE STMT SOURCE STATEMENT 

PROGRAM LENGTH * 3944 (DECIMAL) 

2 PRINT ON,GEN,DATA 

01000 3 XF8305 START 4096 

01000 A USING *,15 

5 * 

6 ♦ 

7 *********************************************************************** 

8 * MODIFICATIONS 

9 * 

10 * REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS.,. 

11 ♦ 1 . PROGRAM HAS BEEN MODIFIED TO RUN WITH DM-44. 

12 *********************************************************************** 

13 * REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 

14 * 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

15 * 2. THE PROGRAM WILL TEST THE RESET OF THE CARRIAGE LATCHES 

16 * ON A PRINT AND SPACE COMMAND. 

17 * 3. INCREASED TESTING AND USE OF HALT I-C INSTRUCTION. 

18 * 4 . TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD 

19 * ON A READ COMMAND. 

20 * • 5. INCLUDE TESTING PREVIOUSLY HANDLED BY PROGRAM ID F833 WHICH 

21 * IS NOW OBSOLETE. 

22 * E.C. PREREQUISITES 

23 * MACHINE . . . 2821 MUST BE AT MINIMUM EC 125655 

24 * PROGRAM ... NONE 

25 * USE DESCRIPTION F830* AT EC 125655, OATED NOV 15, 1966 OR LATER. 

26 *********************************************************************** 

27 * REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

28 * 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

29 * LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

30 * E.C. PREREQUISITES 

31 * MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

32 * PROGRAM . . . NONE 

33 *********************************************************************** 

34 * 

35 * 

38 *********************************************************************** 

37 * TEST NUMBER DESCRIPTION 

38 *********************************************************************** 

39 *********************************************************************** 

<40 * TEST DESCRIPTION 

- ^ 41 * 

42 * 

43 * ROUTINE 01 

44 * 

45 * 0010 - OPERATION ATTEMPTED 

46 * A TEST 1-0 IS ISSUED TO A READY DEVICE. 

47 * 

48 * EXPECTED RESPONSE 

49 * 

50 * EXPECT COND. CODE 0 (COMMAND ACCEPTED) 

51 * 

52 * POSSIBLE FAILURE CAUSES 

53 * 

54 * 1. CONDITION CODE 2 INDICATES THE CHANNEL APPEARS TO BE BUSY. 

55 * 2. CONDITION CODE 3 INDICATES THERE IS NO DEVICE FOR THE 

56 * ADDRESS USED. THE OM UDT ENTRY COULD BE IN ERROR, OR THE 

57 * DEVICE MAY BE OFF LINE. 

58 * 3. IF CONDITION CODE 1 IS SET, THE CSW MUST BE INSPECTED TO 

59 * DETERMINE THE CAUSE. UNIT CHECK MIGHT BE DUE TO NOT READY 

60 * DEVICE. CHANNEL OR DEVICE END INDICATES THAT AN INTERRUPT 

61 * WAS PENDING IN THE CHANNEL. 

62 * 


1403 PRINTER FUNCTION 1 

LOCAT OBJECT CODE STMT SOURCE STATEMENT 

63 * 

64 * ROUTINE 02 

65 * 

66 * 0020 - OPERATION ATTEMPTED 

67 * 

68 * A SENSE START 1-0 IS ISSUED TO READY DEVICE. 

69 * 

70 * EXPECTED RESPONSE 

71 * 

72 * EXPECT COND. CODE 0 (COMMAND ACCEPTED) 

73 * 

74 * POSSIBLE FAILURE CAUSES 

75 * 

76 * 1. CONDITION COOE 2 COULD BE DUE TO A PENDING CHANNEL END, OR 

77 * A BUSY CHANNEL. 

78 * 2. IF CONDITION CODE 1 WAS SET, THE CSW MUST BE INSPECTED TO 

79 * DETERMINE THE CAUSE. DEVICE END WITH DEVICE BUSY INDICATES 

80 * A DEVICE END WAS PENDING IN THE DEVICE. 

81 * 

82 * 

83 * 0030 - OPERATION ATTEMPTED 

84 * 

85 * A TEST 1-0 TO PENDING CHANNEL AND DEVICE END FROM PREVIOUS 

86 * SENSE IS ISSUED. 

87 * 

88 * EXPECTED RESPONSE 

89 * 

90 * EXPECT COND. CODE 1 AND CHANNEL END DEVICE END BOTH IN THE CSW 

91 * FROM THE PREVIOUS SENSE I/O COMMAND. 

92 * 

93 * POSSIBLE FAILURE CAUSES 

94 * 

95 * 1. CONDITION CODE 2 INDICATES THE CHANNEL IS BUSY. 

96 * 2. FAILURE TO RECEIVE CHANNEL AND DEVICE END COULD INDICATE 

97 * THE DEVICE FAILED TO PRESENT ENblNG STATUS. 

98 * 

99 * 

100 * 0040 - OPERATION ATTEMPTED 

101 * 

102 * ANOTHER TIO IS GIVEN. 

103 * 

104 * EXPECTED RESPONSE 

105 * 

106 * EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 

107 * INTERRUPTS. 

108 * 

109 * POSSIBLE FAILURE CAUSES 

110 * 

111 * 1. CONDITION COOE 1 WITH UNIT CHECK IN THE CSW COULD INDICATE 

112 * A NOT READY DEVICE. CHANNEL OR DEVICE END INDICATES THE 

113 * PREVIOUS TIO FAILED TO CLEAR THEM. 

114 * 

115 * 

116 * ROUTINE 03 

117 * 

118 * 0050 - OPERATION ATTEMPTED 

119 * 

120 * A SENSE SIO IS ISSUED, 

121 * 

122 * EXPECTED RESPONSE 

123 * 

124 * EXPECT CHANNEL END DEVICE END TOGETHER. 

125 * 

126 * POSSIBLE FAILURE CAUSES 
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128 * 1* FAILURE TO RECEIVE CHANNEL AND DEVICE END INDICATES THAT 

129 * ENABLING THE CHANNEL FOR I~0 INTERRUPTS FAILED TO BRING IN 

130 * THE DEVICE STATUS. 

131 * 

132 * 

133 * 0060 - OPERATION ATTEMPTED 

134 * 

135 * TEST 1-0 IS ISSUEO. 

136 * 

137 * EXPECTEO RESPONSE 

138 * 

139 * EXPECT COND. CODE 0. DEVICE SHOULD BE CLEAR OF PENDING 

140 * INTERRUPTS. 

141 * 

142 * 

143 * ROUTINE 04 

144 * 

145 * 0070 - OPERATION ATTEMPTED 

146 * 

147 * A NOP SIO IS ISSUED TO READY DEVICE. 

9 148 * 

149 * EXPECTED RESPONSE 

150 * 

151 * EXPECT COND. COOE l WITH CHANNEL END DEVICE END STORED IN 

152 * THE CSW. NO INTERRUPT SHOULD OCCUR. 

153 * 

154 * 

155 * 0080 - OPERATION ATTEMPTED 

156 * 

157 * IF UCS PRINTER A PRE-CONDITION LOAD IS ISSUED. 

158 * 

159 * EXPECTED RESPONSE 

160 * 

161 * THIS COMMAND ACTS LIKE A NOP. EXPECT COND. CODE 1 WITH 

162 * CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 

163 * SHOULD OCCUR. 

164 * ************************************************************* 

165 * NOTE...THIS TEST DOES NOT PRINTOUT IF THE CORRECT PRINTOUT 

166 * SWITCH IS ON AND THE TEST DEVICE IS NOT A UCS 

167 * PRINTER. 

168 * ************************************************************* 

169 * 

170 * 

171 * 0090 - OPERATION ATTEMPTED 

172 * 

173 * IF UCS PRINTER A BLOCK DATA CHECK IS ISSUED. 

174 * 

175 * EXPECTED RESPONSE 

176 * 

177 ♦ THIS COMMAND ACTS LIKE A NOP. EXPECT COND. CODE 1 WITH 

178 * CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 

179 * SHOULD OCCUR. 

180 * *************************^*********************************** 

181 * NOTE...THIS TEST DOES NOT PRINTOUT IF THE CORRECT PRINTOUT 

182 * SWITCH IS ON AND THE TEST DEVICE IS NOT A UCS 

183 * PRINTER. 

184 ♦ ft************************************************************ 

185 ♦ 

186 * 

187 * 0100 - OPERATION ATTEMPTED 

188 * 

189 * IF UCS PRINTER AN ALLOW DATA CHECK IS ISSUEO. 

190 * 
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191 * EXPECTED RESPONSE 

192 * 

193 * THIS COMMAND ACTS LIKE A NOP. EXPECT COND. COOE 1 WITH 

194 * CHANNEL END DEVICE END STORED IN THE CSW. NO INTERRUPTS 

195 * SHOULD OCCUR. 

196 * ************************************************************* 

197 * NOTE...THIS TEST DOES NOT PRINTOUT IF THE CORRECT PRINTOUT 

198 * SWITCH IS ON AND THE TEST DEVICE IS NOT A UCS 

199 * PRINTER. 

200 * ************************************************************* 

201 * 

202 * 

203 * ROUTINE 05 

204 * 

205 * 0110 - OPERATION ATTEMPTED 

206 * 

207 * A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 131. 

208 * 

209 * EXPECTED RESPONSE 

210 * 

211 * EXPECT CHANNEL END WITH INCORRECT LENGTH RECORD AND THEN 

212 * DEVICE END. 

213 * 

214 * 

215 * 0120 - OPERATION ATTEMPTED 

216 * 

217 * A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 131 WITH SLI FLAG. 

218 * 

219 * EXPECTED RESPONSE 

220 * 

221 * EXPECT CHANNEL END AND THEN DEVICE ENO. INCORRECT LENGTH 

222 * RECORD SHOULD BE BLOCKED. 

223 * 

224 * 

225 * 0130 - OPERATION ATTEMPTED 

226 * 

227 * A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131. 

228 * 

229 * EXPECTEO RESPONSE 

230 * 

231 * EXPECT CHANNEL END DEVICE END AND INCORRECT LENGTH RECORD 

232 ♦ ALL TOGETHER. 

233 * 

234 * 

235 * 0140 - OPERATION ATTEMPTED 

236 * 

237 * A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 131 WITH SLI FLAG. 

238 * 

239 * EXPECTEO RESPONSE 

240 * 

241 * EXPECT CHANNEL END DEVICE END TOGETHER. INCORRECT LENGTH 

242 * RECORD SHOULD BE BLOCKED. 

243 * 

244 * 

245 * 0150 - OPERATION ATTEMPTED 

246 * 

247 * A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 133. 

248 * 

1 249 * EXPECTEO RESPONSE 

250 * 

251 * EXPECT CHANNEL END» INCORRECT LENGTH RECORD* AND RESIDUAL 

252 * COUNT OF 1. THEN DEVICE END. 

253 * 

254 * 
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1403 PRINTER FUNCTION I 


LOCAT OBJECT CODE 


255 * 

256 * 

257 * 

258 * 

259 * 

260 * 
261 * 
262 * 

263 * 

264 * 

265 * 

266 * 

267 4 

268 * 

269 * 

270 * 

271 * 

272 * 

273 * 

274 * 

275 * 

276 * 

277 * 

278 * 

279 * 

280 * 
281 * 
282 * 

283 * 

284 * 

285 * 

286 * 

287 * 

288 * 

289 * 

290 * 

291 * 

292 * 

293 * 

294 * 

295 * 

296 * 

297 * 

298 * 

299 * 

300 * 

301 * 

302 * 

303 * 

304 * 

305 * 

306 * 

307 * 

308 * 

309 * 

310 * 

311 * 

312 * 

313 * 

314 * 

315 * 

316 * 

317 * 

318 * 


SOURCE STATEMENT 
0160 - OPERATION ATTEMPTED 

A DIAGNOSTIC WRITE IS ISSUED WITH COUNT OF 133 WITH SLI FLAG* 
EXPECTEO RESPONSE 

EXPECT CHANNEL END WITH RESIDUAL COUNT OF 1 AND THEN DEVICE 
END. 


0170 - OPERATION ATTEMPTED 

A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 133. 
EXPECTED RESPONSE 

EXPECT CHANNEL END * DEVICE END, INCORRECT LENGTH, AND 
RESIDUAL COUNT OF 1 ALL TOGETHER. 


0180 - OPERATION ATTEMPTED 

A DIAGNOSTIC READ IS ISSUED WITH COUNT OF 133 WITH SLI FLAG. 
EXPECTEO RESPONSE 

EXPECT CHANNEL END DEVICE END WITH RESIDUAL COUNT OF 1 
ALL TOGETHER. 


ROUTINE 06 


0190 - OPERATION ATTEMPTED 


A DIAGNOSTIC WRITE IS ISSUED. 


EXPECTEO RESPONSE 

EXPECT COND. CODE 0. NO INTERRUPTS ARE CLEARED. 


0200 - OPERATION ATTEMPTED 


ANOTHER DIAGNOSTIC WRITE IS ISSUED. 


EXPECTEO RESPONSE 


EXPECT COND. CODE 2 BECAUSE CHANNEL END OF PREVIOUS WRITE WAS 
NOT CLEARED. 


0210 - OPERATION ATTEMPTED 


A HALT 1-0 IS ISSUED. 


EXPECTEO RESPONSE 


EXPECT COND. COOE 0 


0220 - OPERATION ATTEMPTED 


A TEST 1-0 IS ISSUED. 


LOCAT OBJECT CODE 


SOURCE STATEMENT 


319 * 

320 * 

321 * 

322 * 

323 * 

324 * 

325 * 

326 * 

327 * 

328 * 

329 * 

330 * 

331 * 

332 * 

333 * 

334 * 

335 * 

336 * 

337 * 

338 * 

339 * 

340 * 

341 * 

342 * 

343 * 

344 * 

345 * 

346 * 

347 * 

348 * 

349 * 

350 * 

351 * 

352 * 

353 * 

354 * 

355 * 

356 * 

357 * 

358 * 

359 * 

360 * 

361 * 

362 * 

363 * 

364 * 

365 * 

366 * 

367 * 

368 * 

369 * 

370 * 

371 * 

372 * 

373 * 

374 * 

375 * 

376 * 

377 * 

378 * 

379 * 

380 * 

381 * 

382 * 


EXPECTEO RESPONSE 

EXPECT COND. CODE 1 AND CHANNEL END FROM PREVIOUS DIAGNOSTIC 
WRITE SHOULD 8E IN THE CSW. 


0230 - OPERATION ATTEMPTED 


A HALT 1-0 IS ISSUED. 


EXPECTED RESPONSE 


EXPECT ZERO CSW AND COND. CODE 1. 


0240 - OPERATION ATTEMPTED 

ANOTHER DIAGNOSTIC WRITE IS ISSUED. 

EXPECTEO RESPONSE 

EXPECT DEVICE BUSY AND DEVICE END. COND. CODE 1 SHOULD OCCUR 
BECAUSE DEVICE END SHOULD STILL BE PENDING. 


0250 - OPERATION ATTEMPTED 


A HALT 1-0 IS ISSUED. 


EXPECTED RESPONSE 

EXPECT A ZEROED CSW AND A COND. CODE OF 1. 


0260 - OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED. 

EXPECTED RESPONSE 

EXPECT COND. CODE 1 BECAUSE THE DEVICE SHOULD BE CLEARED OF 
PENDING INTERRUPTS. 


ROUTINE 07 

0270 - OPERATION ATTEMPTED 

A NOP SIO IS ISSUED TO A NOT READY DEVICE. 

EXPECTEO RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 


0280 - OPERATION ATTEMPTED 

A TEST 1-0 IS ISSUED TO A NOT READY DEVICE. 

EXPECTED RESPONSE 

EXPECT UNIT CHECK ALONE AND COND. CODE OF 1. A SENSE IS 
ISSUED AND INTERVENTION REQUIRED SHOULD BE IN THE SENSE BYTE. 


DATE 15MAR66 15NQV66 120CT67 

EC •$ 125632 125655 131812 


ID F830-5 
PAGE 3 


15MAR66 15N0V66 120CT67 
125632 125655 131812 


ID F830-5 
PAGE 3A 












IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 8AO 104 
PAGE A 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 8A010A 
PAGE AA 


1403 

LOCAT 


f 


DATE 
EC • S 


o o o o 


PRINTER FUNCTION 1 


1403 PRINTER FUNCTION 1, 


OBJECr CODE 


STMT 


SOURCE STATEMENT 

LOCAT OBJECT CODE 

STMT 


SOURCE STATEMENT 

383 

♦ 





447 

♦ 


EXPECT CHANNEL END AND THEN DEVICE END. 

384 

♦ 





448 

* 


NOTE...NO HAMMERS WILL BE FIRED. 

385 

♦ 

0290 

- 

OPERATION ATTEMPTED 


449 

♦ 



386 

♦ 





450 

♦ 



387 

* 



ISSUE A HALT 1-0 TO NOT READY DEVICE. 


451 

* 

0360 - 

OPERATION ATTEMPTED 

388 

* 




452 

* 



389 

♦ 



EXPECTED RESPONSE 


453 

* 


A SKIP TO 1 IMMEDIATE IS ISSUED. 

390 

* 




454 

* 


■ 

391 

♦ 



EXPECT A ZEROED CSW WITH COND. CODE 1. 


455. 

♦ 


EXPECTEO RESPONSE \ 

392 

* 





456 

* 



393 

* 





457 

* 


EXPECT CHANNEL END AND THEN DEVICE END. PREVIOUS PRINT AND 

394 

* 

0300 

— 

OPERATION ATTEMPTED 


458 

♦ 


SPACE SUPPRESS SHOULD HAVE RESET THE CARRIAGE LATCHES, AND 

395 

♦ 





459 

♦ 


THE CARRAIGE SHOULD SKIP TO THE NEXT CHANNEL 1. 

396 

♦ 



A NOP SIO IS ISSUED TO A NOT AVAILABLE DEVICE. COFF LINE) 


460 

* 



397 

♦ 





461 

♦ 



398 

♦ 



EXPECTED RESPONSE 


462 

♦ 


ROUTINE 08 

399 

* 





463 

♦ 



400 

$ 



COND. CODE 3 SHOULD BE SET INOT OPERATIONAL) 


464 

♦ 

0370 - 

OPERATION ATTEMPTED 

* 401 

* 





465 

♦ 



402 

♦ 





466 

♦ 


A DIAGNOSTIC WRITE WITH A COUNT OF 32 IS DATA CHAINED TO AN 

403 

♦ 

0310 

- 

OPERATION ATTEMPTED 


467 

* 


INVALID COMMAND WITH A COUNT OF 100. 

404 

* 





468 

* 



405 

* 



A TEST I-Q IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 


469 

* 


EXPECTED RESPONSE 

406 

* 




470 

♦ 



407 

* 



EXPECTED RESPONSE 


471 

* 


EXPECT CHANNEL END AND THEN DEVICE ENO. NO ERRORS SHOULD 

408 

* 




472 

♦ 


OCCUR BECAUSE THE SECOND COMMAND SHOULD NOT BE INSPECTED. 

409 

* 



COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL) 


473 

* 



410 

♦ 




474 

* 



All 

♦ 





475 

♦ 


ROUTINE 09 

412 

* 

0320 

_ 

OPERATION ATTEMPTED 


476 

♦ 



413 

* 





477 

* 

0380 - 

OPERATION ATTEMPTED 

414 

* 



A HALT 1-0 IS ISSUED TO A NOT AVAILABLE DEVICE. (OFF LINE) 


478 

♦ 


A NOP IS COMMAND CHAINED TO ANOTHER NOP WITH A COUNT OF 1. 

* 415 

♦ 




479 

♦ 


416 

* 



EXPECTED RESPONSE 


480 

♦ 



417 

* 





481 

* 


EXPECTED RESPONSE 

418 

* 



COND. CODE 3 SHOULD BE SET (NOT OPERATIONAL). 


482 

* 



419 

* 




483 

♦ 


EXPECT CHANNEL END DEVICE END AND RESIDUAL COUNT OF 1 TOGETHER 

420 

♦ 





484 

* 


EXPECT COND. CODE 0 ON THE SIO BECAUSE OF THE CHAIN FLAG. 

' 421 

* 

0330 

— 

OPERATION ATTEMPTED 


485 

* 


THE ADDRESS OF THE SECOND CCW PLUS 8 IS IN THE CSW. 

422 

* 





486 

* 



423 

* 



A TEST 1-0 TO A DEVICE THAT JUST WENT FROM NOT READY TO READY. 


487 

* 



424 

* 




488 

* 


ROUTINE 10 

425 

* 



EXPECTED RESPONSE 


489 

* 



426 

* 





490 

♦ 

0390 - 

OPERATION ATTEMPTED 

427 

♦ 



EXPECT DEVICE END ALONE, WITH A COND. CODE 1. 


491 

* 



. 428 

* 




492 

* 


A DIAGNOSTIC CHECK READ IS ISSUED. 

429 

* 





493 

* 



430 

♦ 

0340 

• 

OPERATION ATTEMPTED 


494 

♦ 


EXPECTED RESPONSE 

431 

* 





495 

♦ 



432 

♦ 



A SKIP TO 1 IMMEDIATE IS ISSUED TO A OEVICE WHOSE CARRIAGE WAS 


496 

* 


EXPECT CHANNEL AND DEVICE END TOGETHER. 

433 

* 



JUST RESTORED. 


497 

* 



434 

♦ 





498 

* 



435 

♦ 



EXPECTED RESPONSE 


499 

* 


ROUTINE 11 

436 

* 





500 

♦ 



437 

♦ 



EXPECT CHANNEL END AND THEN DEVICE END - NO CARRIAGE MOTION 


501 

♦ 

0400 ~ 

OPERATION ATTEMPTED 

438 

* 



SHOULD OCCUR SINCE THE CARRIAGE IS ALREADY AT CHANNEL 1. 


502 

♦ 


A PRINT AND SKIP TO 1 IS ISSUED. THIS TEST ACCEPTS ONLY 

439 

•* 




503 

♦ 


440 

* 





504 

* 


CHANNEL END INTERRUPT AND GOES TO TEST 0410 BEFORE DEVICE 

441 

* 

0350 


OPERATION ATTEMPTED 


505 

* 


END IS CLEARED. 

442 

* 





506 

* 



443 

* 



A PRINT AND SPACE SUPPRESS IS ISSUED. 


507 

* 


EXPECTEO RESPONSE 

444 

* 




508 

* 



445 

♦ 



EXPECTED RESPONSE 


509 

♦ 


EXPECT CHANNEL END ONLY. 

446 

* 



• 

510 

* 
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15N0V66 

120CT67 
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PAGE 5A 

1403 PRINTER FUNCTION 1 

LOCAT OBJECT CODE STMT SOURCE STATEMENT 

575 * ISSUE A DIAGNOSTIC WRITE AND CLEAR ONE INTERRUPT. \ 

576 * 

577 * EXPECTED RESPONSE 

578 * 

579 * EXPECT COND. CODE 0. THIS TEST CLEARS CHANNEL END ONLY. 

580 * 

581 * 

582 * 0480 - OPERATION ATTEMPTED 

583 * 

584 * ISSUE AN INVALID COMMAND TO A DEVICE WITH DEVICE END PENDING. 

585 * 

586 * EXPECTEO RESPONSE 

587 * 

588 * EXPECT DEVICE BUSY AND DEVICE END TOGETHER, AND A COND. CODE 

589 * OF 1. SENSE IS ISSUED AND NO BITS ARE EXPECTED TO BE SET. 

590 * 

591 * 

592 *********************************************************************** 

593 ******************* ******************* 

594 * SECTION PREFACE *********************************** SECTION PREFACE * 

595 ******************* ******************* 


01000 

F8305000 

596 

SECNO 

DC 

XL4*F8305000* 

PROGRAM »SECTION AND REVISION 

NOS. 

* 

01004 

00000000 

597 

SNSW 

DC 

XL4'00» 

SECTION SENSE SWITCHES 


* 

01008 

0000 

598 


DC 

XL2 *00* 



* 

0100A 

0000 

599 

ICM 

DC 

XL2 * 00* 

INTERRUPTION CONDITION MASK 


* 

0100C 

00 

600 

SDMF 

DC 

XLl•00* 

SECTION DM FLAGS 


* 

0100 D 

01 

601 

NIOU 

DC 

XL 1•01• 

NUMBER OF UNIT TABLE ENTRYS 


* 

01006 

CO 

602 

FLAG1 

DC 

X*C0* 

EXCLUSIVE CPU 


* ' 

0100F 

00 

603 

FLAG2 

DC 

X»00« 

I/O INT ARE ERR, EXT INT TO PROG 

* 

01010 

0104000000 

604 

INPSW 

DC 

X * 0104000000 * 

DISABLED, SPVSR STATE, NO PGM 

MASK 

* 

01015 

001954 

605 


DC 

AL3(R0UT01) 

ADR OF 1ST ROUTINE PREFIX 


* 

01018 

0000000000000000 

606 

EXOPSW 

DC 

XL8 1 0* 

SECTION OLD EXTERNAL PSW 


* 

01020 

000000-0000000000 

607 

SVOPSW 

DC 

XL8•00* 

CLEAR ALL OLD PSWS 

' 

* 

01028 

0000000000000000 

608 

PGOPSW 

DC 

XL8* 00* 

PROGRAM OLD PSW 


* 

01030 

0000000000000000 

609 

MCOPSW 

DC 

XL 8•00* 

MACHINE CHECK OLD PSW 


* 

01038 

0000000000000000 

610 

IOOPSW 

DC 

XL 8* 00* 

I/O OLD PSW 


♦ 

01040 

0000000000000000 

611 

CSW 

DC 

XL8 1 00* 

CHANNEL STATUS WORD 


* 

01048 

00000000 

612 

CAW 

DC 

XL4* 00* 

CAW 


* 

0104C 

0000000000000000 

613 


DC 

XL 12* 00® 

RESERVED FOR DM USE 


* 

01054 

00000000 








01058 

0004000000 

614 

EXNPSW 

DC 

X*0004000000* 

EXTERNAL NEW PSW 


* 

0105D 

000000 

615 

SRET 

DC 

XL3«0 # 

ADR OF EXT INTRPT ROUTINE 


* 

01060 

0000000000000000 

616 

SVNPSW 

DC 

XL8'00* 

SUPERVISOR NEW PSW 


* 

01068 

0000000000000000 

617 

PGNPSW 

DC 

XL8•00* 

PROGRAM NEW PSW 


* 

01070 

0000000000000000 

618 

MCNPSW 

DC 

XL8* 00* 

MACHINE CHECK NEW PSW 


* 

01078 

01040000 

619 

IONPSW 

DC 

XL4 * 01040000• 

I/O NEW PSW 


* 

0107C 

0000120C 

620 


DC 

AL4CIRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 


* 

01080 


621 


DS 

96C 

96 BYTE REG DUMP AREA FOR DM 

USE 

* 

010E0 

83 

622 

UNIT1 

DC 

X* 83* 

UNIT TYPE - 1419 MICR 


* 

010E1 

00 

623 

U10P 

DC 

X*00» 

OPTIONAL FEATURES BYTE 


* 

010E2 

8000 

624 

U1ADDR 

DC 

x'eooo* 

FLAGS AND CHAN/UNIT ADDRESS 


* 


625 *********************************************************************** 

627 * 1403 SENSE BYTE 

628 *********************************************************************** 

629 * BIT MEANING 

630 * 0 COMMAND REJECT 

631 * 1 INTERVENTION REQUIRED 

632 * 2 BUS OUT CHECK 

633 * 3 EQUIPMENT CHECK - HAMMER FIRE CHECK 

634 * 4 DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER 

635 * 5 BUFFER PARITY CHECK - REFERS TO UCS BUFFER 

636 * 6 NOT USED 

637 * 7 CHANNEL 9 


OATE 15MAR66 15N0V66 120CT67 ID F830-5 

EC • S 125632 125655 131812 PAGE 5A 
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1403 PRINTER FUNCTION 1 


1403 PRINTER FUNCTION I 


LOCAT OBJECT CODE 


SOURCE STATEMENT 

* * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * * * * 4c * * * * * * 4> * * * * * * * * * * * * * * * * * * * * * * * * # * * * * 
***** * $*************** ***$****** ******************* ******* ******* ****** 

* 1403 DEVICE STATUS 
*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - NOT USED 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - CHANNEL 12 

*********************************************************************** 
*********************************************************************** 

* 1403 DIAGNOSTIC CHECK READ DATA 
*********************************************************************** 

* BIT MEANING 

* 5 ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 

* POSITION# 

* OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 

* PRINTED* AND THE PRINT CHARACTER GENERATOR DID NOT 

* OCCUR IN THIS POSITION* AND THE CHARACTER WAS NOT 

* CONSIDERED A VALID UNPRINTABLE. 

4c 

* ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 

* AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 

* AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

* 

* 6 ON - THE PRINT CHECK PLANE FOR THIS PCSITION WAS SET ON. 

* THIS PLANE IS SET BY- 

* 1. A HAMMER FIRE AND AN EQUAL CHECK. 

* 2. NO HAMMER FIRE AND NO EQUAL CHECK. 

* 3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 

* NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

* OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 

* 

♦ 7 ON - A .PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 

♦ THIS POSITION. 

♦ 

* OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 
*********************************************************************** 

* PARAMETERS USED TO ENTER 


LOCAT OBJECT CODE 


SOURCE STATEMENT 

* ON - EXPECT 2 INTERRUPTS 

* 4 - 0FF - EXPECT NO CSWS 

* ON - EXPECT A CSW 

* 5 - OFF - DO NOT EXPECT 2 CSWS 

* ON - EXPECT 2 CSWS 

* 6 - OFF - ALWAYS TRY TO ISSUE SENSE 

* ON — SENSE ON UNIT CHECK ONLY 

* 7 - OFF - GIVE HALT OPTION ON DETECTED ERROR 

* ON - RETURN WITHOUT HALT OPTION 

* 

* 8 - OFF - DO NOT ISSUE DIAGNOSTIC READ. 

* ON - ISSUE “DIAGNOSTIC READ IF UNIT CHECK. 

* 

* 9 - OFF - DO NOT ISSUE DIAGNOSTIC CHECK READ. 

* ON - ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK. 

4 

* 10 -OFF - PRINT HEADER 

* ON - DO NOT PRINT HEADER 

* 

*********************************************************************** 

*********************************************************************** 

* SWITCHES USED BY 1-0 HANDLER 
*********************************************************************** 

* SWITCH DESCRIPTION 

* o - OFF - NO HANGUP ON INTERFACE 

* ON - HANGUP OCCURRED 

* i ,-OFF - NO CSWS STORED 

* ON - ONE CSW STORED 

* 2 - OFF - SECOND CSW NOT RECIEVED 

* ON - SECOND CSW RECIEVED 

* 3 - OFF - DID NOT ENABLE 

* ON - ENABLED ONCE 

* 4 - OFF - DID NOT ENABLE TWICE 

* ON - ENABLED TWICE 

* 5 - OFF - NO SENSE DATA RECIEVED 

* ON - SENSE DATA RECIEVED 

* 6 - OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

* 7 - OFF - NO ERROR DETECTED 

* ON - AN ERROR WAS DETECTED 

4c4c4c4c4>4t4c4c4c4c4c4^4c4c***4c4‘4c****4c4c4t4c4‘4c*4c***4c4c4t4c4t4c*4c4t*4^4>4c****4>4'4'*4c*4c4>4c4c4c4c4c3**** 

* REGISTERS USED IN I-G HANDLER 

*********************************************************************** 


681 

* 


THE 1-0 

HANDLER ROUTINE 

745 

* 

REG 

COMMENTS 


682 

*********************************************************************** 

746 

4c 

5 

USED AS LINK TO ERROR OUTPUT FROM INITIALIZE 

ROUTINE 

683 

♦ 

BAL 

R11 , ISIO 

LINK TO 1-0 HANDLER 

747 

* 


PREVIOUS HANGUP ON INTERFACE DETECTED. 


684 

* 

DC 

XL2 * 0000* 

CONTROL SWITCHES 

748 

4c 




685 

* 

DC 

X* 0014* 

TEST NO. IN DEC EXPRESSED IN HEX 

749 

4c 

8 

USED AS WORK REGISTER. WILL BE RESTORED UPON 

RETURN. 

686 

* 

DC 

X' FO* 

EXPECTED COND. CODE 

750 

4c 




687 

* 

DC 

X*00* 

EXPECTED SENSE DATA 

751 

4c 

9 

USED AS WORK REGISTER. WILL BE RESTORED UPON 

RETURN. 

688 

4 

DC 

AL2(ADR-BASE+REG) 

ADDR. OF EXPECTED CSW IF NEEDED 

752 

4c 





*********************************************************************** 

*********************************************************************** 

* 1-0 HANDLER CONTROL SWITCHES 

* 2 BYTE PARAMETER FOLLOWING BAL 
*********************************************************************** 

* SWITCH DESCRIPTION 

*i 0 - OFF - ISSUE AN 1-0 COMMAND 

* ON - DO NOT ISSUE AN 1-0 COMMAND 

* 1 - OFF - ENABLE 

* ON - DO NOT ENABLE 

* 2 - OFF - EXPECT NO INTERRUPT 

* ON - EXPECT AN INTERRUPT 

* 3 - 0 FF _ 00 n QT EXPECT 2 INTERRUPTS 


010E4 0000 


010E6 92 9E F 1A6 


* 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

* 

* 11 MUST BE USED AS LINK REG TO THIS ROUTINE 

♦ 

* 12 MUST CONTAIN DEVICE ADDRESS 

♦ 

*********************************************************************** 
ISW DC XL2*0* 

*********************************************************************** 
*********************************************************************** 
* * 1-0 HANDLER SUB-ROUTINE * 

*********************************************************************** 
IH10 MVI ISSUE,X *9E • SET UP FOR HALT 1-0 


15MAR66 15N0V66 120CT67 
125632 125655 131812 


F830-5 

6 


15MAR66 15N0V66 120CT67 
125632 125655 131812 
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1403 PRINTER FUNCTION 1 

LOCAT OBJECT CODE STMT SOURCE STATEMENT 


010EA 

92 

C8 

F 

6 ID 



766 


MV I 

I0PT1+21,X»C8' 

MOVE -H- TO MESSAGE 

010EE 

92 

C8 

F 

588 



767 


MV I 

I0ADDR+12,X'C8' 


010F2 

92 

9E 

F 

15C 



768 


MVI 

I LOOP * X'9E * 


010F6 

47 

FO 

F 

HE 



769 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

010FA 

92 

9D 

F 

1A6 



770 

IT 10 

MVI 

ISSUE,X'90' 

SET UP FOR TEST 1-0 

010FE 

92 

9D 

F 

15C 



771 


MVI 

I LOOP,X•90• 


01102 

92 

E3 

F 

6 ID 



772 


MVI 

I0PT1+21» X * E3 • 

MOVE -T- TO MESSAGE 

01106 

92 

£3 

F 

588 



773 


MVI 

I0ADDR+12,X'E3* 


0110A 

47 

FO 

F 

11E 



774 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

0110E 

92 

9C 

F 

1A6 



775 

ISIO 

MVI 

I SSUE,X * 9C ' 

SET UP FOR START 1-0 

01112 

92 

9C 

F 

15C 



776 


MVI 

I LOOP,X * 9C' 


01116 

92 

E2 

F 

6 ID 



777 


MVI 

IOPTH21,X'E2' 

MOVE -S- TO MESSAGE 

0111A 

92 

£2 

F 

588 



778 


MVI 

IOADDR+12,X 'E2' 


0111E 

D2 

01 

F 

604 

B 

002 

779 

IEYEOH 

MVC 

ITSTNO+5(2), 2 ( R11) 

SAVE TEST NUMBER 

01124 

90 

AB 

F 

668 



780 


STM 

R10,R11,1 SLAVE 

SAVE REG 10 AND REG 11 

01128 

90 

89 

F 

548 



781 


STM 

R8,R9,ISAVE 

SAVE REGS 8 AND 9 

0112C 

50 

AD 

0 

048 



782 


ST 

R10,HCAW( R13) 

STORE COMMAND ADDRESS 

01130 

D7 

07 

0 

040 

D 

040 

783 


XC 

HCSW(8,R13),HC SW(R13) 


01136 

95 

30 

E 

181 



784 


CLI 

SYSMODIR14)fX*30' 

CHECK FOR MODEL 30 

0113A 

47 

60 

F 

144 



785 


BC 

UNEO,M0D44 

BR. IF NOT 

0113 E 

D7 

OB 

0 

080 

0 

080 

786 


XC 

LOGOUT*12),LOGOUT 

CLEAR MOD 30 LOGOUT AREA 

01144 

91 

80 

B 

000 



787 

M0D44 

TM 

0(R11),X*80' 

CHECK CONTROL SWITCH FOR 

01148 

47 

10 

F 

1 DC 



788 


BC 

ALLtINOW 

BR. IF ON 

0114C 

91 

CO 

F 

004 



789 


TM 

SNSW,X'CO• 


01150 

47 

80 

F 

198 



790 


BC 

NONE,JOHN 



791 *********************************************************************** 

792 * SENSE SWITCH LOOPS 

793 *************************************************** ******** ************ 


01154 

91 

80 

F 

004 



794 

ITRY1 

TM 

SNSW,X'80• 

CHECK SECTION SENSE 

SWITCH 0 

01158 

47 

80 

F 

164 



795 


BC 

NONE,ITRY2 

BR. IF OFF 


Q115C 

9C 

00 

C 

000 



796 

ILOOP 

SIO 

0(R12) 

SIO, TIO, OR HI0 


01160 

47 

FO 

F 

154 



797 


BC 

UNC,ITRY1 

BR. UNCONDITIONAL 


01164 

91 

40 

F 

004 



798 

ITRY2 

TM 

SNSW,X *40' 

CHECK SECTION SENSE 

SWITCH 1 

01168 

47 

80 

F 

184 



799 


BC 

NONE,IHI 

BR. IF OFF 


0116C 

9D 

00 

C 

000 



800 

IHANG 

TIO 

0 * R12 ) 

TEST 1-0 


01170 

47 

70 

F 

154 



801 


BC 

NCC 0,ITRY1 

BR. IF NOT COND. CODE 0 

01174 

91 

40 

F 

004 



802 


TM 

SNSW,X * 40• 

CHECK SECTION SENSE 

SWITCH 1 

01178 

47 

80 

F 

184 



803 


BC 

NONE,IHI 

BR. IF OFF 


0117 C 

9C 

00 

C 

000 



604 


SIO 

0(R12) 

START I-Q 


01180 

47 

FO 

F 

16C 



805 


BC 

UNC,IHANG 

BR. UNCONDITIONAL 


01184 

58 

IE 

0 

198 



806 

IHI 

L 

R1,WT(14) 



01188 

88 

10 

0 

003 



807 


SRL 

R 1,3 



0118C 

9D 

00 

C 

000 



808 

GREG 

TIO 

0(R12) 



01190 

47 

80 

F 

198 



809 


BC 

CCO,JOHN 



01194 

46 

10 

F 

18C 



810 


BCT 

R1,GREG 



01198 

D7 

01 

F 

0E4 

F 

0E4 

811 

JOHN 

XC 

ISW(2),ISW 



0119 E 

96 

80 

F 

0E4 



812 


01 

ISW,X 1 80* 



Oil A 2 

92 

E7 

F 

577 



813 


MVI 

IACTCC+ 5,C'X * 

MOVE IN A -X- 


011A6 

9C 

00 

C 

000 



814 

ISSUE 

SIO 

0(R12) 

1-0 COMMAND- SIO, TI 

0, OR H10 

011AA 

47 

60 

F 

1 08 



815 


BC 

CCO,IZERO 

BR. IF COND. CODE 0 


011AE 

47 

40 

F 

1C6 



816 


BC 

CC1,IONE 

BR. IF COND. CODE I 


011B2 

47 

20 

F 

1 BE 



817 


BC 

CC2,1 TWO 

BR. IF COND. CODE 2 


011B6 

92 

F3 

F 

5 77 



818 


MVI 

IACTCC+5,X*F3' 

INDICATE COND. CODE 

3 

Oil BA 

47 

FO 

F 

1 DC 



819 


BC 

UNC,INOW 

BR. UNCONDITIONAL 


011BE 

92 

F2 

F 

577 



820 

ITWO 

MVI 

IACTCC+5,X *F2' 

INDICATE COND. CODE 

2 

011C2 

47 

FO 

F 

1 DC 



821 


BC 

UNC,INOW 

BR. UNCONDITIONAL 


011C6 

92 

FI 

F 

577 



822 

IONE 

MVI 

IACTCC+5,X'FI• 

INDICATE COND. CODE 

I 

011CA 

D2 

07 

F 

63A 

D 

040 

823 


MVC 

ICSWH8) , HC SW* R13 ) 

SAVE CSW 


OH DO 

96 

40 

F 

0E4 



824 


01 

ISW,X*40* 

INDICATE 1 CSW 


011D4 

47 

FO 

F 

1DC 



825 


BC 

UNC,INOW 

BR. UNCONDITIONAL 


011D8 

92 

FO 

F 

577 



826 

IZERO 

MVI 

IACTCC+5,X'FO* 

INDICATE COND. CODE 

0 

011DC 

94 

7F 

F 

0E4 



827 

INOW 

N1 

ISW,X'7F» 

TURN OFF HANG UP SWITCH 

011E0 

91 

40 

B 

000 



828 


TM 

0(R11) ,X'40' 

CHECK CONTROL SWITCH 

FOR NO ENABLE 

011E4 

47 

10 

F 

280 



829 


BC 

ALL,I SEN 

BR. IF ON 



ID F830-5 
PAGE 7 


DATE 

EC'S 


15MAR66 15N0V66 120CT67 
125632 125655 131812 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840104 
PAGE 7A 


1403 PRINTER FUNCTION 1 


LOCAT OBJECT CODE STMT SOURCE STATEMENT 


011E8 

96 

10 

F 

0E4 



830 


01 

ISW,X'10' 

INDICATE ENABLED ONCE 

011 EC 

58 

9E 

0 

198 



831 

IWAIT 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR 

011FO• 

88 

90 

0 

003 



832 


SRL 

R9,3 

ADJUST 

011F4 

96 

80 

F 

0E4 



833 


01 

ISW,X'80' 

TURN ON HANG UP SW 

011F8 

80 

00 

F 

65B 



834 


SSM 

MSK1 

ENABLE 

011 EC 

46 

90 

F 

1FC 



835 


BCT 

R9, * 

WAIT 

01200 

80 

00 

F 

65C 



836 


SSM 

MSK2 

DISABLE 

01204 

94 

7 F 

F 

0E4 



837 


N I 

ISW,X'7F• 

TURN OFF HANG SW 

01208 

47 

FO 

F 

280 



838 


BC 

UNC,I SEN 

BR. UNCONDITIONAL 








839 

*********************************************************************** 








840 

*. 


ALL 1-0 

INTERRUPTS RETURN HERE 








841 

*********************************************************************** 

0120C 

49 

CO 

F 

0 3 A 



842 

IRETRN 

CH 

R12,IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

01210 

47 

60 

F 

22E 



843 


BC 

UNEO,IUIO 

BR. IF UNEQUAL 

01214 

94 

7F 

F 

0E4 



844 


NI 

ISW,X'7F' 

RESET HANG UP SW 

01218 

91 

40 

F 

0E4 



845 


TM 

ISW,X•40• 


0121C 

47 

10 

F 

25E 



846 


BC 

ALL,ISV2 

BR* IF 1 CSW ALREADY STORED 

01220 

D2 

07 

F 

63A 

F 

040 

847 


MVC 

ICSW1(8),HCSW(R15) 

SAVE CSW 1 

01226 

96 

40 

F 

0E4 



848 


01 

ISW,X * 40• 

INDICATE 1 CSW STORED 

0122 A 

47 

FO 

F 

268 



849 


BC 

UNC,INT3 

BR. UNCONDITIONAL 

0122E 

D2 

0 7 

F 

5 50 

F 

040 

850 

IUIO 

MVC 

WORK!8),HCSW(R15) 


01234 

OA 

DD 





851 


SVC . 

X * DO' 

CONVERT ADDRESS 

01236 

0003 





852 


DC 

AL 2(3) 


01238 

0039 





853 


DC 

AL2<IGQPSW+1-SECNO) 


0123A 

0662 





854 


DC 

AL2(IUNEX+5-SECN0) 


0123C 

OA 

DO 





855 


SVC 

X • DO* 

PRINT UNEXPECTED INTERRUPT DEVICE 

0123E 

64 






856 


DC 

X * 64' 

ADDRESS 

0123F 

08 






857 


DC 

X' OB ' 


01240 

F65D 





858 


DC 

AL2UUNEX-SECN0+REG) 


01242 

D2 

02 

F 

5 AE 

F 

5A7 

859 


MVC 

IBLAH+1(3),ICSW 

MOVE -CSW- TO MESSAGE 

01248 

92 

1A 

F 

40B 



860 


MVI 

ICNT,X•1A * 

ADJUST COUNT 

0124C 

D2 

02 

F 

5C4 

F 

5C7 

861 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

01252 

45 

90 

F 

3F4 



862 


BAL 

R9,ICOUT 

BR. TO OUTPUT CSW 

01256 

96 

02 

F 

0 £4 



863 


01 

ISW,X'02' 

INDICATE UIO 

012 5 A 

47 

FO 

F 

4CA 



864 


BC 

UNC,IPASS 

BR. UNCONDITIONAL 

0125E 

D2 

07 

F 

642 

F 

040 

865 

ISV2 

MVC 

ICSW2I8),HCSWtR15) 

SAVE CSW 2 

01264 

96 

20 

F 

0E4 



866 


01 

ISW,X * 20 * 

INDICATE 2 CSWS STORED 

01268 

91 

10 

8 

000 



867 

INT3 

TM 

O(Rll),X'10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

0126C 

47 

80 

F 

280 



868 


BC 

NONE,ISEN 

BR. IF NOT 

01270 

91 

08 

F 

0E4 



869 


TM 

ISW,X'08' 


01274 

47 

10 

F 

280 



870 


BC 

ALL,ISEN 

BR. IF ALREADY ENABLED TWICE 

01278 

96 

08 

F 

0E4 



871 


01 

ISW,X'08' 

INDICATE ENABLED TWICE 

0127 C 

47 

FO 

F 

1 EC 



872 


BC 

UNC,IWAIT 


01280 

91 

02 

B 

000 



873 

ISEN 

TM 

O(Rll),X'02* 

CHECK CONTROL SWITCH FOR SNS ON UC 

01284 

47 

80 

F 

2A8 



874 


BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

01288 

91 

40 

F 

0E4 



875 


TM 

I SW<r X *40 • 


0128C 

47 

80 

F 

2 FE 



876 


BC 

NONE,IBSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

01290 

91 

02 

F 

63E 



877 


TM 

ICSW1+4,X*02' 

CHECK FOR UNIT CHECK 

01294 

47 

10 

F 

2 A8 



878 


BC 

ALL, IDOSNS 

IF YES BR. TO ISSUE SENSE 

01298 

91 

20 

F 

0E4 



879 


TM 

ISW,X•20' 

CHECK FOR SECOND CSW 

0129C 

47 

80 

F 

2 FE 



880 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

012 AO 

91 

02 

F 

646 



881 


TM 

ICSW2+4, X * 0<? • 

CHECK FOR UNIT CHECK 

012A4 

47 

80 

F 

2 FE 



882 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

012A8 

58 

9E 

0 

198 



883 

IDOSNS 

L 

R9,WT(R14) 

LOAD OM WAIT FACTOR 

012 AC 

88 

90 

0 

004 



884 


SRL 

R9,4 

ADJUST 

012B0 

41 

80 

F 

6 50 



885 


LA 

R8,I SENSE 

LOAD SENSE COMMAND ADDRESS 

012B4 

| 50 

8D 

0 

048 



886 


ST 

R8»NCAW(R13) 

STORE IN CAW 

012B8 

9C 

00 

C 

000 



887 


SIO 

0IR12) 

ISSUE SENSE 

012BC 

47 

70 

F 

34C 



888 


BC 

NCCO,INDER 

BR. IF NOT ACCEPTED 

012C0 

9D 

00 

C 

000 



889 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 

012C4 

47 

40 

F 

2E8 



890 


BC 

CC1,ILOKE 

BR. IF CSW STORED 

012C8 

46 

90 

F 

2 CO 



891 

IT IC 

BCT 

R9,ITIOLP 


012CC- 

47 

FO 

F 

2 FE 



892 


BC 

UNC,IBSN 

BR. UNCONDITIONAL 

01200 

91 

40 

F 

0E4 



893 

IN0EX1 

TM 

ISW,X*40' 



DATE 15MAR66 15N0V66 120CT67 ID F830-5 

EC'S 125632 125655 131812 PAGE 7A 






IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840104 
PAGE 8A 


1403 PRINTER FUNCTION 1 


LOCAT 

OBJECT 

CODE 



STMT 

SOURCE ! 

STATEMENT 


013B0 

OA 

DO 





958 


SVC 

X*D0* 

PRINT 1-0 ADDRESS 

013B2 

EO 






959 


DC 

X • EO' 


013B3 

OF 






960 


DC 

X • OF * 


013B4 

F57C 





961 


DC 

AL2(IOADDR-SECNO+REG) 


013B6 

95 

9C 

F 

1A6 



962 


CLI 

ISSUE,X»9C» 

COMPARE FOR SIO COMMAND 

013BA 

47 

60 

F 

410 



963 


BC 

UNEO,ICCQUT 

BR. IF NOT 

013BE 

50 

AO 

F 

5 AO 



964 


ST 

RIO,ICAW+5 

STORE CCW ADOR. 

013C2 

OA 

DD 





965 


SVC 

X * DD 1 

CONVERT CAW 

013C4 

0003 





966 


DC 

AL2(3) 


013C6 

05A1 





967 


DC 

AL2(ICAW+6-SECN0) 


013C8 

05 AO 





968 


DC 

AL2(ICAW+5-SECNO) 


013CA 

OA 

DO 





969 


SVC 

X • DO * 

PRINT CAW 

013CC 

EO 






970 


DC 

X'EO* 


013CD 

OB 






971 


DC 

X • OB * 


013CE 

F59B 





972 


DC 

AL2(ICAW—SECNO+REG) 


013D0 

D2 

02 

F 

5 AE 

F 

5AA 

973 


MVC 

IBLAH+H 3) , ICCW 

MOVE -CCW- TO MESSAGE 

013D6 

92 

16 

F 

40B 



974 


MVI 

ICNT,X*16• 

ADJUST COUNT 

013DA 

D2 

07 

F 

55Q 

A 

000 

975 

1CW0UT 

MVC 

WORK(8),0(RIO) 

MOVE CCW TO WORK AREA 

013E0 

45 

90 

F 

3F4 



976 


BAL 

R9,ICOUT 

BR. TO OUTPUT CCW 

013E4 

91 

CO 

A 

004 



977 


TM 

4(RIO),X• CO * 

CHECK FOR ANY CHAIN FLAGS 

013E8 

47 

80 

F 

410 



978 


BC 

NONE,ICCOUT 

BR. IF NONE 

013EC 

41 

AA 

0 

008 



979 


LA 

R10,S!RIO 1 

UPDATE TO NEXT CCW 

013F0 

47 

FO 

F 

3 DA 



980 


BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

013F4 

OA 

DD 





981 

ICOUT 

SVC 

X • DD • 

CONVERT 

013F6 

0008 





982 


DC 

AL2 < 8) 


013F8 

0550 





983 


DC 

AL2(WQRK-SECNO) 


013FA 

0550 





984 


DC 

AL2(WORK-SECNO) 


013FC 

D2 

07 

F 

5B2 

F 

550 

985 


MVC 

IBLAH+5I8),WORK 

MOVE TO MESSAGE 

01402 

D2 

07 

F 

5BB 

F 

558 

986 


MVC 

IBLAH+14I8),WORK+8 


01408 

OA 

DO 





987 


SVC 

X* DO* 

PRINT 

0140 A 

EO 






988 


DC 

X • EO* 


0140B 

1 A 






989 

ICNT 

DC 

X • 1 A* 


0140C 

F5AD 





990 


DC 

AL2UBLAH-SECN0+REG) 


0140E 

07 

F? 


e 



991 


BCR 

UNC,R9 

RETURN VIA REG 9 

01410 

D2 

00 

F 

56D 

B 

004 

992 

ICCQUT 

MVC 

IEXPCC+5C1),4(Rll) 

MOVE EXP CC TO MESSAGE 

01416 

58 

AO 

F 

668 



993 


L 

RlOtlSLAVE 

RESTORE REG 10 

; 0141A 

OA 

DO 





994 


SVC 

X»DO* 

PRINT EXPECTED COND. CODE 

1 0141C 

EO 






995 


DC 

X • EO' 


0141D 

OA 






996 


DC 

, X *0A • 


0141E 

F 568 





997 


DC 

AL2 <IEXPCC-SECNO+REG) 


01420 

OA 

DO 





998 


SVC 

X • DO • 

PRINT ACTUAL COND. CODE 

01422 

EO 






999 


DC 

X *E0* 


! 01423 

OA 






1000 


OC 

X • OA • 


01424 

F572 





1001 


DC 

AL2IIACTCC-SECNOaREG) 


01426 

D2 

02 

F 

5 AE 

F 

5A7 

1002 

IOCSW 

MVC 

1BLAH+1(3) , ICSW 

MOVE -CSW- TO MESSAGE 

0142C 

92 

1A 

F 

40B 



1003 


MVI 

ICNT»X*IA * 

ADJUST COUNT . 

01430 

91 

08 

B 

000 



1004 


TM 

O(Rll)«X'0a* 


01434 

47 

80 

F 

458 



1005 


BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

01438 

D2 

02 

F 

5C4 

F 

5CA 

1006 


MVC 

IBLAH+23I3) ,IEXP 

MOVE -EXP- TO MESSAGE 

0143E 

48 

68 

0 

006 



1007 


LH 

R8,6(R11) 


01442 

40 

80 

F 

452 



1008 


STH 

R8tICHNG1+4 


01446 

41 

88 

0 

008 



1009 


LA 

R8,8(R8) 


0144A 

40 

80 

F 

482 



1010 


STH 

R8,ICHNG2+4 


0144E 

D2 

07 

F 

5 50 

F 

550 

1011 

ICHNG1 

MVC 

WORMS) ,WORK 

MOVE EXPECTED CSW TO WORK AREA 

01454 

45 

90 

F 

3F4 



1012 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTEO CSW 

01458 

91 

40 

F 

0E4 



1013 

IOIDI • 

TM 

ISW,X*40* 


0145C 

47 

80 

F 

470 



1014 


BC 

NONE,IMORST 

BR. IF NO CSW STORED 

01460 

D2 

02 

F 

5C4 

F 

5C7 

1015 


MVC 

IBLAH+23I3),1ACT 

MOVE -ACT- TO MESSAGE 

01466 

02 

07 

F 

550 

F 

63A 

1016 


MVC 

WORK!8),ICSW1 

MOVE ACTUAL CSW TO WORK AREA 

0146C 

45 

90 

F 

3F4 



1017 


BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

01470 

91 

04 

B 

000 



1018 

IMORST 

TM 

0(R11),X *04 * 


01474 

47 

80 

F 

488 



1019 


BC 

NONE,10ID 

BR. IF NOT EXPECTING 2 CSWS 

01478 

D2 

02 

F 

5C4 

F 

5CA 

1020 


MVC 

IBLAH+23I3),IEXP 

MOVE -EXP- TO MESSAGE 

1 0147E 

02 

07 

F 

550 

F 

550 

1021 

ICHNG.2 

MVC 

WORK!8)tWORK 

MOVE EXPECTED CSW TO WORK AREA 
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OBJECT 
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LOCAT 

OBJECT CODE 
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SOURCE STATEMENT 


01484 

45 90 

F 

3F4 



1022 


BAL 

R9.IC0UT 

BR. TO OUTPUT EXPECTED CSW 2 

01542 

070007000700 

1085 


CNOP 

0,8 


01488 

91 20 

F 

0E4 



1023 

IDID 

TM 

ISW,X'20' 


01548 

0000000000000000 

1086 

ISAVE 

DC 

XL 8'0 • 


0148C 

47 80 

F 

4 AO 



1024 


BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

01550 


1087 

WORK 

DS 

24C 


01490 

D2 02 

F 

5C4 

F 

5C7 

1025 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

01568 

40C3C34040E740C5 

1088 

IEXPCC 

DC 

C' CC X EXP' 


01496 

D2 07 

F 

550 

F 

642 

1026 


MVC 

WORK ( 8) , IC SVI2 

MOVE CSW TO WORK AREA 

01570 

E7D7 






0149C 

45 90 

F 

3F4 



1027 


BAL 

R9,ICOUT 


01572 

40C3C3 4040 E740C1 

1089 

IACTCC 

DC 

C' CC X ACT' 


014A0 

D2 00 

F 

5D2 

B 

005 

1028 

IPAS 

MVC 

IEXSNS*5(1),5(Rll) 

MOVE EXP SENSE TO MESSAGE 

01 57 A 

C3E3 






014A6 

91 04 

F 

0E4 



1029 


TM 

I SW,X'04' 


0157C 

40C1C4D940E7E7E7 

1090 

IOADDR 

DC 

C' ADR XXXXXX XIO' 


014AA 

47 80 

F 

4CA 



1030 


BC 

NONE,IPASS 

BR. IF NO SENSE DATA RECIEVED 

01584 

E7E7E740E7C9D6 






014 AE 

OA DD 





1031 


SVC 

X' DO' 

CONVERT EXPECTED SENSE 

0158B 

00 

1091 


DC 

X'OO' 


014B0 

0001 





1032 


DC 

AL2I1) 


0158C 


1092 


CNOP 

0,4 


014B2 

05D2 





1033 


DC 

AL2(IEXSNS+5-SECN0) 


0158B 


1093 


ORG 

*-l 


014B4 

0502 





1034 


DC 

AL2(IEXSNS+5-SECN0) 


0158B 

40C1C4D940E7E7E7 

1094 

IL INK 

DC 

C' ADR XXXXXX LINK' 


014B6 

OA DO 





1035 


SVC 

X* DO' 

PRINT EXPECTED SENSE 

01593 

E7E7E740D3C9D5D2 






014B8 

EO 





1036 


DC 

X' EO' 


0159B 

00 

1095 


DC 

X'OO' 


014B9 

OB 





1037 


DC 

X • OB * 


0159C 


1096 


CNOP 

0,4 


014BA 

F5CD 





1038 


DC 

AL2<IEXSNS-SECNO+REG) 


015 9 B 


1097 


ORG 

*-l 


014BC 

OA DD 





1039 


SVC 

X' DO • 


0159B 

40C3C1E640E7E7E7 

1098 

ICAW • 

DC 

C' CAW XXXXXX • 


014BE 

0001 





1040 


DC 

AL2(1) 


015 A3 

E7E7E740 






014C0 

05DD 





1041 


DC 

AL2(IACSNS+5-SECN0) 


015A7 

C3E2E6 

1099 

ICSW 

DC 

C'CSW' 


014C0 

05DD 





1041 


DC 

AL2UACSNS+5-SECN0) 


015 AA 

C3C3E6 

1100 

ICCW 

DC 

C'CCW' 


014C2 

05DD 





1042 


DC 

AL2UACSNS+5-SECN0) 


015AD 

40C 3E2 E640 E7E7E7 

1101 

I BLAH 

DC 

C' CSW XXXXXXXX XX' 


014C4 

OA DO 





1043 


SVC 

X'DO* 

PRINT ACTUAL SENSE DATA 

015B5 

E7E7E7E7E740E7E7 






014C6 

EO 





1044 


DC 

X'EO' 


015BD 

E7E7E7 E7E7E740C5 

1102 


DC 

C'XXXXXX EXP * 


014C7 

OB 





1045 


DC 

X • OB 1 


015C5 

E7D7 






014C8 

F5D8 





1046 


DC 

AL2UACSNS-SECN0+REG) 


015C7 

C1C3E3 

1103 

I ACT 

DC 

C'ACT' 


014CA 

95 30 

e 

181 



1047 

IPASS 

CLI 

SYSMODIR14),X•30 1 

CHECK FOR MODEL 30 

015CA 

C5E7D7 

1104 

IEXP 

DC 

C•EXP• 


014CE 

47 60 

F 

50E 



1048 


BC 

UNEO,IOPOUT 

BR. IF NOT 

015CD 

40E2D5E240 E7E740 

1105 

IEXSNS 

DC 

C' SNS XX EXP' 


014D2 

D2 OB 

F 

550 

0 

080 

1049 


MVC 

WORK(12),LOGOUT 

MOVE LOGOUT TO WORK AREA 

015D5 

C5E7D7 






014D8 

OA DD 





1050 


SVC 

X'DO' 

CONVERT 

015D8 

40E2D5 E240 E7E74Q 

1106 

IACSNS 

DC 

C' SNS XX ACT' 


014DA 

OOOC 





1051 


DC 

AL2(12) 


015E0 

C1C3E3 






014DC 

0550 





1052 


DC 

AL2(WORK-SECNO) 


015E3 

40D3D6 C740 E7E740 

1107 

IOLOG 

DC 

C' LOG XX XXXXXX X' 


014DE 

0550 





1053 


DC 

AL2(WORK-SECNO) 


015EB 

E7E7E7 E7E7 E740E7 






014E0 

D2 01 

F 

5E8 

F 

550 

1054 


MVC 

IOLOG+5C2),WORK 

MOVE LOG OUT TO MESSAGE 

015F3 

E7E7E7 E7E740E7E7 

1108 


DC 

C'XXXXX XXXXXX' 


014E6 

D2 05 

F 

5EB 

F 

552 

1055 


MVC 

I0LOG+8(6), WORK+2 


015FB 

E7E7E7E7 






014EC 

D2 05 

F 

5F2 

F 

55A 

1056 


MVC 

I0L0G*15(6)»WORK+IO 


015FF 

40E3E2 E340 E7E7E7 

1109 

ITSTNO 

DC 

C TST XXXX' 


014F2 

D2 05 

F 

5F9 

F 

562 

1057 


MVC 

I0L0G*22(6),W0RK+18 


01607 

E7 






014F8 

OA DO 





1058 


SVC 

X * DO* 

PRINT LOG OUT 

01608 

40E2E2 40F040D6D5 

1110 

I0PT1 

DC 

C* SS 0 ON FOR LOO' 


014FA 

EO 





1059 


DC 

X'EO* 


01610 

40C6D6 D940 D3D6D6 






014FB 

1C 





1060 


DC 

X'lC' 


01618 

D740D6 D540 E7C9D6 

1111 


DC 

C'P ON XIO, SS l O' 


014FC 

F5E3 





1061 


DC 

AL2<IOLOG-SECNQ+REG) 


01620 

6B40E2 E240F140D6 





| - - --5 ■ ; 

014 FE 

91 02 

F 

0E4 



1062 


TM 

ISW,X * 02 * 


01628 

D540C6D6D940E3C9 

1112 


DC 

C'N FOR TIO SIO LO' 


01502 

47 80 

F 

50E 



1063 


BC 

NONE,IOPOUT 

BR. IF NOT UIO 

01630 

D640E2 C9D640D3D6 






01506 

94 FD 

F 

0E4 



1064 


N I 

I SW,X'FD' 

RESET UIO SWITCH 

01638 

D6D7 

1113 


DC 

C'OP' 


0150 A 

47 FO 

F 

1 EC 



1065 


BC 

UNC,I WAIT 

BR. UNCONDITIONAL 

0163 A 

0000000000000000 

1114 

ICSW1 

DC 

XL8'0' 


0150E 

OA DO 





1066 

IOPOUT 

SVC 

X 'DO' 

PRINT LOOP OPTIONS 

01642 

0000000000000000 

1115 

ICSW2 

DC 

XL8'O' 

j . 

01510 

CO 





1067 

IFLAG2 

DC 

X'CO' 


0164A 

000000000000 






01511 

32 





1068 


DC 

X * 32 • 


01650 

040015 DD00000001 

1116 

ISENSE 

CCW 

X•04*,I AC SNS+5,X•00•»l 


01512 

F608 





1069 


DC 

AL2(IOPTi—SECNO+REG) 


01658 

0011A6 

1117 

IOADR 

DC 

AL3CISSUE) 


01514 

OA DO 





1070 


SVC 

X'DO* 

SPACE A LINE 

0165B/ 

FE 

1118 

MSK1 

DC 

X'FE' 


01516 

AO 





1071 


DC 

X' AO' 


0165C/ 

01 

1119 

MSK2 

DC 

X'Ol' 


01517 

01 





1072 


DC 

X'Ol' 


0165D 

40E4C9D640E7E7E7 

1120 

IUNEX 

DC 

C' UIO XXXXXX' 


01518 

F58B 





1073 


DC 

AL2ULINK-SECN0+REG) 


01665 ; 

E7E7E7 






0151A 

50 AD 

0 

048 



1074 


ST 

R10,HCAW(R13) 

STORE CAW 

01668 

! 0000000000000000 

1121 

ISLAVE 

DC 

XL 8 * O' REGISTER 

SAVE AREA 

0151E 

91 CO 

F 

004 



1075 


TM 

SNSW,X'CO * 

CHECK SECTION SENSE SWITCH 0 AND 1 

01670 

0600168000000084 

1122 

DCKRD 

CCW 

X'06»,CKAR,X'OO*,132 


01522 

47 50 

F 

154 



1076 


BC 

ANYtITRYl 

BR. IF ANY ON 

01678 

pOOO16 78 

1123 

CRDCSW 

DC 

A(CRDCSW) 


01526 

91 01 

F 

0E5 



1077 


TM 

ISW+i,X'01 • 


0167C 

OCOOOOOO 

1124 


DC 

X'OCOOOOOO' 


0152 A 

07 15 





1078 


BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

01680 


1125 

CKAR 

DS 

132C 

. 

0152C 

91 08 

B 

000 



1079 

ILEAVE 

TM 

0(Rll),X * 08 * 


01704 


1126 

DRAR 

DS 

132C 

: 

01530 

47 80 

F 

538 



1080 


BC 

NONE,IUP 

BR. IF NO CSW EXPECTED 

01788 

0200170400000084 

1127 

RDCCW 

CCW 

X'02',DRAR,X'OO',132 

' 

01534 

41 88 

0 

002 



1081 


LA 

R11,2(RI1) 

UPDATE LINK ADDRESS FOR RETURN 



1128 

*********************************************************************** 

01538 

41 BB 

0 

006 



1082 

IUP 

LA 

Rll,6(Rtl) 




1129 

* 


INITIALIZE ROUTINE 


0I53C 

98 89 

F 

548 



1083 


LM 

R8,R9,1 SAVE 

RESTORE REGS 8 AND 9 



1130 

*********************************************************************** 

01540 

07 FB 





1084 


BCR 

UNCtRll 

RETURN VIA REG 11 

01790 

| 

IB DD 

1131 

INIT 

SR 

RI3,R13 ZERO REG 

13 

DATE 

15MAR66 

l5NtiV66 

120CT67 
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LOCAT 

OBJECT CODE 

STMT 

SOURCE STATEMENT 


01792 

91 40 E 196 

1132 


TM 

406IR14)tX'40' 

CHECK FOR FORCED PROBLEM STATE 

01796 

47 80 F 79C 

1133 


BC 

NONE,NITWIT 

BR. IF NOT 

0179 A 

18 DF 

1134 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

0179C 

58 CO F OEO 

1135 

NITWIT 

L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

017A0 

54 CO F 8C8 

1136 


N 

R12,M0D50 

AND OUT UNUSED BITS 

017A4 

49 CO F 810 

1137 


CH 

R12,SAVDEV 

COMPARE FOR CURRENT DEVICE ADDRESS 

017A8 

47 80 F 7C2 

1138 


BC 

EQ,BLOOP 

BR. IF EQUAL 

017AC 

40 CO F 810 

1139 


STH 

R12♦SAVDEV 

SAVE CURRENT DEVICE ADDRESS 

017B0 

OA DO 

1140 


SVC 

X * DO • 


017B2 

24 

1141 


DC 

X' 24 * 


017B3 

27 

1142 


DC 

X * 27 * 


017B4 

F82C 

1143 


DC 

AL2(STL-SECNO+REG) 


017B6 

OA DO 

1144 


SVC 

X * DO' 


017B8 

80 

1145 


DC 

X' 80* 


017B9 

39 

1146 


DC 

X • 39' 


017BA 

F853 

1147 


DC 

AL2(CEMSG-$ECN0+REG) 


017BC 

OA DA 

1148 


SVC 

X' DA • 

HALT FOR SS ALTERATION 

017BE 

9D 00 C 000 

1149 


TIO 

<MR12> 

CLEAR PENDING INTERRUPT 

017C2 

91 80 F 0E4 

1150 

BLOOP 

TM 

ISW,X'80' 

CHECK FOR HANG UP 

017C6 

47 10 F 7E0 

1151 


BC 

ALL,HANGUP 

BR. IF DETECTED 

Clear load area 

017CA 

92 40 F 8CD 

1152 


MVI 

PRAR,X•40' 

017CE 

D2 00 F 812 F 003 

1153 


MVC 

RT$AV(1I» SECNO+3 

SAVE ROUTINE NUMBER 

017D4 

D2 82 F 8CE F 8CD 

1154 


MVC 

PRAR+1C131),PRAR 


017DA 

41 AO F F18 

1155 


LA 

R10,CCW 


017DE 

07 F4 

1156 


BCR 

UNC,R4 

RETURN VIA REG 4 

017E0 

D2 00 F 003 F 812 

1157 

HANGUP 

MVC 

SECN0+3(1),RTSAV 

MOVE RTN NO. THAT HANG WAS FOUND 

017E6 

98 A8 F 668 

1158 


LM 

RIO,R11,1 SLAVE 

RESTORE REGS 10 AND 11 

017EA 

94 7F F 064 

1159 


NI 

ISW,X'7F• 


017EE 

96 01 F 0E5 

1160 


01 

ISW+1,X*01' 


017F2 

OA DO 

1161 


SVC 

X'DO' 

PRINT 

017F4 

64 

1162 


DC 

X * 64 • 

-PREVIOUS HANGUP DETECTED- 

017F5 

1A 

1163 


DC 

X ' 1A • 


017F6 

F886 

1164 


DC 

AL2 f HUNG-SECNO+REG) 


017F8 

OA DO 

1165 


SVC 

X'DC* 


017FA 

A019 

1166 


DC 

X*A019' 


017FC 

F813 

f 1167 


DC 

AL2ICLUIN-SECN0+REGI 


017FE 

45 50 F 2A8 

1168 


8AL 

R5,1D0SNS 

BR. TO OUTPUT AVAILABLE INFO 

01802 

92 01 F 003 

1169 


MVI 

SECN0+3,X'0l• 

RESTORE TO ROUTINE 01 

01806 

94 FE F 0E5 

1170 


NI 

ISW+1,X'FE' 


01 BOA 

47 FO F 7C2 

1171 


BC 

UNC,BLOOP 


0180E 

07 00 

1172 


CNOP 

0,4 


01810 

FFFF 

1173 

SAVDEV 

DC 

X'FFFF * 


01812 

00 

1174 

RTSAV 

DC 

X'OO* 


01813 

4QE2C5 C540C4C5E2 

1175 

CLUIN 

DC 

C' SEE DESCRIPTION* 


0181B 

C3D9C9 D7E3C9D6D5 






01823 

60C3D6D4D4C5D5E3 

1176 


DC 

C'-COMMENTS * 


0182B 

E2 






0182C 

40C9C640E2E3D340 

1177 

STL 

DC 

C* IF STL FEATURE,' 


01834 

C6C5C1E3E4D9C56B 






0183C 

40C4C9E2C505C7C1 

1178 


DC 

C DISENGAGE STL H' 


01844 

C 7C54QE2E3D340C8 






0184C 

C1D9C4E6C1D9C5 

1179 


DC 

C'ARDWARE• 


01853 

40C9D5 E2E3C1D3D3 

1180 

CEMSG 

DC 

C* INSTALL CARRIAG' 


0185B 

•40C3C1D9D9C9C1C7 






01863 

C540E3C1D7C56B40 

1181 


DC 

C'E TAPE, CE OUTPU* 


0186B 

C3C540D6E4E3D764 






01873 

E340D4E4E2E340D5 

1182 


DC 

C'T MUST NOT BE TE' 


0187B 

D6E340C2C540E3C5 






01883 

E2E340C4C5E5C9C3 

11.83 


DC 

C'ST DEVICE* 


0188B 

C5 






0188C 

OA DA 

1184 


SVC 

X' DA * 


0188E 

40D7D9C5E5C9D6E4 

1185 

HUNG 

DC 

C' PREVIOUS HANG U' 


01896 

E240C8C1D5C740E4 






0189E 

D740C4C5E3C5C3E3 

1186 


DC 

C'P DETECTEO' 
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1403 PRINTER FUNCTION 1 


LOCAT 

OBJECT 

CODE 

STMT 

SOURCE STATEMENT 



018A6 

C5C4 









018A8 




1187 


CNOP 

0,4 



018A8 

0000000000000000 

1188 

SAVEIT 

DC 

XL 16* 0* 



018B0 

0000000000000000 







018B8 

0000000000000000 

1189 

SAVIT 

DC 

XL12* O' 



018C0 

00000000 








018C4 

00000000 


1190 

SAV10 

DC 

XL4'0' 



018C8 

00003FFF 


1191 

M0D50 

DC 

X * 00003FFF' 



018CC 

40 



1192 


DC 

X' 40 • 



018CD 




1193 

PRAR 

DS 

132C 



01951 

00 









01952 

07 00 



1194 


CNOP 

0,4 







1195 

*********************************************************************** 





1196 

* ROUTINE 01 

- ISSUE A TEST 1-0 

TO 

AN AVAILABLE AND IDLE DEVICE. 





1197 

♦ 


EXPECT CONDITION 

CODE 0. 





1198 

*********************************************************************** 

01954 

01 



1199 

R0UT01 

DC 

X'Ol' 


ROUTINE NUMBER 

01955 

000968 



1200 


DC 

AL3(R0UT02-SECN0) 


ADDRESS OF NEXT ROUTINE 

01958 

45 40 

F 

790 

1201 


BAL 

R4,IN IT 


BR. TO INITIALIZE 

0195C 

45 BO 

F 

OFA 

1202 

G001 

BAL 

Rll,ITIO 


BR. TO ISSUE TEST 1-0 

01960 

0200 



1203 


DC 

X'0200• 


CTRL SWITCHES 

01962 

0010 



1204 


DC 

X'0010' 


TES T NUMBER 

01964 

FOOO 



1205 


DC 

X•FOOD' 


EXP COND. CODE AND SENSE 

01966 

OA D6 



1206 


SVC 

X'D6' 


ROUTINE EXIT 

01968 




1207 


CNOP 

0,4 







1208 

*********************************************************************** 





1209 

* ROUTINE 02 

- ISSUE SENSE COMMAND 

-04-. EXPECT COND. CODE 0 ON THE SIG 





1210 

* 


ISSUE A TEST 1-0. 

EXPECT COND. CODE 1, AND CHANNEL AND 





1211 

* 


DEVICE ENO IN THE 

CSW. ISSUE TEST 1-0. EXPECT CONDITION 





1212 

♦ 


CODE 0 







1213 

*********************************************************************** 

01968 

02 



1214 

R0UT02 

DC 

X'02« 


ROUTINE NUMBER 

01969 

0009A4 



1215 


DC 

AL3(R0UT03-SECN0) 


ADDRESS OF NEXT ROUTINE 

0196C 

45 40 

F 

790 

1216 


BAL 

R4,INIT 


BR. TO INITIALIZE 

; 01970 

41 AO 

F 

650 

1217 

GOO 2 

LA 

RIO,I SENSE 


LOAD SENSE CCW ADDRESS 

01974 

45 BO 

F 

10E 

1218 


BAL 

RlltlSIO 


BR. TO ISSUE SENSE SIO 

01978 

4200 



1219 


DC 

X•4200' 


CTRL SWITCHES 

0197A 

0020 



1220 


DC 

X* 0020' 


TEST NUMB E R 

0197C 

FOOO 



1221 


DC 

X * FOOO' 


EXP COND. CODE AND SENSE 

0197E 

58 9E 

0 

198 

1222 


L 

R9,WT(R14I 



01982 

88 90 

0 

003 

1223 


SRL 

R9,3 



01986 

46 90 

F 

986 

1224 


BCT 

R9,* 


DELAY 

0198 A 

45 BO 

F 

OFA 

1225 


8AL 

Rll, 1TI0 


BR. TO ISSUE TEST 1-0 

0198E 

0 AOO 



1226 


DC 

X•OAOO• 


CTRL SWITCHES 

01990 

0030 



1227 


DC 

X'0030' 


TEST NUMBER 

01992 

F100 



1228 


DC 

X'FIOO' 


EXP COND. CODE AND SENSE 

01994 

FF04 



1229 


DC 

AL2< SNSCSW-SECNO+REG) 

EXP CSW ADDRESS 

01996 

45 BO 

F 

OFA 

1230 


BAL 

Rll,ITIQ 


BR. TO ISSUE TEST 1-0 

0199A 

0200 



1231 


DC 

X'0200' 


CTRL SWITCHES 

0199C 

0040 



1232 


DC 

X * 0040* 


TEST NUMB ER 

0199E 

FOOO 



1233 


DC 

X'FOOO• 


EXP COND. CODE AND SENSE 

! 019A0 

OA D6 



1234 


SVC 

X' D6 * 


ROUTINE EXIT 

019A2 

07 00 



1235 


CNOP 

0,4 







1236 

*********************************************************************** 





1237 

* ROUTINE 03 

- ISSUE SENSE COMMAND 

—04-. ENABLE FOR AN EXPECTED CHANNEL 





1238 

* 


DEVICE END INTERRUPT. ISSUE TIO. EXPECT COND. CODE 0. 





1239 

*********************************************************************** 

019A4 

03 



1240 

R0UT03 

DC 

X'03' 


ROUTINE NUMBER 

019A5 

0009C8 



1241 


DC 

AL3IR0UT04-SECN0) 


ADDRESS OF NEXT ROUTINE 

019A8 

45 40 

F 

790 

1242 


BAL 

R4,INIT 


BR. TO INITIALIZE 

019AC 

41 AO 

F 

650 

1243 

GOO 3 

LA 

RIO,I SENSE 


SET UP FOR SENSE COMMAND 

; 019B0 

45 BO 

F 

10E 

1244 


BAL 

RlltlSIO 


BR. TO ISSUE SENSE SIO 

019B4 

3A00 



1245 


DC 

X'3A00' 


CTRL SWITCHES 

! 019B6 

0050 



1246 


DC 

X•0050' 


TES T NUMBER 
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1403 PRINTER FUNCTION l 

LOCAT OBJECT CODE STMT SOURCE STATEMENT 


019B8 

FOOO 



1247 


DC 

X'FOOO• 

EXP COND. CODE AND SENSE 


019BA 

FF04 



1248 


DC 

AL2(SNSCSW-SECNO+REG) 

EXP CSW ADDRESS 


019BC 

45 BO 

F 

OFA 

1249 


BAL 

RlltITIO 

BR. TO ISSUE TEST 1-0 


019C0 

0200 



1250 


OC 

X•0200' 

CTRL SWITCHES 


019C2 

0060 



1251 


DC 

X•0060' 

TEST NUMBE 

R 

019C4 

FOOO 



1252 


DC 

X * FOOO * 

EXP COND. CODE AND SENSE 


019C6 

OA 06 



1253 


SVC 

X • D6' 

ROUTINE EXIT 


019C8 




1254 


CNOP 

0,4 







1255 

*********************************************************************** 





1256 

♦ ROUTINE 04 

- ISSUE NOP -03—. EXPECT COND. CODE 1 ON THE SIO, 

WITH 





1257 

* 


CHANNEL AND DEVICE 

END STORED IN THE CSW. NO INTERRUPT 





1258 

* 


SHOULO OCCUR. IF PRINTER HAS UCS FEATURE, ISSUE 

THE 





1259 

* 


PRECONDITION LOAD COMMAND -EB-, THE BLOCK DATA 

CHECK 





1260 

* 


COMMAND -73-, AND THE ALLOW DATA CHECK COMMAND 

-7B-. 





1261 

♦ 


EXPECT SAME RESULTS 

AS NOP. 






1262 

*********************************************************************** 

019C8 

04 



1263 

R0UT04 

DC 

X' 04' 

ROUTINE NUMBER 


019C9 

000A1C 



1264 


DC 

AL3(R0UT05-SECN0) 

ADDRESS OF NEXT ROUTINE 


019CC 

45 40 

F 

790 

1265 


BAL 

R4,IN IT 

BR. TO INITIALIZE 


019D0 

92 03 

F 

F18 

1266 

G004 

MV I 

CCW,X'03■ 

SET UP FOR NOP 


019D4 

45 BO 

F 

10E 

1267 


BAL 

Rll,ISIO 

BR. TO ISSUE NOP SIO 


019D8 

OAOO 



1268 


DC 

X'OAOO• 

CTRL SWITCHES 


019DA 

0070 



1269 


DC 

X * 0070' 

TEST NUMBE 

R 

019DC 

F100 



1270 


DC 

X ' F100' 

EXP COND. CODE AND SENSE 


019DE 

FFOC 



1271 


DC 

AL2(NOPCSW-SECNO+REG) 

EXP CSW ADDRESS 


019E0 

91 10 

F 

0E1 

1272 


TM 

UNIT1+1,X*1Q' 

CHECK FOR UCS FEATURE 


019E4 

47 80 

F 

A18 

1273 


BC 

NONE,END03 

BR. IF NOT DEFINED 


019E8 

92 EB 

F 

F18 

1274 


MV I 

CCW,X'EB• 

SET UP FOR PRE-CONDITION LOAD 

019EC 

45 BO 

F 

10E 

1275 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


019F0 

OAOO 



1276 


DC 

X'OAOO' 

CTRL SWITCHES 


019F2 

0080 



1277 


DC 

X * 0080' 

TEST NUMBE 

R 

019F4 

F100 



1278 


DC 

X'FIOO' 

EXP COND. CODE AND SENSE 


019F6 

FFOC 



1279 


DC 

AL2(NOPCSW-SECNO+REG) 

EXP CSW ADDRESS 


019F8 

92 73 

F 

F18 

1280 


MVI 

CCW,X•73• 

SET UP FOR BLOCK DATA CHECK 


019FC 

45 BO 

F 

10E 

1281 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01A00 

OAOO 



1282 


DC 

X'OAOO' 

CTRL SWITCHES 


01A02 

0090 



1283 


DC 

X * 0090* 

TEST NUMBE 

R 

01A04 

F100 



1284 


DC 

X'FIOO* 

EXP COND. CODE AND SENSE 


01A06 

FFOC 



1285 


DC 

AL2<NOPCSW-SECNO+REG) 

EXP CSW ADDRESS 


01A08 

92 78 

F 

F18 

1286 


MVI 

CCW,X'78' 

SET UP FOR ALLOW DATA CHECK 


01A0C 

45 BO 

F 

10E 

1287 


BAL 

Rll,ISIO 

BR. TO ISSUE $10 


01A10 

OAOO 



1288 


DC 

X'OAOO' 

CTRL SWITCHES 


01A12 

0100 



1289 


DC 

X'0100' 

TEST NUMBE 

R 

01A14 

FIDO 



1290 


DC 

X'FIOO' 

EXP COND. CODE AND SENSE 


01A16 

FFOC 



1291 


DC 

AL2(NOPCSW-SECNO+REG) 

EXP CSW ADDRESS 


01A18 

OA D6 



1292 

END03 

SVC 

X • D6 • 

ROUTINE EXIT 


01A1A 

07 00 



1293 


CNOP 

0,4 




1294 *********************************************************************** 

1295 * ROUTINE 05 - ISSUE DIAGNOSTIC WRITE -05-, WITH A COUNT OF 131, EXPECT 

1296 * INCORRECT LENGTH RECORD TO BE INDICATED. ISSUE SAME 

1297 * COMMAND WITH SlI FLAG. EXPECT INCORRECT LENGTH TO EE 

1298 * SUPPRESSED. ISSUE DIAGNOSTIC READ -02-, WITH COUNT OF 

1299 * 131. EXPECT INCORRECT LENGTH TO BE INDICATED. ISSUE SAME 

1300 * COMMAND WITH SLI FLAG. EXPECT INCORRECT LENGTH TO BE 

1301 * SUPPRESSED. REPEAT ABOVE TESTS WITH A LONG COUNT OF 133. 

1302 *********************************************************************** 


01A1C 

05 



1303 

R0UT05 

DC 

X' 05 * 

ROUTINE NUMBER 


01 AID 

000AD8 



1304 


DC 

AL3(R0UT06-SECN0) 

ADDRESS OF NEXT ROUTINE 


01A20 

45 40 

F 

790 

1305 


BAL 

R4,INIT 

BR. 

TO INITIALIZE 


01A24 

41 AO 

F 

EE8 

1306 

G005 

LA 

RIO,SHORT 

LOAD 

ADDR OF SHORT COUNT 

CCW 

01A28 

92 05 

F 

EE8 

1307 


MVI 

SHORT,X*05« 

SET 

UP FOR DIAGNOSTIC WRITE 

01A2C 

45 BO 

F 

10E 

1308 


BAL 

Rll,ISIO 

BR. 

TO ISSUE SIO 


01A30 

3C00 



1309 


DC 

X'3C00' 

CTRL 

SWITCHES 


01A32 

0110 



1310 


DC 

X'OUO' 

T E 

ST NUMB 

E 
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01A34 

FOOO 



1311 

DC 

X'FOOO• 

EXP COND. CODE AND SENSE 


01A36 

FEFO 



1312 

DC 

AL2(SHRT-SECNO+REG) 

EXP CSW ADDRESS 


OIA38 

41 AO 

F 

E90 

1313 

LA 

RIO,SSL I 

SET UP FOR SHORT WRITE WITH 

SLI FLAG 

01 A3C 

92 05 

F 

E90 

1314 

MVI 

SSL I,X * 05 * 

SET UP FOR DIAGNOSTIC WRITE 


01A40 

45 BO 

F 

10E 

1315 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01A44 

3C00 



1316 

DC 

X•3C00• 

CTRL SWITCHES 


01A46 

0120 



1317 

DC 

X'0120' 

TEST NUMBE 

R 

01A48 

FOOO 



1318 

DC 

X•FOOO' 

EXP COND. CODE AND SENSE 


01 A4A 

FE98 



1319 

DC 

AL21 SSL IST-SECNO+REG) 

EXP CSW ADDRESS 


01 A4C 

92 02 

F 

EE8 

1320 

MVI 

SHORT,X'02' 

SET UP FOR DIAGNOSTIC READ 


01 A50 

41 AO 

F 

EE8 

1321 

LA 

RIO,SHORT 

SET UP FOR SHORT READ 


01A54 

45 80 

F 

10E 

1322 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01A58 

3800 



1323 

DC 

X'3800• 

CTRL SWITCHES 


01A5A 

0130 



1324 

DC 

X•0130' 

TEST NUMBE 

R 

01A5C 

FOOO 



1325 

DC 

X'FOOO' 

EXP COND. CODE AND SENSE 


01A5E 

FEA8 



1326 

DC 

AL 2(RDSHRT-SECNO+REG) 

EXP CSW ADDRESS 


01A60 

92 02 

F 

E90 

1327 

MVI 

SSLI,X'02 * 

SET UP FOR DIAGNOSTIC READ 


01A64 

41 AO 

F 

E90 

1328 

LA 

R10,SSLI 

SET UP FOR SHORT READ WITH 

SLI FLAG 

01A68 

45 BO 

F 

10E 

1329 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01A6C 

3800 



1330 

DC 

X * 3800' 

CTRL SWITCHES 


01A6E 

0140 



1331 

DC 

X'0140* 

TEST NUMBE 

R 

01A70 

FOOO 



1332 

DC 

X»FOOO' 

EXP COND. CODE AND SENSE 


01A72 

FEBO 



1333 

DC 

AL 2(RSSLI-SECNO+REG) 

EXP CSW ADDRESS 


01A74 

41 AO 

F 

EB8 

1334 

LA 

RIO,WRLNG 

SET UP FOR LONG COUNT 


01A78 

92 05 

F 

EB8 

1335 

MVI 

WRLNG * X'05' 

SET UP FOR DIAGNOSTIC WRITE 


01A7C 

92 40 

F 

ECD 

1336 

MVI 

ALNG+5,X *40 ' 

EXP INCORRECT LENGTH 


01A80 

45 BO 

F 

10E 

1337 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01A84 

3C00 



1338 

DC 

X'3C00' 

CTRL SWITCHES 


01A86 

0150 



1339 

DC 

X•0150 * 

TEST NUMBE 

R 

01A88 

FOOO 



1340 

DC 

X * FOOO• 

EXP COND. CODE AND SENSE 


01A8A 

FEC8 



1341 

DC 

AL2(ALNG-SECNO+REG) 

EXP CSW ADDRESS 


01A8C 

41 AO 

F 

ECO 

1342 

LA 

R10,LNGSLI 

SET UP FOR LONG COUNT WITH ! 

SLI 

01A90 

92 05 

F 

ECO 

1343 

MVI 

LNGSLI,X•05 * 

SET UP FOR DIAGNOSTIC WRITE 


01A94 

45 BO 

F 

10E 

1344 

BAL 

Rll,ISIO • 

BR. TO ISSUE SIO 


01A98 

3C00 



1345 

DC 

X•3C00' 

CTRL SWITCHES 


01A9A 

0160 



1346 

DC 

X•0160' 

TEST NUMBE 

R 

01A9C 

FOOO 



1347 

DC 

X'FOOO * 

EXP COND. CODE AND SENSE 


01A9E 

FF38 



1348 

DC 

AL2(ALNS-SECNO+REG) 

EXP CSW ADDRESS 


01A AO 

92 00 

F 

ECD 

1349 

MVI 

ALNG+5,X'OO' 

EXP NO INCORRECT LENGTH 


01AA4 

41 AO 

F 

EB8 

1350 

LA 

RIO,WRLNG 



01AA8 

92 02 

F 

EB8 

1351 

MVI 

WRLNG,X'02' 

SET UP FOR DIAGNOSTIC READ 


01A AC 

92 40 

F 

EDD 

1352 

MVI 

BLNG+5,X'40* 

EXP INCORRECT LENGTH 


01 ABO 

45 BO 

F 

10E 

1353 

BAL 

Rll,ISIO 

BR. TO ISSUE LONG READ 


01AB4 

3800 



1354 

DC 

X•3800* 

CTRL SWITCHES 


01AB6 

0170 



1355 

DC 

X * 0170* 

TEST NUMBE 

R 

01AB8 

FOOO 



1356 

DC 

X'FOOO' 

EXP COND. CODE AND SENSE 


01 ABA 

FEDS 



1357 

DC 

AL2(BLNG-SECNO+REG) 

EXP CSW ADDRESS 


01 ABC 

92 00 

F 

EDD 

1358 

MVI 

BLNG+5,X'OO* 

EXP NO INCORRECT LENGTH 


01AC0 

41 AO 

F 

ECO 

1359 

LA 

R10,LNGSLI 



01AC4 

92 02 

F 

ECO 

1360 

MVI 

LNGSLI,X'02• 

SET UP FOR DIAGNOSTIC READ 


01AC8 

45 BO 

F 

10E 

1361 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 


01 ACC 

3800 



1362 

DC 

X•3800 * 

CTRL SWITCHES 


01 ACE 

0180 



1363 

DC 

X•0180 * 

TEST NUMBE 

R 

01 ADO 

FOOO 



1364 

DC 

X'FOOO' 

EXP COND. CODE AND SENSE 


01AD2 

FF48 



1365 

DC 

AL2CBLNS-SECN0+REG) 

EXP CSW ADDRESS 


01AD4 

OA D6 



1366 

SVC 

X • 06 • 

ROUTINE EXIT 


01AD6 

07 00 



1367 

CNOP 

0,4 




1368 *********************************************************************** 

1369 * ROUTINE 06 - ISSUE DIAGNOSTIC WRITE -05-. CLEAR NO INTERRUPTS. TRY 

1370 * TO ISSUE ANOTHER SIO. EXPECT COND. CODE 2. ISSUE HIO. 

1371 * EXPECT CONDITION CODE 0. ISSUE A TEST 1-0 

1372 * EXPECT COND. CODE 1 WITH CHANNEL END IN THE CSW. ISSUE 

1373 * ANOTHER HIO. EXPECT COND. CODE 1 WITH ZEROED CSW. ISSUE 

1374 * A SIO. EXPECT COND. CODE 1 WITH DEVICE BUSY AND DEVICE 
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06 

000B58 
45 40 
D2 07 
45 BO 
4200 
0190 
FOOO 

45 BO 
4200 
0200 
F200 
58 9E 
38 90 

46 90 
45 BO 
4200 
0210 
FOOO 

45 BO 
4A00 
0220 
F100 
FF20 
58 9E 
88 90 

46 90 
45 BO 
4 AOO 
0230 
F100 
FDF4 
45 BO 
0800 
0240 
F100 
FDC8 
45 BO 
4 AOO 
0250 
F100 
FDF4 
45 BO 
4200 
0260 
FOOO 
OA 06 


* END. ISSUE HIO AGAIN. EXPECT SAME AS BEFORE. ISSUE A 

* TEST 1-0. EXPECT COND. CODE 0. 

$************** ********************** ************* ****** ********** 


R0UT06 DC 
DC 


X * 06 * 

AL3(R0UT07-SECN0) 
R4 »IN IT 
CCW< 8)»DWR 
R11vISIO 
X *4200 * 

X * 0190* 

X * FOOO * 

RlltlSIO 
X *4200• 

X* 0200* 

X•F200 * 

R9t WT(R14I 
R9,4 
R9»* 

RlltIHIO 
X *4200 * 

X'0210* 

X'FOOO* 

RlltITIO 
X•4A00* 

X * 0220* 

X *F100* * 

AL2fN0RM-5ECN0+REG ) 
R9,WT(R14) 

R9,4 

R9,* 

RlltIHIO 
X * 4A00 * 

X•0230* 

X'FIOO* 

AL2ICSW0-SECN0+REG) 
RlltlSIO 
X * 0800* 

X*0240* 

X * F100* 

AL2 (DBZ Y-SECNO+REG ) 
RlltIHIO 
X* 4A00 • 

X * 0250 * 

X’FIOO* 

AL2(CSWO—SECNO+REG) 
RlltITIO 
X *4200 1 
X • 0260 • 

X • FOOO • 

X • D6' 

Ot 4 


ROUTINE NUMBER 

ADDRESS OF NEXT ROUTINE 

BR. TO INITIALIZE 

SET UP FOR DIAGNOSTIC WRITE 

BR. TO ISSUE SIO 

CTRL SWITCHES 

TEST NUMBE 

EXP COND. CODE AND SENSE 
BR. TO ISSUE SIO 
CTRL SWITCHES 

TEST NUMBE 

EXP COND. CODE AND SENSE 
LOAD WAIT FACTOR 
ADJUST 

LOOP UNTIL COUNT OF ZERO 
BR. TO ISSUE HALT I~G 
CTRL SWITCH 

TEST NUMBE 

EXP COND. CODE AND SENSE 
BR. TO ISSUE TEST 1-0 
CTRL SWITCHES 

T EST NUMBE 

EXP COND. CODE AND SENSE 

EXP CSW ADDRESS 

LOAD DM WAIT CONSTANT 

ADJUST 

DELAY 

BR. TO ISSUE HALT 1-0 
CTRL SWITCHES 

TEST NU MBE 

EXP COND COSE AND SENSE 
EXP CSW ADDRESS 
BR. TO ISSUE SIO 
CTRL SWITCHES 

TEST NUMBE 
EXP COND. CODE AND SENSE 
EXP CSW ADDRESS 
BR. TO ISSUE HALT 1-0 
CTRL SWITCHES 

TEST NUMBE 
EXP COND CODE AND SENSE 
EXP CSW ADDRESS 
BR. TO ISSUE TEST 1-0 
CTRL SWITCHES 

TEST NUMBE 
EXP COND CODE AND SENSE 
ROUTINE EXIT 


*++*****++****+*****+****+ + *** + * + ** + + + * + + ++*+ + +++ + + *+ + + + +++a + + m 

* ROUTINE 07 - THIS ROUTINE IS BYPASSED UNLESS SECTION SENSE SWITCH 5 

* IS ON. MAKE DEVICE NOT READY. ISSUE A NOP -03-. ISSUE 

* A TIO. EXPECT COND. CODE It WITH UNIT CHECK STORED, AND 

* INTERVENTION REQUIRED IN SENSE, FOR BOTH. ISSUE HIO. 

* EXPECT COND. CODE 1, WITH 0 CSW STORED. MAKE DEVICE 

* UNAVAILABLE. ISSUE NOP -03- SIO* A TIO, AND A HIO. 

* EXPECT COND. CODE 3 ON EACH. MAKE DEVICE AVAILABLE AND 

* READY. ISSUE TIO. EXPECT COND. CODE 1 WITH DEVICE END 

* STORED DUE TO NOT READY TO READY. RESTORE CARRIAGE. 

* ISSUE SKIP TO 1 IMMEDIATE. OBSERVE NO CARRIAGE MOTION. 

* ISSUE PRINT AND SPACE SUPPRESS -01-. OBSERVE NO MOTION. 

* ISSUE SKIP TO 1 IMMEDIATE. CARRIAGE SHOULD SKIP TO 1. 
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1439 

* * * * * * * * * * 4c * ♦ * * * * * * * * * * * * * ** * * * * * * * * * * * * 4c * * * * * * * * * * * * * * * * * * * * * * * * * * * * 4c $ 

01B58 

07 



1440 

R0UT07 

DC 

X • 07 • 

ROUTINE NUMBER 


01B59 

OOOC50 



1441 


DC 

AL3IR0UT08—SECNO) 

ADDRESS OF NEXT ROUTINE 


01B5C 

91 04 

F 

004 

1442 


TM 

SNSW,X 1 04• 

CHECK SECTION SENSE SWITCH 5 


01B60 

47 10 

F 

B6C 

1443 


BC 

ALL,G007—4 

BR- IF ON 


01B64 

OA DO 



1444 

SOLONG 

SVC 

X 1 DO • 

PRINT -BYPASSED- 


01B66 

04 



1445 


DC 

X • 04 1 



01B67 

OE 



1446 


DC 

X • OF * 



01B68 

FDDO “ 



1447 


DC 

AL2(BYPASS-SECNO+REG) 



01B6A 

OA D6 



1448 


SVC 

X * D6 * 

EXIT FROM ROUTINE 


01B6C 

45 40 

F 

790 

1449 


BAL 

R4,INIT 



01B70 

OA DO 



1450 

G007 

SVC 

X*DO' 

PRINT -MAKE NOT READY* 


01B72 

24 



1451 


DC 

X • 24 * 



01B73 

OF 



1452 


DC 

X * OF • 



01B74 

FDDD 



1453 


DC 

AL2(MNR-SECNO+REG) 



01B76 

OA DA 



1454 


SVC 

X * DA • 

HALT TO PERFORM INTERVENTION 


01B78 

45 BO 

F 

10E 

1455 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 


01B7C 

3800 



1456 


DC 

X•3800* 

CTRL SWITCHES 


01B7E 

0270 



145 7 


DC 

X•0270* 

TEST NUMBE 

R 

01B80 

F140 



1458 


DC 

X * F140* 

EXP COND. CODE AND SENSE 


01B82 

FDEC 



1459 


DC 

AL2(UC-SECNO+REG) 

EXP CSW ADDRESS 


01B84 

45 BO 

F 

OFA 

1460 


BAL 

RlltITIO 

BR. TO ISSUE TIO 


01B88 

3800 



1461 


DC 

X* 3800* 

CTRL SWITCHES 


0IB8A 

0280 



1462 


DC 

X * 0280* 

TEST NUMBE 

R 

01B8C 

F140 



1463 


DC 

X * F140• 

EXP COND. CODE AND SENSE 


01B8E 

FDEC 



1464 


DC 

AL2(UC-SECNO+REG) 

EXP CSW ADDRESS 


01B90 

4 5 BO 

F 

0E6 

1465 


BAL 

RlltIHIO 

BR. TO ISSUE HIO 


01B94 

3800 



1466 


DC 

X * 3800* 

CTRL SWITCHES 


01B96 

0290 



1467 


DC 

X * 0290* 

TEST NUMBE 

R 

01B98 

F140 



1468 


DC 

X * F140* 

EXP COND. CODE AND SENSE 


01B9A 

FDF4 



1469 


DC 

AL2 ( CSWO-SECNO+REG 1 



01B9C 

OA DO 



1470 


SVC 

X *D0 * 

PRINT -MAKE UNAVAILABLE- 


01B96 

24 



1471 


DC 

X • 24 • 



01B9F 

11 



1472 


DC 

X*ll* 



01BA0 

FE04 



1473 


DC 

AL2(MUA-SECNO+REG) 



01BA2 

OA DA 



1474 


SVC 

X • DA * 

HALT TO PERFORM INTERVENTION 


01BA4 

45 BO 

F 

10E 

1475 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 


01BA8 

3200 



1476 


DC 

X * 3200* 

CTRL SWITCHES 


01 BA A 

0300 



1477 


DC 

X * 0300 • 

TEST NUMBE 

R 

01BAC 

F300 



1478 


DC 

X * F300 * 

EXP COND. CODE AND SENSE 


01BAE 

45 60 

F 

OFA 

1479 


BAL 

RlltITIO 

BR. TO ISSUE TIO 


01BB2 

3200 



1480 


DC 

X * 3200 * 

CTRL SWITCHES 


01BB4 

0310 



1481 


DC 

X * 0310* 

TEST NUMBE 

R 

C1BB6 

F300 



1482 


DC 

X * F300* 

EXP. COND. CODE AND SENSE 


01 BBS 

45 60 

F 

0E6 

1483 


BAL 

RlltIHIO 

BR. TO ISSUE HIO 


01 BBC 

3200 



1484 


DC 

X • 3200 • 

CTRL SWITCHES 


01BBE 

0320 



1485 


DC 

X • 0320* 

TEST NUMBE 

R 

01BC0 

F300 



1486 


DC 

X * F300* 

EXP COND. CODE AND SENSE 


01BC2 

OA DO 



1487 


SVC 

X • DO • 

PRINT -MAKE AVAILABLE, RESTORE, 

01BC4 

24 



1488 


DC 

X • 24 • 

READY- 


01BC5 

IF 



1489 


DC 

X • IF • 



01BC6 

FE15 



1490 


DC 

AL2(MRA-SECNO+REG) 



01BC8 

OA OA 



1491 


SVC 

X * DA • 

HALT TO PERFORM INTERVENTION 


01BCA 

45 BO 

F 

OFA 

1492 


BAL 

RlltITIO 

BR. TO ISSUE TIO 


01 BCE 

3800 



1493 


DC 

X • 3800* 

CTRL SWITCHES 


016D0 

0330 



1494 


DC 

X * 0330 • 

TEST N UMBE 

R 

01BD2 

F100 



1495 


DC 

X•F100* 

EXP COND. CODE AND SENSE 


01BD4 

FF28 



1496 


DC 

AL2(DONLY-SECNO+REG) 

EXP CSW ADDRESS 


01BD6 

D2 01 

F 

E3D 

F E58 1497 


MVC 

0NCM+9C 2),N0 

MOVE -NO- TO MESSAGE 


01BDC 

OA DO 



1498 


SVC 

X*00* 

PRINT -OBSERVE NO CARRIAGE MOTION- 

01BDE 

24 



1499 


DC 

X*24* 



01BDF 

24 



1500 


DC 

X *24 * 



01 B£0 

FE34 



1501 


DC 

AL2I0NCM-SECN0+REG) 



01BE2 

OA DO 



1502 


SVC 

X*DO* 

PRINT -SKIP TO 1 IMMED* 
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01BE4 

AP 





1503 


DC 

X' AO 1 


01BE5 

10 





1504 


DC 

X*10* 


01BE6 

FE5 A 





1505 


DC 

AL2(SKIP—SECNO+REG) 


01BE8 

OA DA 





1506 


SVC 

X' DA' 

HALT TO READ INSTRUCTIONS 

01BEA 

92 8B 

F 

F18 



1507 


MV I 

CCW ,X * 8B * 

SET UP SKIP TO 1 IMMEDIATE 

OlBEE 

45 BO 

F 

10E 



1508 


BAL 

RllfISIO 

BR. TO ISSUE SIO 

01BF2 

3C00 





1509 


DC 

X • 3C00 * 

CTRL SWITCHES 

01BF4 

0340 





1510 


DC 

X * 0340• 

TEST NUM BER 

01BF6 

F100 





1511 


DC 

X * F100 * 

EXP CONP. CODE AND SENSE 

01BF8 

FF50 





1512 


DC 

AL2(IMCSW-SECNO+REG) 


01BFA 

OA DO 





1513 


SVC 

X*DO* 

PRINT -OBSERVE NO CARRIAGE MOTION- 

01BFC 

24 





1514 


DC 

X * 24 * 


01BFD 

24 





1515 


DC 

X * 24' 


01BFE 

FE34 





1516 


DC 

AL2(ONCM-SECNO+REG) 


01C00 

OA DO 





1517 


SVC 

X * DO' 

PRINT -PRINT NO SPACE- 

01C02 

AO 





1518 


DC 

X* AO * 


01C03 

17 





1519 


DC 

X* 17* 


01C04 

FE6 A 





1520 


DC 

AL2(PNS-SECNO+REG) 


01C06 

OA DA 





1521 


SVC 

X * D A ' 

HALT TO READ INSTRUCTIONS 

01C08 

D2 07 

F 

F18 

F 

oco 

1522 


MVC 

CCW(8>,DWR 


01 COE 

92 01 

F 

F18 



1523 


MV I 

CCW,X*01' 

SET UP PRINT NO SPACE 

01C12 

45 BO 

F 

10E 



1524 


BAL 

RllfISIO 

BR. TO ISSUE SIO 

01C16 

3C00 





1525 


DC 

X* 3C00 * 

CTRL SWITCHES 

01C18 

0350 





1526 


DC 

X * 0350 * 

TEST NUMBER 

01C1A 

FOOO 





1527 


DC 

X *FOOO * 

EXP COND. CODE AND SENSE 

01C1C 

FF20 





1528 


DC 

AL2(NORM-SECNO+REG) 

EXP CSW ADDRESS 

01C1E 

D2 01 

F 

E3D 

F 

E3C 

1529 


MVC 

QNCM+9(2)tONCM+8 

BLANK OUT -NO- IN MESSAGE 

01C24 

OA DO 





1530 


SVC 

X • DO • 

PRINT -OBSERVE CARRIAGE MOTION- 

01C26 

24 





1531 


DC 

X * 24 • 


01C27 

24 





1532 


DC 

X * 24 * 


01C28 

FE34 





1533 


DC 

AL2 ( ONCM-SECNO+REG) 


01C2A 

OA DO 





1534 


SVC 

X ’DO • 

PRINT -SKIP TO 1 IHMED- 

01C2C 

AO 





1535 


DC 

X* AO • 


01C2D 

10 





1536 


DC 

X'l€« 


01C2E 

FE5 A 





1537 


DC 

AL2(SKJP-SECNO+REG) 


01C30 

OA DA 





1538 


SVC 

X * DA • 

HALT TO READ INSTRUCTIONS 

01C32 

D2 07 

F 

F18 

F 

F60 

1539 


MVC 

CCWI 8 ) ,NOPCCW 

SET UP FOR S*K I P TO 1 IMMEDIATE 

01C38 

92 8B 

F 

F18 



1540 


MV I 

CCW , X * 88 * 


01C3C 

45 BO 

F 

10E 



1541 


BAL 

RllylSIO 

BR. TO ISSUE SIO 

01C40 

3C00 





1542 


DC 

X • 3C00 • 

CTRL NUMBER 

01C42 

0360 





1543 


DC 

X • 0360* 

TEST NUMBER 

01C44 

F100 





1544 


DC 

X ' F100 • 

EXP COND. CODE AND SENSE 

01C46 

FF50 





1545 


DC 

AL2(IMCSW-SECNO+REGI 

EXP CSW ADDRESS 

01C48 

OA DO 





1546 


SVC 

X *D0* 


01C4A 

04 





1547 


DC 

X * 04 * 


01C4B 

OB 





1548 


DC 

X ' 00 • 


01C4C 

FE81 





1549 


DC 

AL2 ( ENDRTN-SECNO+REG ) 


Q1C4E 

OA D6 





1550 


SVC 

X * D6 • 

ROUTINE EXIT 

01C50 






1551 


CNOP 

0,4 








1552 

* * * * * * * * * * <c * * * * * * * * * * * * * * * * * ** * * * * ** * * * * * * * * * * * * * * * * * * * * * ** * * * * * * * ** * * * 







1553 

* 

ROUTINE 08 

- ISSUE DIAGNOSTIC WRITE -05-, WITH COUNT OF 32, DATA 







1554 



CHAINED TO ANOTHER 

CCW WITH A COUNT OF 100. THE SECOND 







1555 

♦ 


CCW IS AN INVALID COMMAND. EXPECT NO UNUSUAL CONDITIONS. 







1556 

*********************************************************************** 

01C50 

08 





1557 

ROUT08 DC 

X • 08 ' 

ROUTINE NUMBER 

01C51 

000C90 





1558 


DC 

AL3(R0UT09-SECN0! 

ADDRESS OF NEXT ROUTINE 

Q1C54 

45 40 

F 

790 



1559 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01C58 

41 AO 

F 

C70 



1560 

GOO8 LA 

R10,DWRDC 

SET UP FOR DATA CHAIN 

01C5C 

45 BO 

F 

10E 



1561 


BAL 

R11,ISI0 

BR. TO ISSUE SIO 

01C60 

3C00 





1562 


DC 

X*3C00* 

CTRL SWITCHES 

01C62 

0370 





1563 


DC 

X * 0370 • 

TEST NUMBER 

01C64 

FOOO 





1564 


DC 

X ' FOOO* 

EXP COND. CODE AND SENE 

01C66 

FC80 





1565 


DC 

AL2 < DCCWS-SECNO+REG) 

EXP CSW ADDRESS 

01C68 

OA D6 





1566 


SVC 

X'D6« 

ROUTINE EXIT 
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1403 PRINTER FUNCTION 1 


LOCAT 

OBJECT CODE 

STMT 

SOURCE STATEMENT 


01C6A 

000000000000 



• 



01C70 

050018 CD80000020 

1567 

DWRDC 

CCW 

X*05*,PRAR,X*80*,32 


01C78 

000018 CD00000064 

1568 


CCW 

X*00*,PRAR,X*00',100 


01C80 

00001C80 

1569 

DCCWS 

DC 

A(DCCWS) 


01C84 

08000000 

1570 


DC 

X•08000000• 


01C88 

00000000 

1571 


DC 

XL4'0• 


01C8C 

04000000 

1572 


DC 

X'04000000• 


01C90 


1573 


CNOP 

0,4 




1574 

*********************************************************************** 



1575 

♦ ROUTINE 09 

- COMMAND CHAIN A NOP -03-, TO ANOTHER NOP. EXPECT COND. 



1576 

* 


CODE 0 ON THE SIO, 

DUE TO CHAIN FLAG. EXPECT CHANNEL 



1577 

* 


AND DEVICE END INTERRUPT WITH ADDRESS OF THE SECOND 



1578 

* 


CCW PLUS 8 STORED 

IN THE CSW. 



1579 

*********************************************************************** 

01C90 

09 

1580 

R0UT09 

DC 

X • 09 * 

ROUTINE NUMBER 

01C91 

000CC8 

1581 


DC 

AL3(ROUT10-SECNO) 

ADDRESS OF NEXT ROUTINE 

01C94 

45 40 F 790 

1582 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01C98 

41 AO F CBO 

1583 

G009 

LA 

RIO,CHNNOP 

SET UP TO CHAIN NOP 

01C9C 

45 BO F 10E 

1584 


BAL 

RllfISIO 

BR. TO ISSUE SIO 

01CA0 

3800 

1585 


DC 

X * 3800 * 

CTRL SWITCHES 

01CA2 

0380 

1586 


DC 

X * 0380* 

TEST NUMBER 

01CA4 

FOOO 

1587 


DC 

X * FOOO' 

EXP COND. CODE AND SENSE 

01CA6 

FCCO 

1588 


DC 

AL2(CHNST-SECNO+REGI 

EXP CSW ADDRESS 

01CA8 

OA D6 

1589 


SVC 

X * D6 1 

ROUTINE EXIT 

01CAA 

000000000000 






01CB0 

030018CD40000001 

1590 

CHNNOP 

CCW 

X * 03 *,PRAR,X *40•,1 


01CB8 

030018CD00000001 

1591 


CCW 

X * 03*,PRAR,X* 00* , 1 


01CC0 

00001CC0 

1592 

CHNST 

DC 

A(CHNST) 


01CC4 

0C000001 

1593 


DC 

X'OCOOOOOl* 


! 01CC8 


1594 


CNOP 

0,4 




1595 

*********************************************************************** 



1596 

* ROUTINE 10 

- ISSUE DIAGNOSTIC CHECK READ -06-. EXPECT COND. CODE 0 



1597 

* 


ON SIO, WITH CHANNEL AND DEVICE END INTERRUPT. 



1598 

*********************************************************************** 

01CC8 

10 

1599 

R0UT10 

DC 

X* 10* 

ROUTINE NUMBER 

01CC9 

OOOCFO 

1600 


DC 

AL3(ROUT11—SECNO) 

ADDRESS OF NEXT ROUTINE 

01CCC 

45 40 F 790 

1601 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01CD0 

D2 07 F F18 F CE8 

1602 

GO 10 

MVC 

CCW(8),DCRD 

SET UP FOR DIAG. CHECK READ 

01CD6 

45 BO F 10E 

1603 


BAL 

R11,ISI0 

BR. TO ISSUE SIO 

01CDA 

3800 

1604 


DC 

X *3800 * 

CTRL SWITCHES 

01CDC 

0390 

1605 


DC 

X * 0390* 

TEST NUMBER 

01CDE 

FOOO 

1606 


DC 

X * F 000 * 

EXP COND. CODE AND SENSE 

01 CEO 

FF30 

1607 


DC 

AL2(NORD-SECNO+REG) 

EXP CSW ADDRESS 

01CE2 

OA D6 

1608 


SVC 

X * D6 * 

ROUTINE EXIT 

01CE4 

00000000 






01CE8 

060018CD00000084 

1609 

DCRD 

CCW 

X * 06 *,PRAR,X’OO*,132 


01CF0 


1610 


CNOP 

0,4 




1611 

*********************************************************************** 



1612 

♦ ROUTINE 11 

- ISSUE PRINT AND SKIP TO 1 -89-. CLEAR CHANNEL END. 



1613 

* 


ISSUE TIG BEFORE DEVICE END OCCURS. EXPECT DEVICE BUSY. 



1614 

* 


REPEAT FOR SIO. EXPECT SAME. REPEAT FOR HIO. EXPECT COND 



1615 

* 


CODE 1 WITH ZEROED 

CSW. EACH DEVICE END FROM THE PRINT 



1616 

* 


AND SKIP TO 1 IS CLEARED BY ENABLING THE CHANNEL AFTER 



1617 

* 


THE 1-0 OPERATION 

BETWEEN CHANNEL AND DEVICE END. THIS 



1618 

* 


ROUTINE WILL BE BYPASSED IF SECTION SENSE SWITCH 7 IS ON 



1619 

*********************************************************************** 

| 01CF0 

11 

1620 

ROUT 11 

DC 

X*ll* 

ROUTINE NUMBER 

01CF1 

000D54 

1621 


DC 

AL3(R0UT12—SECNO) 

ADDRESS OF NEXT ROUTINE 

! 01CF4 

45 40 F 790 

1622 


BAL 

R4,INIT 


1 01CF8 

D2 07 F FIB F CE8 

1623 

G011 

MVC 

CCW(8),DCRD 


01CFE 

91 01 F 004 

1624 


TM 

SNSW,X * 01• 

CHECK SECTION SENSE SWITCH 7 

01D02 

47 10 F B64 

1625 


BC 

ALL,SOLONG 

BR. IF ON TO BYPASS ROUTINE 

01D06 

92 89 F F18 ! 

1626 


MVI 

CCW,X *89* 

SET UP PRINT AND SKIP TO 1 

I 01D0A 

45 BO F 10E 

1627 


BAL 

RllfISIO 

BR. TO ISSUE SIO 
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LOCAT 

OBJECT 

CODE 

STMT 

SOURCE STATEMENT 




01D0E 

2 AOO 



1628 

DC 

X' 2A00 * 

CTRL SWITCHES 



01D10 

0400 



1629 

DC 

X' 0400' 

TEST NUMB 

E 

R 

01D12 

FOOO 



1630 

DC 

X' FOOO * 

EXP COND. CODE AND SENSE 



Q1D14 

FF20 



1631 

DC 

AL2(NORM-SECNO+REG) 

EXP CSW ADDRESS 



01D16 

45 BO 

F 

OFA 

1632 

BAL 

Rll* ITIO 

BR. TO ISSUE TEST 1-0 



01D1A 

3C00 



1633 

DC 

X * 3C00' 

CTRL SWITCHES 



01D1C 

0410 



1634 

DC 

X' 0410„* 

TEST NUMB 

E 

R 

01D1E 

F100 



1635 

DC 

X'FIOO' 

EXP COND. CCDE AND SENSE 



01D20 

FDBO 



1636 

DC 

AL2(DBIZ-SECNO+REG) 

EXP CSW ADDRESS 



01D22 

45 BO 

F 

10E 

1637 

BAL 

Rll,1SIO 

BR. TO ISSUE SIO 



01D26 

2A00 



1638 

DC 

X* 2A00* 

CTRL SWITCHES 



01D28 

0420 



1639 

DC 

X* 0420® 

TEST NUMB 

E 

R 

01D2A 

FOOO 



1640 

DC 

X * FOOO' 

EXP COND. CODE AND SENSE 



01D2C 

FF20 



1641 

DC 

AL2(NORM-SECNO+REG) 

EXP CSW ADDRESS 



01D2E 

45 BO 

F 

10E 

1642 

BAL 

Rll,ISIO 

BR. TO ISSUE SIO 



01D32 

3C00 



1643 

DC 

X'3C00 * 

CTRL SWITCHES 



01D34 

0430 



1644 

DC 

X' 0430 * 

TEST NUMB 

E 

R 

01D36 

F100 



1645 

DC 

X'FIOO* 

EXP COND. CODE AND SENSE 



01D38 

FDBO 



1646 

DC 

AL2(DBIZ-SECNO+REG) 

EXP CSW ADDRESS 



01D3A 

45 BO 

F 

IDE 

1647 

BAL 

Rll,1SIO 

BR. TO ISSUE START I-G 



01D3E 

2 AOO 



1648 

DC 

X * 2AOO * 

CTRL SWITCHES 



01D40 

0440 



1649 

DC 

X' 0440' 

TEST NUMB 

E 

R 

01D42 

FOOO 



1650 

DC 

X * FOOO * 

EXP COND CODE AND SENSE 



01D44 

FF20 



1651 

DC 

AL2(NORM-SECNO+REG) 

EXP CSW ADDRESS 



01D46 

45 80 

f 

0£6 

1652 

BAL 

RlltIHIO 

BR. TO ISSUE HALT 1-0 



01D4A 

3C00 



1653 

DC 

X * 3C00' 

CTRL SWITCHES 



01D4C 

0450 



1654 

DC 

X * 0450• 

TEST NUMB 

E 

R 

01D4E 

FIDO 



1655 

DC 

X'FIOO' 

EXP COND CODE AND SENSE 



01D50 

FDF4 



1656 

DC 

AL2(CSWO-SECNO+REG) 

EXP CSW ADDRESS 



01D52 

OA 06 



1657 

SVC 

X'D6« 

ROUTINE EXIT 



01D54 




1658 

CNOP 

0,4 








1659 

*****************4^**************************************************** 





1660 

*********************************************************************** 





1661 

* ROUTINE 12 

- ISSUE A DIAGNOSTIC 

WRITE, AND CLEAR CHANNEL END 

ONLY. 





1662 

* 

ISSUE AN INVALID COMMAND, EXPECT COND. CODE 1 

WITH 





1663 

* 

DEVICE BUSY AND DEVICE END ONLY. ISSUE SENSE, 

NO BITS 





1664 

* 

SHOULD BE SET. 








1665 

*********************************************************************** 

01D54 

12 



1666 

ROUT 12 DC 

X • 12' 

ROUTINE NUMBER 



01D55 

OOFFFF 



1667 

DC 

X'OOFFFF * 

LAST ROUTINE 



01D58 

45 40 

F 

790 

1668 

BAL 

R4,INIT 

GO INITIALIZE 



01D5C 

D2 07 

F 

F18 F DCO 

1669 

GO12 MVC 

CCW(8)* DWR 

SET UP COMMAND 



01D62 

45 BO 

F 

10E 

1670 

BAL 

Rll,ISIO 

GO TO 1-0 HANDLER- DIAG WRITE 

01D66 

2 AOO 



1671 

DC 

XL2 *2A00' 

CONTROL SWITCHES 



01D68 

0460 



1672 

DC 

X *0460• 

TE ST NUMB 

E 

R 

01D6A 

FO 



1673 

DC 

X'FO' 

CONDITION CODE EXPECTED 



01D6B 

00 



1674 

DC 

X * 00« 

SENSE DATA EXPECTED 



01D6C 

FF20 



1675 

DC 

AL2 (NORM-SECNO+REG) 

ADDRESS OF CSW 



01D6E 

92 OC 

F 

F18 

1676 

MVI 

CCWtX'OC 

SET UP FOR INVALID COMMAND 


01D72 

58 4E 

0 

198 

1677 

L 

R4,WT(R14) 

LOAD WAIT FACTOR 



01D76 

88 40 

0 

004 

1678 

SRL 

R4,4 

ADJUST WAIT FACTOR 



01D7A 

46 40 

F 

D7A 

1679 

BCT 

R4, * 

WAIT 



01D7E 

45 BO 

F 

10E 

1680 

BAL 

RlltlSIO 

GO TO 1-0 HANDLER - INVALID 

COMMAND 

01D82 

3800 



1681 

DC 

XL2'3800' 

EXPECTED A CSW 



01D84 

0480 



1682 

DC 

X'0480* 

TEST NUMB 

E 

R 

01D86 

FI 



1683 

DC 

X'Fl • 

EXPECTED CONDITION CODE 



01D87 

00 



1684 

DC 

X'OO' 

EXPECTED SENSE 



01D88 

FDC8 



1685 

DC 

AL2(DBZY-SECNO*REG) 

ADDRESS OF CSW 



01D8A 

OA 06 



1686 

SVC 

X' D6 • 

ROUTINE EXIT 



01D8C 

00000000 








01D90 

030018C040000001 

1687 

NOPTRN CCW 

X'03'tPRARy X'40*,1 




01D98 

0800ID9000000001 

1688 

CCW 

X'08',NOPTRN,X'OO'tl 




01DA0 

0000000000000000 

1689 

R12CSW DC 

XL8'O' 




01DA8 

00001DA0 


1690 

DC 

A(R12CSW) 
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LOCAT 

OBJECT CODE 

STMT 

SOURCE : 

STATEMENT 

01DAC 

OCOOOOOO 

1691 


DC 

X'OCOOOOOO' 

01DB0 

00000000 

1692 

DBIZ 

DC 

XL4'0' 

01DB4 

10000000 

1693 


DC 

X'10000000' 

01088 

00000000 

1694 


DC 

XL4'0' 

01DBC 

04000000 

1695 


DC 

X»04000000• 

01 DCO 

050018CDOO000084 

1696 

DWR 

CCW 

X'05',PRAR,X'OO',132 

01DC8 

00000000 

1697 

DBZY 

DC 

XL4'0' 

01DCC 

14000000 

1698 


DC 

X' 14000000» 

01DD0 

40D9E3 D540C2E8D7 

1699 

BYPASS 

DC 

C' RTN BYPASSED* 

01DD8 

C1E2E2C5C4 





01DDD 

40D4C1D2C540D5D6 

1700 

MNR 

DC 

C' MAKE NOT READY' 

01DE5 

E340D9C5C1C4E8 





01DEC 

00000000 

1701 

UC 

DC 

XL4* O' 

01DF0 

02000000 

1702 


DC 

X*02000000* 

01DF4 

0000000000000000 

1703 

CSWO 

DC 

XL8'0* 

01DFC 

00000000 

1704 


DC 

XL4'O' 

01E00 

04000000 

1705 


DC 

X'04000000' 

01E04 

40D4C1D2C540E4D5 

1706 

MUA 

DC 

C» MAKE UNAVAILABL• 

01E0C 

C1E5C1C9D3C1C2D3 





01E14 

C5 

1707 


DC 

C * E • 

01E15 

40D4C1D2C540C1E5 

1708 

MRA 

DC 

C' MAKE AVAILABLE,' 

01E1D 

C1C9D3 C1C2D3C56B 





01E25 

40D9G5 E2E3D6D9C5 

1709 


DC 

C RESTORE, READY' 

01E2D 

6B40D9C5C1C4E8 





01E34 

40D6C2 E2C5D9E5C5 

1710 

ONCM 

DC 

C' OBSERVE-NO CARR' 

01E3C 

60D5D640C3C1D9D9 





01E44 

C9C1C7 C540D4D6E3 

1711 


DC 

C•IAGE MOTION EXPE' 

01E4C 

C9D6D540C5E7D7C5 





01E54 

C3E3C5C4 

1712 


DC 

C'CTED' 

01E58 

D5D6 

1713 

NO 

DC 

C'NO* 

01 ESA 

40E2D2 C9D740E3D6 

1714 

SKIP 

DC 

C' SKIP TO 1 IMMED' 

| 01E62 

4OF 140 C9D4D4C5C4 





01E6A 

40D7D9C9D5E340C2 

1715 

PNS 

DC 

C' PRINT BLANKS, N' 

01672 

D3C1D5 D2E26B40D5 





01E7A 

D640E2 D7C1C3C5 

1716 


DC 

C'O SPACE' 

01E81 

40C5D5 C440D6C640 

1717 

ENDRTN 

DC 

C* END OF RTN' 

01E 8 9 

D9E3D5 







1718 

*********************************************************************** 

01E8C 

00000000 





01690 

050018CD20000083 

1719 

SSL I 

CCW 

X'05',PRAR,X'20',131 

01E98 

00001E98 

1720 

SSL IST 

DC 

A(SSLI+8) 

01E9C 

08000000 

1721 


DC 

• X * 08000000* 

01E AO 

00000000 

1722 


DC 

XL4'O' 

01EA4 

04000000 

1723 


DC 

X'04000000' 

01EA8 

00001EF0 

1724 

RDSHRT 

DC 

A(SHORT+8) 

01E AC 

0C400000 

1725 


DC 

X'OC400000* 

016 BO 

00001E98 

1726 

RSSLI 

DC 

A(SSLI+8) 

01EB4 

OCOOOOOO 

1727 


DC 

X'OCOOOOOO' : 

01EB8 

0 50018 CD00000085 

1728 

WRLNG 

CCW 

X'05',PRAR,X'OO*,133 * 

01 ECO 

050018 C D20000085 

1729 

LNGSLI 

CCW 

X'05*,PRAR,X*20',133 

01EC8 

0000IECO 

1730 

ALNG 

DC 

A(WRLNG+8) 

I 01ECC 

08400001 

1731 


DC 

X•08400001 * 

01ED0 

00000000 

1732 


DC 

XL4'0' 

01 £04 

04000000 

1733 


DC 

X'04000000' 

01ED8 

OOOOIECO 

1734 

BLNG 

DC 

A(WRLNG+8) 

01EDC 

OC400001 

1735 


DC 

X•OC400001 ’ 

01EE0 

OCOOOOOO 

1736 


DC 

X'OCOOOOOO* 

01EE4 

00000000 





01EE8 

050018CDOO000083 

1737 

SHORT 

CCW 

X'05',PRAR,X'OO',131 

01EF0 

00001EF0 . 

1738 

SHRT 

DC 

A(SHORT+8) 

01EF4 

08400000 

1739 


DC 

X'08400000' 

01EF8 

00000000 

1740 


DC 

XL4'0' 

01EFC 

04000000 

1741 


DC 

X'04000000' 

01F00 

00 

1742 


DC 

X'OO' 
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LOCAT 

OBJECT CODE 

STMT 

SOURCE STATEMENT 

01F01 

00 





01F02 

0 7 00 

1743 


CNOP 

0,4 

01F03 


1744 


ORG 

*-l 

01F03 

00 





01F04 

00001658 

1745 

SNSCSW 

DC 

A(ISENSE+8) 

01F08 

OCOOOOOO 

1746 


DC 

X*OCOOOOOO* 

01F0C 

00000000 

1747 

NOPCSW 

DC 

XL4 * 0• 

01F10 

OCOOOOOO 

1748 


DC 

X’OCOOOOOO* 

OIF 14 

00000000 





01F18 

030018 CD00000001 

1749 

CCW 

CCW 

X*03*,PRAR,X* 00 *,1 

01F20 

0000 IF 20 

1750 

NORM 

DC 

A(NORM) 

01F24 

08000000 

1751 


DC 

X* 08000000 * 

01F28 

00000000 

1752 

DONLY 

DC 

XL4 * 0 * 

01F2C 

04000000 

1753 


DC 

X * 04000000* 

01F30 

0000 IF 20 

1754 

NORD 

DC 

A(NORM) 

01F34 

OCOOOOOO 

1755 


DC 

X*OCOOOOOO* 

01F38 

00001EC8 

1756 

ALNS 

DC 

A(ALNG) 

01F3C 

08000001 

1757 


DC 

X*08000001* 

01F40 

00000000 

1758 


DC 

XL4 * 0• 

01F44 

04000000 

1759 


DC 

X'04000000• 

01F48 

00001EC8 

1760 

BINS 

DC 

A(ALNG) 

01F4C 

0C000001 

1761 


DC 

X*0C000001* 

01F50 

00000000 

1762 

IMCSW 

DC 

XL4•0• 

OIF 54 

08000000 

1763 


DC 

X * 08000000• 

01F58 

00000000 

1764 


DC 

XL4•0 * 

01F5C 

04000000 

1765 


DC 

X*04000000* 

01F60 

030018CD00000001 

1766 

NOPCCW 

CCW 

X * 03•,PRAR * X *00 * * 1 

00000 


1767 

NEVER 

EQU 

0 

00007 


1768 

NCCO 

EQU 

1 - , 1 : 

OOOOF 


1769 

UNC 

EQU 

15 

00008 


1770 

NONE 

EQU 

8 

00004 


1771 

SOME 

EQU 

4 

00001 


1772 

ALL 

EQU 

1 

00005 


1773 

ANY 

EQU 

5 

00008 


1774 

CCO 

EQU 

8 

00004 


1775 

CC1 

EQU 

4 

00002 


1776 

CC2 

EQU 

2 

00001 


1777 

CC3 

EQU 

1 

00008 


1778 

EQ 

EQU 

8 

Q0004 


1779 

LO 

EQU 

4 

00002 


1780 

HI 

EQU 

2 

00006 


1781 

UNEQ 

EQU 

6 

OOOOC 


1782 

EQLO 

EQU 

12 

QOQOA 


1783 

EQHI 

EQU 

10 

00080 


1784 

LOGOUT 

EQU 

X * 80 * 

00181 


1785 

SYSMOD 

EQU 

X•181• 

OFQOO 


1786 

REG 

EQU 

X *F000* 

0005* 


1787 

whAt 

EQU 

90 

00000 


1788 

RO 

EQU 

0 

ooooi 


1789 

R1 

EQU 

1 

00002 


1790 

R2 

EQU 

2 

00003 


1791 

R3 

EQU 

3 

00004 


1792 

R4 

EQU 

4 

00005 


1793 

R5 

EQU 

5 

00006 


1794 

R6 

EQU 

6 

00007 


1795 

R7 

EQU 

7 

00008 


1796 

R8 

EQU 

8 

00009 


1797 

R9 

EQU 

9 

OOOOA 


1798 

RIO 

EQU 

10 

OOOOB 


1799 

Rll 

EQU 

11 

OOOOC 


1800 

R12 

EQU 

12 

OOOOD 


1801 

R13 

EQU 

13 

OOOOE 


1802 

R14 

EQU 

14 

OOOOF 


1803 

R15 

EQU 

15 
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00198 

1804 

WT 

EQU 

408 

00040 

1805 

HCSW 

EQU 

64 

00048 

1806 

HCAW 

EQU 

72 

001 AO 

1807 

DMSSW 

EQU 

X * 01A0 

01954 

1808 
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RELOCATION DICTIONARY 


LOCATION LENGTH 


01015 
0107C 
01651 
01658 
01671 
01678 
01789 
01C71 
01C79 
01C80 
01C81 
01C89 
01CC0 
01C69 
01D91 
01D99 
01DA8 
01DC1 
01E91 
01E98 
01EA8 
01E80 
01E89 
01EC1 
01 ECS 
01ED8 
01EE9 
01EF0 
01F04 
OIF 19 
01F20 
01F30 
01F38 
01F48 
01F61 


3 

4 
3 
3 

3 

4 
3 
3 

3 

4 
3 

3 

4 
3 
3 

3 

4 
3 

3 

4 
4 
4 
3 

3 

4 
4 

3 

4 
4 

3 

4 
4 
4 
4 
3 


LABEL 

LEN 

VALUE 

DEFN 

REFERENCES 


ALL 

1 

000001 

1772 

0788 

0829 

0846 

ALNG 

4 

001EC8 

1730 

1336 

1341 

1349 

ALNS 

4 

001F38 

1756 

1348 



ANY 

1 

000005 

1773 

1076 



BLNG 

4 

001ED8 

1734 

1352 

1357 

1358 

6LNS 

4 

001F48 

1760 

1365 



BLOOP 

4 

0017C2 

1150 

1138 

1171 


BYPASS 

13 

001DD0 

1699 

1447 



CAW 

4 

001048 

0612 




CCW 

8 

001F18 

1749 

1155 

1266 

1274 





1626 

1669 

1676 

cco 

1 

000008 

1774 

0809 

0815 


CC1 

1 

000004 

1775 

0816 

0890 


CC2 

1 

000002 

1776 

0817 



CC3 

1 

000001 

1777 




CEMSG 

16 

001853 

1180 

1147 



CHNNOP 

8 

001CB0 

1590 

1583 



CHNST 

4 

001CC0 

1592 

1588 

1592 


CKAR 

1 

001680 

1125 

1122 



CLUIN 

16 

001813 

1175 

1167 



CRDCSW 

4 

001678 

1123 

1123 



csw 

8 

001040 

0611 




cswo 

8 

001DF4 

1703 

1409 

* 1419 

1469 

DBIZ 

4 

001DB0 

1692 

1636 

1646 


DBZY 

4 

001DC8 

1697 

1414 

1685 


DCCWS 

4 

001C80 

1569 

1565 

1569 


DCKRD 

8 

001670 

1122 




DCRD 

8 

001CE8 

1609 

1602 

1623 


DMSSW 

1 

0001AO 

1807 




DONLY 

4 

001F28 

1752 

1496 



ORAR 

1 

001704 

1126 

1127 



DWR 

8 

001DC0 

1696 

1381 

1522 

1669 

DWRDC 

8 

001C70 

1567 

1560 



fcNDRTN 

1 1 

001E81 

1717 

1549 



END03 

2 

0 01A18 

1292 

1273 



EQ 

1 

000008 

1778 

0921 

1138 


EQHI 

1 

OOOOOA 

1783 




EQLO 

1 

OOOOOC 

1782 




EXNPSW 

5 

001058 

0614 




EXOPSW 

8 

001018 

0606 




FLAG1 

1 

00100E 

0602 




FLAG2 

1 

00100F 

0603 




G001 

4 

00195C 

1202 




G002 

4 

001970 

1217 




G003 

4 

0019AC 

1243 




G004 

4 

0019D0 

1266 




G005 

4 

001A24 

1306 




G006 

6 

001AE0 

1381 




G007 

2 

001B70 

1450 

1443 



G008 

4 

001C58 

1560 




G009 

4 

001C98 

1583 




G010 

6 

001CD0 

1602 




G011 

6 

001CF8 

1623 




G012 

6 

001D5C 

1669 




GREG 

4 

00118C 

0808 

0810 



HANGUP 

6 

0017E0 

1157 

1151 



HC AW 

1 

000048 

1806 

0782 

0886 

1074 

HCSW 

1 

000040 

1805 

0783 

0783 

0823 

HI 

1 

000002 

1780 




HUNG 

16 

00188E 

1185 

1164 



IACSNS 

11 

0015D8 

1106 

0902 

1041 

1042 


0870 

1756 
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I ACT 

3 

0015C7 

1103 

0861 

1015 

1025 


1ACTCC 

10 

001572 

1089 

0813 

0818 

0820 

0822 

I BLAH 

16 

0015AD 

1101 

0859 

0861 

0973 

0985 

IBSN 

6 

0012FE 

0904 

0876 

0880 

0882 

0892 

ICAW 

12 

00159B 

1098 

0964 

0967 

0968 

0972 

ICCOUT 

6 

001410 

0992 

0963 

0978 



ICCSW1 

6 

001320 

0912 

0911 




ICCSW2 

6 

001342 

0920 

0919 




ICCW 

3 

0015AA 

1100 

0973 




ICHNG1 

6 

00144E 

1011 

1008 




ICHNG2 

6 

00147E 

1021 

1010 




ICM 

2 

00100A 

0599 





ICNT 

1 

00140B 

0989 

0860 

0974 

1003 


ICOUT 

2 

0013F4 

0981 

0862 

0976 

1012 

1017 

ICSW 

3 

0015A7 

1099 

0859 

1002 



ICSW1 

8 

00163A 

1114 

0823 

0847 

0877 

0912 

ICSW2 

8 

001642 

1115 

0865 

0881 

0920 

0920 

ICWOUT 

6 

0013DA 

0975 

0980 




ID ID 

4 

001488 

1023 

1019 




IDIDI 

4 

001458 

1013 

1005 




IDOSNS 

4 

0012A8 

0883 

0874 

0878 

1168 


IDUNCK 

4 

001350 

0923 

0895 

0898 

0921 


IEXP 

3 

0015CA 

1104 

1006 

1020 



IEXPCC 

10 

001568 

1088 

0992 

0997 



IEXSNS 

11 

0015CD 

1105 

1028 

1033 

1034 

1038 

IEYEOH 

6 

0011IE 

0779 

0769 

0774 



IFLAG1 

1 

001380 

0937 

0923 

0929 



IFLAG2 

1 

001510 

1067 

0924 

0930 



IHANG 

4 

00116C 

0800 

0805 




IHI 

4 

001184 

0806 

0799 

0803 



IHIO 

4 

0010E6 

0765 

1393 

1405 

1415 

1465 

ILEAVE 

4 

00152C 

1079 

0928 




ILINK 

16 

00158B 

1094 

0942 

0945 

0946 

0950 

ILQKE 

4 

0012E8 

0899 

0890 




ILOOP 

4 

00115C 

0796 

0768 

0771 

0776 


IMCSW 

4 

001F50 

1762 

1512 

1545 



IMORST 

4 

001470 

1018 

1014 




INDER 

4 

00134C 

0922 

0888 

0894 

0897 

0903 

INI T 

2 

001790 

1131 

1201 

1216 

1242 

1265 

INOEXi 

4 

0012D0 

0893 

0907 




IN0EX2 

4 

0012DC 

0896 

0915 




INOW 

4 

0011DC 

0827 

0788 

0819 

0821 

0825 

INPSW 

5 

001010 

0604 





INT3 

4 

001268 

0867 

0849 




IOADDR 

15 

00157C 

1090 

0767 

0773 

0778 

0957 

10ADR 

3 

001658 

1117 

0956 




IOCSW 

6 

001426 

1002 

0953 




IOLOG 

16 

0015E3 

1107 

1054 

1055 

1056 

1057 

IONE 

4 

0011C6 

0822 

0816 




IONPSW 

4 

001078 

0619 





ioopsw 

8 

001038 

0610 

0842 

0853 



IOPOUT 

2 

00150E 

1066 

1048 

1063 



I0PT1 

16 

001608 

1110 

0766 

0772 

0777 

1069 

IOUTIT 

6 

001370 

0931 

0926 




IPAS 

6 

0014A0 

1028 

1024 




IPASS 

4 

0014CA 

1047 

0864 

1030 



IRETRN 

4 

00120C 

0842 

0620 




ISAVE 

8 

001548 

1086 

0781 

1083 



1SEN 

4 

001280 

0873 

0829 

0838 

0868 

0870 

I SENSE 

8 

001650 

1116 

0885 

1217 

1243 

1745 

ISIO 

4 

00110E 

0775 

1218 

1244 

1267 

1275 





1361 

1382 

1386 

1410 





1627 

1637 

1642 

1647 

ISLAVE 

8 

001668 

1121 

0780 

0993 

1158 


ISSUE 

4 

0011A6 

0814 

0765 

0770 

0775 

0962 
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I SV2 

6 

00I25E 

0865 

0846 




ISW 

2 

OOIOE4 

0760 

0811 

0811 

0812 

0824 





0869 

0871 

0875 

0879 





1023 

1029 

1062 

1064 

IT IC 

4 

00I2C8 

0891 

0900 




I T I 0 

4 

0010 FA 

0770 

1202 

1225 

1230 

1249 

ITIOLP 

4 

0012C0 

0889 

0891 




I TRY 1 

4 

001154 

0794 

0797 

0801 

1076 


ITRY2 

4 

001164 

0798 

0795 




ITSTNO 

9 

0015FF 

1109 

0779 

0931 

0934 

0935 

IT WO 

4 

00 11 BE 

0820 

0817 




IUIO 

6 

00122E 

0850 

0843 




IUNEX 

1 I 

00165D 

1120 

0854 

0858 



IUP 

4 

001538 

1082 

1080 




IWAIT 

4 

0011 EC 

0831 

0872 

1065 



I ZERO 

4 

0011D8 

0826 

0815 




JOHN 

6 

001198 

0811 

0790 

0809 



LNGSLI 

8 

001 ECO 

1729 

1342 

1343 

1359 

1360 

LO 

1 

000004 

1779 





LOGOUT 

1 

000080 

1784 

0786 

0786 

1049 


MCNPSW 

8 

001070 

0618 





MCOPSW 

8 

001030 

0609 





MNR 

15 

001DDD 

1700 

1453 





M0D44 4 001144 0787 0785 

M0D50 4 0018C8 1191 1136 

MRA 16 001E15 1708 1490 

MSK1 1 00165B 1118 0834 

I MSK2 1 00165C 1119 0836 

MUA 16 001E04 1706 1473 

NCCO 1 000007 1768 0801 0888 0900 

NEVER 1 000000 1767 

NIOU 1 001000 0601 

NITWIT 4 00179C 1135 1133 

NO 2 001E58 1713 1497 


NONE 

1 

000008 

1770 

0790 

0795 

0799 

0803 





0928 

0978 

1005 

1014 

NOPCCW 

8 

001F60 

1766 

1539 




NOPCSW 

4 

001F0C 

1747 

1271 

1279 

1285 

1291 

NOPTRN 

8 

001D90 

1687 

1688 




NORD 

4 

001F30 

1754 

1607 




NORM 

4 

001F20 

1750 

1401 

1528 

1631 

1641 

ONCM { 

16 

001E34 

1710 

1497 

1501 

1516 

1529 

PGNPSW ' 

8 

001068 

0617 





PGQPSV& 

8 

001028 

0608 





PNS 

16 

001E6A 

1715 

1520 




PRAR 

1 

0018CD 

1193 

1152 

1154 

1154 

1567 

f / 




1737 

1749 

1766 


RDCCW 

8 

001788 

1127 





RDSHRT 

4 

001EA8 

1724 

1326 




REG 

1 

OOFOOO 

1786 

0858 

0939 

0950 

0961 





1143 

1147 

1164 

1167 





1326 

1333 

1341 

1348 





1459 

1464 

1469 

1473 

j •. 




1533 

1537 

1545 

1549 





1656 

1675 

1685 


ROUT 01 

1 

001954 

1199 

0605 

1808 



R0UT02 

1 

001968 

1214 

1200 




R0UT03 

1 

0019A4 

1240 

1215 




ROUT 04 

1 

0019C8 

1263 

1241 




R0UT05 

1 

001A1C 

1303 

1264 




{ R0UT06 

1 

001ADS 

1378 

1304 




j ROUT 0 7 

1 

001B58 

1440 

1379 




R0UT08 

1 

001C50 

1557 

1441 




R0UT09 

1 

001C90 

1580 

1558 




R0UT10 

1 

001CC8 

1599 

1581 
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0827 

0893 

1077 

0830 

0896 

1150 

0833 

0901 

1159 

0837 

0908 

1160 

0844 

0916 

1170 

0045 

0922 

0848 

0925 

0863 

1013 

0866 

1023 

1397 

1420 

1460 

1479 

1492 

1632 





0939 


0868 0874 0876 0880 0882 0907 0909 0915 0917 

1019 1024 1030 1063 1080 1133 1273 


1651 1675 1750 1754 

1529 1533 


1568 

1590 

1591 

1609 

1687 

1696 

1719 

1728 

1729 

0972 

0990 

0997 

1001 

1038 

1046 

1061 

1069 

1073 

1229 

1248 

1271 

1279 

1285 

1291 

1312 

1319 

1326 

1357 

1365 

1401 

1409 

1414 

1419 

1447 

1453 

1459 

1490 

1496 

1501 

1505 

1512 

1516 

1520 

1528 

1533 

1565 

1588 

1607 

1631 

1636 

1641 

1646 

1651 

1656 
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ROUT11 

1 

001CF0 

1620 

1600 













ROUT12 

1 

001D54 

1666 

1621 













RSSLI 

4 

001EB0 

1726 

1333 













RTSAV 

1 

001812 

1174 

1153 

1157 












RO 

1 

000000 

1788 














R1 

1 

000001 

1789 

0806 

0807 

0810 











RIO 

1 

OOOOOA 

1798 

0780 

0782 

0964 

0975 

0977 

0979 

0979 

0993 

1074 

1155 

1158 

1217 

1243 





1306 

1313 

1321 

1328 

1334 

1342 

1350 

1359 

1560 

1583 




Rll 

1 

OOOOOB 

1799 

0779 

0780 

0787 

0828 

0867 

0873 

0902 

0904 

0906 

0910 

0914 

0931 

094 1 





0942 

0951 

0951 

0952 

0992 

1004 

1007 

1018 

1028 

1079 

1081 

1081 

108 2 





1082 

1082 

1084 

1158 

1202 

1218 

1225 

1230 

1244 

1249 

1267 

1275 

1281 





1281 

1287 

1308 

1315 

1322 

1329 

1337 

1344 

1353 

1361 

1382 

1386 

1393 





1393 

1397 

1405 

1410 

1415 

1420 

1455 

1460 

1465 

1475 

1479 

1483 

1492 





1492 

1508 

1524 

1541 

1561 

1584 

1603 

1627 

1632 

1637 

1642 

1647 

1652 

R12 

1 

OOOOOC 

1800 

0796 

0800 

0804 

0808 

0814 

0842 

0887 

0889 

1135 

1136 

1137 

1139 

1149 

R12CSW 

8 

001DA0 

1689 

1690 













R13 

1 

OOOOOD 

1801 

0782 

0783 

0783 

0823 

0886 

0899 

1074 

1131 

1131 

1134 




R14 

1 

OOOOOE 

1802 

0784 

0831 

0883 

1047 

1132 

1222 

1390 

1402 

1677 





R15 

1 

OOOOOF 

1803 

0847 

0850 

0865 

1134 










R2 

1 

000002 

1790 














R3 

1 

000003 

1791 














R4 

1 

000004 

1792 

1156 

1201 

1216 

1242 

1265 

1305 

1380 

1449 

1559 

1582 

1601 

1622 

1668 





1677 

1678 

1679 











R5 

1 

000005 

1793 

1078 

1168 












R6 

1 

000006 

1794 














R7 

1 

000007 

1795 














R8 

1 

000008 

1796 

0781 

0885 

0886 

0910 

0911 

0918 

0918 

0919 

0940 

0941 

1007 

1008 

1009 





1009 

1010 

1083 











R9 

1 

000009 

1797 

0781 

0831 

0832 

0835 

0862 

0883 

0884 

0891 

0976 

0991 

1012 

1017 

1022 





1027 

1083 

1222 

1223 

1224 

1390 

1391 

1392 

1402 

1403 

1404 



SAVDEV 

2 

001810 

1173 

1137 

1139 












SAVE IT 

16 

0018A8 

1188 














SAVIT 

12 

0018B8 

1189 














SAV10 

4 

0018C4 

1190 














SDMF 

1 

00100C 

0600 














SECNO 

4 

001000 

0596 

0853 

0854 

0858 

0934 

0935 

0939 

0945 

0946 

0950 

0956 

0957 

0961 

0967 





0968 

0972 

0983 

0984 

0990 

0997 

1001 

1033 

1034 

1038 

1041 

1042 

1046 





1046 

1052 

1053 

1061 

1069 

1073 

1143 

1147 

1153 

1157 

1164 

1167 

1169 





1169 

1200 

1215 

1229 

1241 

1248 

1264 

1271 

1279 

1285 

1291 

1304 

1312 





1312 

1319 

1326 

1333 

1341 

1348 

1357 

1365 

1379 

1401 

1409 

1414 

1419 





1419 

1441 

1447 

1453 

1459 

1464 

1469 

1473 

1490 

1496 

1501 

1505 

1512 





1641 

1646 

1651 

1656 

1675 

1685 








SHORT 

8 

001EE8 

1737 

1306 

1307 

1320 

1321 

1724 

1738 








SHRT 

4 

001EF0 

1738 

1312 













SKIP 

16 

001E5A 

1714 

1505 

1537 












SNSCSW 

4 

001F04 

1745 

1229 

1248 












SNSW 

4 

001004 

0597 

0789 

0794 

0798 

0802 

0927 

1075 

1442 

1624 






SOLONG 

2 

001B64 

1444 

1625 













SOME 

1 

000004 

1771 














SRET 

3 

00105D 

0615 














SSLI 

8 

001E90 

1719 

1313 

1314 

1327 

1328 

1720 

1726 








SSLIST 

4 

001E98 

1720 

1319 













STL 

16 

00182C 

1177 

1143 













SVNPSW 

8 

001060 

0616 




- 










SVOPSW 

8 

001020 

0607 














SYSMOD 

1 

000181 

1785 

0784 

1047 












UC 

4 

001DEC 

1701 

1459 

1464 












UNC 

1 

OOOOOF 

1769 

0769 

0774 

0797 

0805 

0819 

0821 

0825 

0838 

0849 

0864 

0872 

0892 

0895 





0898 

0980 

0991 

1065 

1084 

1156 

1171 







UNEQ 

1 

000006 

1781 

0785 

0843 

0903 

0905 

0913 

0963 

1048 







UNI Tl 

1 

0010E0 

0622 

1135 

1272 












U1ADDR 

2 

0010E2 

0624 














U10P 

1 

0010E1 

0623 














WHAT 

1 

00005A 

1787 














WORK 

1 

001550 

1087 

0850 

0975 

0983 

0984 

0985 

0986 

1011 

1011 

1016 

1021 

1021 

1026 

1049 

DATE 

15MAR66 15N0V66 120CT67 
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1052 

1053 

1054 

1055 

1056 

1057 

WRLNG 

8 

001EB8 

1728 

1334 

1335 

1350 

1351 

1730 

1734 

WT 

1 

000198 

1804 

0806 

0831 

0883 

1222 

1390 

1402 

XF8305 

1 

001000 

0003 
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OBJECT DECK LIST. PERIODS CORRESPOND TO B^ANK COLUMNS. 

COLS. 41 THROUGH 60 
.840 


COLS. 1 THROUGH 20 


COLS. 21 THROUGH 40 


8ESD. 

. AA. 

•AAXF83 

9 

YQ 

Y9 


99 

9 

BTXT.AAA. 

• A8. 

.AA8A&A 

9 YQY 

Y9 

Y9 Q Y 

999 

9 

9 Z 9 

BTXT.AA8. 

. A8. 

.AAAAAA 

9 YQ9 

Y9 

Y9YYYY 

99 

9 

9 9999 

BTXT.AAC. 

• AA. 

•AAAAAA 

9 YQ- 

YQ 

Y9YYYY 

990 

99 

9 9999 

BTXT.AAS. 

. A8 . 

•AACAAA 

9 YQ8 

Y9 

Y90YYY 

99 

9 

9 9 9 

BTXT.AJQ. 

• A8. 

•AA6NBS 

9 Y99 

Y9 

Y9 8- 

9 

9 

9 9 

BTXT.AJ&. 

. A8. 

•AAGA1H 

9 Y9 

Y9 

Y9ZY - 

9 

9 

9 

BTXT.AJH. 

- A8. 

•AAHAAC 

9 Y90 

Y9 

Y90QY9 

9 

9 

9 99 

BTXT.AJ£. 

. A8. 

•AA5GG0 

9 Y9- 

Y9 

Y9 RZ 

9 

9 

9 0 

BTXT.AJ8. 

• AS. 

•AAAA6L 

9 Y9 

Y9 

Y9YY 8 

9 

9 

9 9 

BTXT.AKA. 

• A8. 

•AA5&0. 

9 Y9Q 

Y9 

Y9 

9 Z 

9 

9 

BTXT.AKQ. 

• A8. 

•AAAAAA 

9 Y9Z 

Y9 

Y9-QQY 

9 

9 

9 909 

BTXT.AKJ. 

• A8. 

•AAAB6F 

9 Y9Y 

Y9 

Y9-9 Z 

9 

9 

9 

BTXT.AKQ. 

• A8. 

•AAG03& 

9 Y9 

Y9 

Y9Z 


05..AAAA.AGQ. 

YYQY Y8Z 
9999 99 

AAAAAAAAAASAADAAAAJD 
YYYYYYYYY9-Y99YYYY8R 
999999999 9 99999 

aaaaaaaaaaaaaaaaaaaa 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 


AAAAADAAAAKD. 

YYYY99YYYY98 
9999 9999 9 

AABF10BH6NBH5HBF1MG0 
YY-Q 0- 8- 0-Q 8Z 

99 9 

5HKA6DABAL6QAI5H6NAH 
0 9 9Q9QY ZQO Z YYZ 
0 9 

AA0DGA1MDA&AG01DA.0D 
-Y 9ZY ZQY-YZ R- 9 
9 9 

EACAGAIHFAIDPA'OUOUFA 
QY-YZY -ZQ Y 9 ’ -Y 

9 9 9 

1DB15GKG62-.F.0UGO1D 
Q- R 9 80 - Z Q 

9 0 9 9 

FA1DAA6MD70UG02AA&02 
ZQ QYY 8-8 Z Y8- 8 

Z 9 9 

BEACA1FKB-MC6NKB505P 
8QY9Y89Z80Z8 8 9 Y 0 
999 99 9 9 

GA2AAH0UGA2AFH0UG01M 
ZY Y-9 ZQ Y—9 Z Y 

9 9 

GA2FHFAHHAADAA6GCEAH 
ZY QRQ9-0QY9ZY YYZ 
Z 9 9 

AJ0UGA3DG03&ED-DG62H 
-Y ZQ 8Z -80ZZ- 

9 9 9 0 


AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 


10BE10BE1MBT6NB T5HG0 
8-Q 0-Q 8- 8- OZ 

9 9 

PG-.-.EAJAG-1DPCAAAA 
90 0 —QZOZ Z 8YYYY 
Z 99 9 

GA1DEACAGS1DA.0DGA1D 
ZY OQY-YZ- R- 9ZY 0 
9 9 0 

0UBX5GDACAGA1QG.1FGJ 
- RQY-YZY Z ZY 
0 9 9 9 

B05GD70UA.AAGA2AFAOU 
- R-8 - QYZQ Y-Q 

0 09 9 9 

G—2WD70UA.0UGA20KG62 
Z 8-8 - ZQ 8 9 8 

9 9 9 

BK4CKB5D5GEA34FB0UG0 
-8 8 9 ZQ -9 Z 
9 9 

ABAAGA2QA.0UGA2FAB66 
-9QYZY 0- ZY Q-9 8 

09 Z 9 

DASAGS3DEASAG.2YFA26 
QY-YZ- 8QY-YZ ZQ - 
9 9 0 9 9 

FD0UNA5EAEG-3DNA5GAD 
-9 Y QQ9Z 8 Y RQ9 

9 90 9 00 


COLS. 61 THROUGH 80 
105.131812..83050001 


AAAAAAAAAAAA83050002 
YYYYYYYYYYYY 
999999999999 

AAAAAAAAAAAA83050003 
YYYYYYYYYYYY 
999999999999 


.83050004 


10BD10BD1MBS83050005 
8-Q 0-Q 8- 
9 

AAAAGA1DAS0D83050006 
-YQYZQ Q— 9 
09 9 9 


BTXT.ALA. 

9 Y9Q 
9 9 

BTXT.ALH. 

9 Y9Z 

9 

BTXT.ALA. 

9 Y9Y 

9 

BTXT.ALH. 

9 Y9- 

9 0 

BTXT.ALO. 

9 Y9 

9 

BTXT.AMY. 

9 Y99 

9 

BTXT.AM-. 

9 Y9 

9 


Y9 

9 


Y9 

9 


AAA.OU 

Y9- 

9 

GA3DHCAF.A3UNG6262G- 
ZY 8ZYY9 Y 9 9 8 8Z 

9 9 9 

3DADAAGA2DAJ0UGA3DAH 
8-9QYZY Q-Y ZY 8Z0 

09 9 9 

AH.A3FNG6B6B83050015 
Y9 Y Z 9 Z Z 

9 

AAGA3S 

Y9ZY 

9 

FA0UBM3ABS5AAA0UGA3S 
-9 -Z Y— Q-9 ZQ - 
9 9 0 

AA0DGA5UBU3ABA5AKA6D 
-9 9ZY 8-9 Y-Y Q 9 9 

9 9 

ABBEABFDFDB-83050016 
Q98QY9999980 

0 999 9 

AAMA5G 
Y9Z8 Q 

AAADLHCA5ABEACEAEAB- 
ZYY98- Q Q8QY99-9Q80 

SA5CACADAAAAGA4WBEAC 

8Q YZQY9-YQYZQ 98QY9 

FHEAB-SG54ED83050017 
9R908088 8-Q 


9 Z 


. A8..AA10G- 
Y9 Y9 OZ 
9 9 

, A8.•AAG03B 
Y9 Y9Z Q 
9 9 9 

. A8..AA505P 
Y9 Y9 Y 0 
9 9 

. A8..AAKB5D 
Y9 Y9 9 
9 9 


9 90 0 999 9 

4A6J5JBEACEJEJB-SC5C 
Q Y Y8QY9909Y8088 Q 
9 999 9 9 

BEAHECECKG5B5SKG5C5H 
8QY99 9 9 - 9 Q R 

999 0 0 

BK4CAHAAGA4HKB5D5BHC 
-8 8-9QYZY R 9 YZY 

9 9 09 9 

5GKG56.62EA34ADAAGA4H 
9 8ZQ -9QYZY 0 
9 09 


9 09 09 9 999 

KB505KB04CKG5GJAEA34 
9 Y Y-9 8 9 YYZQ 
9 9 

B-SK5NG9KA5VADHJ6QB- 
8088 Y9 Y 8Q9RY Z80 
9 9 9 0 9 

AF.A4BAHAH.A4BKG5C5S 
Y9 Y RZ0Y9 Y 0 9 
9 9 

KB5D5BKG5&5GEA34AJOU 
9 Y 9 ZQ -Y 
9 9 


9 9 

ACJDGA4AAKAH83050018 
—Y9ZY QZYY9 
9 9 

SB5QB-SB5BKB83050019 
88 Z8088 R 9 
9 9 9 0 

EA34A.0UGA4E83050020 
ZQ - ZY - 
0 

GA4JKB5D5GKG83050021 
ZY Y 9 9 


DACAG01UH0AH83050007 

BTXT.AMH. 

. A8. 

•AA5C6B 

EA34KA5KAEAD0UGA4BBE 

AAEKEKB-SC5EBEAAEEEE 

B-SC5QEAJAG-83050022 

QY-YZ 8R89- 

9 Y9- 

Y9 

Y9 Z 

ZQ Y Q9-9 ZY Y8Q 

Y99 9 8088 Y8QY99Q9Q 

8088 -QZOZ 

9 9 9 

? 

9 

9 

9 0 999 

9 99 9999 9 9 

9 9 1 

1FB35GG01DB283050008 

BTXT.AM-. 

• A8. 

.AA5FKC 

5SAABEADESESKA5Y5SKE 

5L5BKE525KKE595KB-SM 

5TAB0UGA5FDE83050023 

Q- RZ Q- 

9 Y90 

Y9 

Y9 8 8 

YY8QY89 99 9 

Y R 9 89 Z8088 

-9 ZY 8-Q 

0 0 9 

9 

9 

9 9 9 

9 9999 

9 9 9 

9 Z 

HFAHHAACFA0U83050009 

BTXT.ANH. 

• A8. 

•AAOUGO 

1MB-C26HB-JA5CSNAHA& 

ODG&1DAAOVGNAHAAGA58 

ACABACAFHI5H83050024 

RQ9-0QY9-Y 

9 Y99 

Y9 

Y9 Z 

Y80-9 980Y9 Y YYZ— 

9Z R—9 99-9QYZY 9 

ZQY9ZQY9-0 Z 

9 

9 

9 

9 

99 9 9 

09 

09 09 

0.F.0UG02QKG83050010 

BTXT.AN.. 

. AA. 

•AAGCGA 

GAGAAAAAAAAA.. 


...83050025 

Z Z 9 

9 Y9 

YQ 

Y99Q9Y 

9Y9YYYYYYYYY 




9 

99 

9 Z 9 

9 999999999 



4BKG6B0.FJ0U83050011 

BTXT.ANQ. 

. AU. 

•AA.CC. 

.X.EXP.CC..X.ACT.ADR 

• XXXXXX.XIOA. 

.83050026 

Y 9 Z -Y 

9 Y9Z 

Y9 

Y9 


Y 


9 9 

9 

9 

9 


9 


GA2QAJOUGA2F83050012 

BTXT.ANC. 

• AJ. 

•AA.ADR 

•XXXXXX•LINKA. 


.83050027 

ZQ 0-Y ZY Q 

9 Y9Y 

Y9 

Y9 

Y 



9 9 Z 

9 

9 

9 

9 



G02FA.0UGA3D83050013 

BTXT.ANC. 

. A8. 

•AA.CAW 

.XXXXXX.CSWCCW.CSW.X 

XXXXXXX.XXXXXXXX.EXP 

ACTEXP.SNS.X83050028 

Z Q- ZQ 8 

9 Y9Q 

Y9 

Y9 




Z 9 

9 

9 

9 




G-3DAHAAGA2-83050014 

BTXT.ANL. 

. A8. 

•AAX.EX 

P.SNS.XX.ACT.LOG.XX. 

XXXXXX.XXXXXX.XXXXXX 

.TST•XXXX.SS83050029 

Z 8-9QYZY 0 

9 Y9 

Y9 

Y9 




09 

9 

9 

9 





BTXT.AOC* 

• A8. 

•AA.0.0 

N.FOR.LOOP.ON.XIOT.S 

S.l.ON.FOR.TIO.SIO.L 

00PAAAAAAAAA83050030 


9 Y98 

Y9 

Y9 

8 


YYYYYYYYY 


9 9 

9 

9 



999999999 
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BTXT.AOC. 

. A8. 

• AAAAAA 

AAAAAAAAADANEAAAAAJQ . 

FA.UIO.XXXXXXAAAAAAA 

AFAOAAAADAA083050031 

9 Y9Z 

Y9 

Y9YYYY 

YYYYYYYYY9Y9QYYY9Y90 

Q9 YYYYYYY 

Y9Y9YYYY0YY9 

9 

9 

9 9999 

999999999 9 9999 9 

Z 9999999 

9 9 999 99 

BTXT.A03. 

• AE. 

•AAHDAA 

A. 


__R^nsnn^? 

9 Y98 

Y9 

Y9R8YY 

Y 



9 

9 

9 0999 

9 



BTXT.APH. 

• A8. 

•AABAPD 

AAADLEA.JFGA7DQGH60S 

DG8HAS8AGA7B.68AB-UX 

8UB-A18CBBEA83050033 

9 Y90 

Y9 

Y99Y99 

YYY08Q- Z-ZY Q9QR- 8 

R- 8- QZY - Q8099 

880Y8 R8QQY 

9 

9 

9 9 

999 99 9 

9 99 

99 9 99 9 

BTXT.APC. 

• A8. 

•AA6AAA 

0UGA7SB.8EKA8KGCKB8F 

8EAJGQG4KA0C8KHL6QD7 

OUFAOVB-MK8F83050034 

9 Y9- 

Y9 

Y9-Y-Y 

ZB 8- Y Y 9 9 0 Y 

YZYQ99 Y 9 9-Y Z~8 

-9 80Z8 Y 

9 

9 

9 9 

9 9 9 9 

9 1 9 

9 9 

BTXT.AP8. 

• A8. 

•AAB—JJ 

8LE62GBA0CDF0VGG7BGA 

G6A.SEE.DESCRIPTION- 

COMMENTS.IF.83050035 

9 Y9 

Y9 

Y980Y8 

9Z 0-9 9~Q Z 9Y 

QQY 


9 

9 

9 9 9 

Z 9 

119 


BTXT.AQA. 

• A8. 

•AASTL. 

FEATURET.DISENGAGE.S 

TL.HARDWARE.INSTALL. 

CARRIAGE.TAP83050036 

9 Y9Q 

Y9 

Y9 

8 



9 Z 

9 

9 




BTXT.AQQ. 

. A8. 

. AAET.C 

E.OUTPUT.MUST.NOT.BE 

•TEST.DEVICEBB.PREVI 

OUS.HANG.UP.83050037 

9 Y9Z 

Y9 

Y9 8 


8Q 


9 

9 

9 


99 


BTXT.AQJ. 

. AV. 

• AADETE 

CTEDAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAA7G 

.83050038 

9 Y9Y 

Y8 

Y9 

YYYYYYYYYYYYYYYY 

YYYYYYYYYYYYYYYYYY8Q 


9 

99 

9 

9999999999999999 

9999999999999999999Z 


BTXT.AJA. 

• A8. 

•AAAGAA 

AAQE.7AEA0BBAAA0AB0B 

AAME.7AAJ66EA1FBAAJ0 

AHF AHHAACF A983050039 

9 Y8R 

Y9 

Y9Y9Y9 

Y8ZZ QZQ Q9YYQ Y8 9 

Y80Z QZY ZQ 8ZYYY 

YRQ9-0QY9 ZQ 

99 

9 

9 9 9 

99 0 Z 999 99 

99 09 999 

9 9 

BTXT.AJI• 

• A8. 

•AAFEAO 

BBAAA1AGDEA0BBAA.0AB 

CGACAAHE.7AAJ66EA1F2 

AA&0AGDEA0BB83050040 

9 Y80 

Y9 

Y90ZQ 

Q8YYQ YQ9ZQ Q9YY Y8 

9Y9Y8 Z QZY ZQ 88 

YY YQ9ZQ Q9 

99 

9 

9 0 

19991 91 0 Z 99 99 

9 99 0 99 

99 9Z 0 Z 

BTXT.AJA. 

• A3. 

.AAAA-0 

AB0DABME.7ABCGQEA1FB 

AA61AGDAAQJGABQBLGQE 

A1FBAAA1AGDB83050041 

9 Y8 

Y9 

Y9YY 

Y8 9Y88Z Q-9Q9ZQ 88 

YY- YQ8-0 ZZYQ9-YQ9Z 

Q 88YYY YQ8— 

99 

9 

9 99 

99 999 Z 0 99 

990 919 9 Z 9Z 

0 9999 9Z9 

BTXT.AJ9. 

. A8. 

•AACGQE 

A1FBAAA1AGDB3GQEA1FB 

AAAIAGDBCGAEABQE.7AA 

JFYBEFYEA1F483050042 

9 Y8 

Y9 

Y9RQ9Z 

Q 88YYQ YQ8-8Q9ZQ 88 

Y9Y YQ88 9Y9Y8 Z QZ 

YQ -9Q ZQ 88 

99 

9 

9 OZ 

0 9999 919 Z 0 99 

9 9 9Z99 9 99 

Z Z 0 99 

BTXT.AK1. 

. A8. 

•AAAAAO 

AF0AJFABEFAEA1F4AAJ0 

AFHBBFYAJFYEA1F8AAA0 

AFQBBFAAJFAE83050043 

9 Y89 

Y9 

Y9Y9Q 

YQ ZYQQ-9QQZQ 88Y9Y 

YQ—9Q ZYQ ZQ 89Y9Q 

YQ0-9QQZYQQZ 

99 

9 

9 9 9 

9Z Z Z 0 999 9 

9Z Z Z 0 9 9 Z 

91 l l 

BTXT.AK/. 

. A8* 

•AAA1F8 

AA.OAFAAJFHBEFHB.FEE 

A1F4AA60AFHAJF6BEF6E 

A1F4AA-0AG8B83050044 

9 Y88 

Y9 

Y9Q 89 

Y9 YQQZYQ—9Q— QYZ 

Q 88Y9 YQ ZYQ—9Q-Z 

Q 88Y9 YQ9- 

99 

9 

9 0 9 

9 9Z0 ZO ZO Z9 

0 999 9Z Z Z 

0 999 9Z 

BTXT.AKJ. 

• A8. 

.AAAFEA 

JFHBBFHB.FEEA1F8AA60 

AFQBAFEAJF6BBF6EA1F8 

AAA0AGHBOGAF83050045 

9 Y80 

Y9 

Y9YQYZ 

YQ—9Q— QQZQ 89Y9- 

YQ -YQQZYQ—9Q-ZQ 89 

Y9Y YQZ8 9Y9 

99 

9 

9 9Z9 

ZO ZO Z9 0 9 9 0 

?Z 9Z9 Z Z 0 9 

9 9Z 9 9 

BTXT.AKR. 

. A8. 

•AAACHE 

•7AKGGQE&EA1FBAAAQAE 

A1FBABA2AHFAHHAADFAC 

BEAOWBABAOAE83050046 

9 Y8 

Y9 

Y9Y8RZ 

Q 9Q9Q-ZQ 8ZY9Q YZ 

Q 8ZY9Y YRQ9-0QY9ZQQ 

9ZQ ZY9Q YZ 

99 

9 

9 99 

Z Z 0 9 9 9 

0 9 9 9 9 9 Z 

0 9 9 9 


IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840104 

i PAGE 20A 

1403 PRINTER FUNCTION 1 


BTXT.ALJ. 

. A8. 

•AAAOBB 

ABJ1AGJHFAHHAADFACUE 

A0WBABA1AE4EA1FHAB.1 

AEHEAOWBAB6183050047 

9 Y 89 

Y9 

Y9Q Q8 

Y9Y YQYRQ9-0QY9ZQQ9Z 

Q 8Y9Q YQ ZQ 89Y9 

YQ ZQ 8Y9 

99 

9 

9 0 Z 

9 9 9Z9 9 Z 

0 9 Z 9Z 0 9 9 

9Z 0 9 

BTXT.ALA. 

. A8. 

•AAAE4E 

A0BBAB-0AB0GAD6AD0DG 

ACUB-DFE-B0E.7AB-UGE 

EBBEA1F8AB6183050048 

9 Y88 

Y9 

Y9YQ Z 

Q QZY9 Y8 9Y8 -9 91 

QQ88098Q08 Z Q8098Q 

Q8QZQ 89Y9- 

99' 

9 

9 91 

019 99 99 

9Z 9 9Z 9 9 9Z 

999 0990 

BTXT.ALA. 

. A8. 

.AA.EME 

A0B8ABA1•EMEA0W8ABA1 

•E4B-UJFDBBEA1F2ACA3 

AEA0B2ACA3AE83050049 

9 Y80 

Y9 

Y9 QYZ 

Q Q9Y9Y QYZQ 9Y9Q 

Q 8099Q98QZQ 89Y9Y 

YZQ Q9Y9Q YZ 

99 

9 

9 Z9 

0 Z 9 Z9 0 9 

Z 9 Z 99 0999 

9 0 Z 9 9 9 

BTXT.ALI. 

• A8. 

.AAA0W2 

ACJ3AB-UPFNBBEA0B8AC 

A1AGYKAF5FHB-UUF4B-J 

AFKBBBCGQEA183050050 

9 Y8- 

Y9 

Y9Q 9 

Y9Y Y8098Q98QZQ Q9Y9 

Q YQ9 9Q8QR8099Q980Y 

QQ88Q-YQ9ZQ 

990 

9 

9 0 

9 9 99 9Z 99 0 Z 9 

Z 9Z 191 9 19 

9Z 99 Z 0 

BTXT.ALI. 

. A8. 

•AAF4AC 

• 1AGSB-UUF4B-JPF6BBK 

GGQE&BAGQEA1F4AC60AG 

JKAF5F4B-UUF83050051 

9 Y8 

Y9 

Y988Y9 

YQ 8099Q980Y9Q-8Q 

9Q9Q—9Q9ZQ 88Y9 YQ 

Y 9Q0Q88O99Q 

99 

9 

9 999 

9Z 9 Z 9 Z 99 

11 10 999 91 

9 Z9Z99 Z 

BTXT.AM/. 

• AS. 

•AA4B-J 

AFKBBKGGQG-BCGQEA1F4 

AC-1AG6B-DCFAB0HADAE 

•7AAJDCEA1F483050052 

9 Y88 

Y9 

Y9980Y 

QQ88Q 9Q9Q -YQ9ZQ 88 

Y9 YQ 8098Q08 9Y8QZ 

QZYQ-ZQ 88 

999 

9 

9 9 

91 99 1 1 1 0 99 

9 9Z 9 9Z 9 99 

ZO 0 99 

BTXT.AM/. 

• A8. 

•AAAC&O 

ADABOAAAAAAEAQEAAAJA 

AQEAAAMAAMAHAAAAAAAD 

AAAAADHE.7 AA83050053 

9 Y8 

Y9 

Y9Y9- 

YQY8 YYYYYY9Y9YYYYYY 

Y9YYYYZYY8Y9YYYYYYY9 

YYY8Y8 Z QZ 

99 

9 

9 9 0 

9Z 9 999999 9 9 9999 

9 9999 999 9999999 

999999 

BTXT.AMI. 

. A8. 

• AAJ DAE 

A1F8ACA0AD6B0AAAAAAC 

AQE.AAACAQEAAAAAAMSD 

AAAAAD0E.7 AK83050054 

9 Y 8- 

Y9 

Y9YQQZ 

Q 89Y9Y YQ-8 YYYYYY9 

Y9Y YY99Y9YYYY9YY8-8 

YY9QY8 Z Q 

99 

9 

9 ZO 

099 9Z 9 999999 

9 9 99 9 9999 999 9 

99 999 

BTXT.AMJ• 

. A8. 

•AAGGQD 

YEA1F8ACA0AGAB0AAAAF 
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1403 PRINTER FUNCTION 2 


PROGRAM LENGTH =■ 3321 (DECIMAL) 

\ 

2 PRINT ON,GEN,DATA 

3 XF83I5 START 4096 

4 USING *, 15 

5 * 

6 * 

7 *********************************************************************** 

8 * MODIFICATIONS 

9 * 

10 * REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS.,. 

11 * 1. PROGRAM HAS BEEN MODIFIED TO RUN WITH DM-44. 

12 *********************************************************************** 

13 * REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 

14 * 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

15 * 2. / THE PROGRAM NOW INCLUDES TESTING PREVIOUSLY HANDLED BY 

16 * PROGRAM ID F833 WHICH IS NOW OBSOLETE. 

IT * E.C. PREREQUISITES 

18 * MACHINE . . . 2821 MUST BE AT MINIMUM EC 125655 

19 ♦ PROGRAM ... NONE 

20 * USE DESCRIPTION F830* AT EC 125655, DATED NOV 15, 1966 OR LATER. 

21 **************^***************************************** 4 ************** 

22 * REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

23 * 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

24 * LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

25 * E.C. PREREQUISITES 

26 * MACHINE ... 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

27 * PROGRAM . . . NONE 

28 *********************************************************************** 

29 * {- 

30 * 

31 *****4^******^********************************************************* 

32 * TEST NUMBER DESCRIPTIONS 

33 ft********************************************************************** 

34 ♦**♦♦♦♦*******♦**♦*♦*♦*******♦*♦*******♦*♦**************♦***♦********** 

35 * 

36 * TEST DESCRIPTION 

37 ♦ 

38 * 

, 39 * ROUTINE 01 

40 * 

41 * 

42 * 0010 - OPERATION ATTEMPTED f 

43 * 

: 44 * A SKIP TO 1 IMMEDIATE IS COMMAND CHAINED TO TWO SPACE 1 

\ 45 * IMMEDIATE COMMANDS. 

46 * 

47 * EXPECTED RESPONSE 

48 * 

49 * THE FIRST SPACE COMMAND SHOULD DETECT A CHANNEL 9 HOLE IN 

50 * THE DIAGNOSTIC CARRIAGE TAPE. THIS SHOULD BRING UP UNIT 

51 * CHECK AND BREAK THE COMMAND CHAIN. 

52 * 

53 * POSSIBLE FAILURE CAUSES 

54 ♦ 

55 * 1. DIAGNOSTIC CARRIAGE TAPE NOT INSTALLED. 

56 * 2. CARRIAGE FAILED TO STOP AT CHANNEL 1. LIFT CARRIAGE 

57 * BRUSHES AND VISUALLY CHECK TAPE POSITION. THE CHANNEL 9 

58 * HOLE FOLLOWING THE CHANNEL 1 HOLE SHOULD BE 1 SPACE PAST 

59 * THE LOWER EMITTER CONTACT ROLE. 

60 * 3. CHANNEL 9 FAILED TO SET UNIT CHECK. 

61 ♦ 

62 * 

63 ♦ 0020 - OPERATION ATTEMPTED 


01000 
01000 
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64 * 

65 * A SKIP TO 1 IMMEDIATE IS ISSUED WITH BOTH THE CHAIN DATA, AND 

66 * CHAIN COMMAND FLAGS ON. 

67 * 

68 * EXPECTED RESPONSE 

69 * 

70 * THE CHAIN DATA FLAG SHOULD TAKE PRECEDENCE AND NO COMMAND 

71 * CHAINING SHOULD OCCUR. SINCE THE COMMAND IS IMMEDIATE, AND NO 

72 * DATA IS TRANSFERED, NO DATA CHAINING SHOULD OCCUR EITHER. 

73 * 

74 * 

75 * 0030 - OPERATION ATTEMPTED 

76 * 

77 * A SKIP TO 4 IMMEDIATE IS COMMAND CHAINED TO TWO SPACE 1 

78 * IMMEDIATE COMMANDS. 

79 * 

80 * EXPECTED RESPONSE 

81 * 

82 * THE FIRST SPACE COMMAND SHOULD DETECT A 

83 * CHANNEL 12 HOLE IN THE DIAGNOSTIC CARRIAGE TAPE. THIS SHOULD . 

84 * BRING UP UNIT EXCEPTION, AND BREAK THE COMMAND CHAIN. 

85 * 

86 ♦ POSSIBLE FAILURE CAUSES 

87 * j 

88 * 1. DIAGNOSTIC CARRIAGE TAPE NOT INSTALLED. 

89 * 2. CARRIAGE FAILED TO STOP AT CHANNEL 4. LIFT CARRIAGE 

90 * BRUSHES AND VISUALLY CHECK TAPE POSITION. THE CHANNEL 12 

91 * HOLE FOLLOWING THE CHANNEL 4 HOLE SHOULD BE 1 SPACE PAST 

92 * THE LOWER EMITTER CONTACT ROLE. 

93 * 3. CHANNEL 12 FAILED TO SET UNIT EXCEPTION. 

94 * 

95 * 

96 * ROUTINE 02 

97 * 

98 * 0040 - OPERATION ATTEMPTED 

99 * 

100 * A DIAGNOSTIC READ, WITH THE COUNT EQUAL TO THE REQUIRED RECORD 

101 * LENGTH, IS DATA CHAINED TO A CCW WITH NO COMMAND BITS ON. 

102 * 

103 * EXPECTED RESPONSE 

104 * 

105 * THE SECOND COMMAND WOULD NOT APPEAR INVALID TO THE CHANNEL 

106 * BECAUSE THE DATA CHAIN FLAG IS SET ON. INCORRECT LENGTH 

107 * RECORD SHOULD BE SET ON AT CHANNEL END TIME AND BREAK 

108 * THE CHAIN. 

109 * 

110 * 

111 * 0050 - OPERATION ATTEMPTED 

112 * 

113 * A DIAGNOSTIC READ WITH A COUNT LESS THAN THE RECORD LENGTH IS 

114 * DATA CHAINED TO COMPLETE TRANSFERING THE CORRECT RECORD LENGTH 

115 * 

116 * EXPECTED RESPONSE 

117 * 

118 * THE SECOND CCW COMMAND FIELD IS INVALID TO THE CHANNEL. NO 

119 * CHANNEL PROGRAM CHECK SHOULD BE SET BECAUSE OF A DATA CHAIN 

120 * THE CHANNEL SHOULD NOT INSPECT THE COMMAND FIELD OF THE SECOND j 

121 * CCW. | 

122 * ' ! 

123 * .j 

124 * ROUTINE 03 

125 * 

126 * 0060 - OPERATION ATTEMPTED 

127 * 

128 ♦ A NOP IS COMMAND CHAINED TO A UCS PRE-CONDITION LOAD COMMAND. 
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129 * 

130 * EXPECTED RESPONSE 

131 * 

132 * COMMAND REJECT SHOULD TURN ON UNIT CHECK DURING INITIAL 

133 * SELECTION OF THE PRE-CONDITION LOAD COMMAND, AND BREAK THE 

134 * CHAIN. ON BASIC PRINTERS, COMMAND REJECT WILL OCCUR BECAUSE 

135 * THE COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS, 

136 * COMMAND REJECT WILL BE SET BECAUSE THE PRE-CONDITION LOAD 

137 * COMMAND IS NOT THE FIRST COMMAND IN A COMMAND CHAIN. 

138 * 

139 * 

140 * 0070 - OPERATION ATTEMPTED 

141 * 

142 * A NOP IS COMMAND CHAINED TO A UCS BLOCK DATA CHECK COMMAND. 

143 * 

144 * EXPECTED RESPONSE 

145 * 

146 * COMMAND REJECT SHOULD TURN ON UNIT CHECK DURING INITIAL 

147 * SELECTION OF THE BLOCK DATA CHECK COMMAND, AND BREAK THE CHAIN 

148 * ON BASIC PRINTERS, COMMAND REJECT WILL OCCUR BECAUSE THE 

149 * COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS, COMMAND 

150 * REJECT WILL BE SET BECAUSE THE BLOCK DATA CHECK COMMAND IS NOT 

151 * THE FIRST COMMAND IN A COMMAND CHAIN, AND THE PRE-CONDITION 

152 * LOAD LATCH IS NOT ON. 

153 * 

154 * 

155 * 0080 - OPERATION ATTEMPTED 

156 * 

157 * A NOP IS COMMAND CHAINED TO A UCS ALLOW DATA CHECK CGMMAND. 

158 * 

159 * EXPECTED RESPONSE 

160 ♦ 

161 ♦ COMMAND REJECT SHOULD TURN ON UNIT CHECK DURING INITIAL 

162 * SELECTION OF THE ALLOW DATA CHECK COMMAND, AND BREAK THE CHAIN 

163 * ON BASIC PRINTERS, COMMAND REJECT WILL OCCUR BECAUSE THE 

164 * COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS, COMMAND 

165 * REJECT WILL BE SET BECAUSE THE ALLOW DATA CHECK COMMAND IS NOT 

166 * THE FIRST COMMAND IN A COMMAND CHAIN, AND THE PRE-CONDITION 

167 ♦ LOAD LATCH IS NOT ON. 

168 * 

169 * 

170 * ROUTINE 04 

171 ♦ 

172 * 0090 - OPERATION ATTEMPTED 

173 * 

174 * A LINE OF BLANKS IS PRINTED USING A PRINT AND NO SPACE. 

175 * 

176 * EXPECTEO RESPONSE 

177 * 

178 * IF AN ERROR DETECTED ON THIS TEST, CONTINUE FOR FURTHER ERROR 

179 * INFORMATION. 

180 * 

181 * 

182 ♦ 0100 - OPERATION ATTEMPTED 

183 * 

184 * A DIAGNOSTIC CHECK READ IS ISSUED. 

185 * 

186 * EXPECTEO RESPONSE 

187 * 

188 * IF A UNIT CHECK OCCURRED ON PREVIOUS COMMAND, IT WILL 

189 * APPEAR HERE ALSO. CONTINUE ON FOR FURTHER INFORMATION. 

190 * 

191 * 

192 * 0110 - OPERATION ATTEMPTED 

193 * 


194 * THE CHECK READ DATA IS SCANNED. 

195 * 

196 * ************************************************************ 

197 * NOTE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

198 * OUT SWITCH IS SET ON, OR IF TEST 0100 ABOVE DETECTS NO ERROR. 

199 * ************************************************************ 

200 * 

201 * EXPECTEO RESPONSE 

202 * 

203 * ALL POSITIONS WITHOUT PRINT LINE COMPLETE BIT ON ARE OUTPUTED 

204 * IF SECTION SENSE SWITCHES 0 OR 1 ARE TURNED ON DURING HALT ON 

205 * THIS ERROR, THE PROGRAM IS SET UP TO LOOP ON THE PRINT CCW. 

206 * 

207 * 

208 * ROUTINE 05 

209 * 

210 * 0120 - OPERATION ATTEMPTED 

211 * 

212 * A UCS PRE-CONDITION LOAD COMMAND IS COMMAND CHAINED TO A 

213 * BLOCK DATA CHECK COMMAND, WHICH IS FURTHER COMMAND CHAINED TO 

214 * AN ALLOW DATA CHECK COMMAND. 

215 * 

216 * EXPECTED RESPONSE 

217 * 

218 * EVEN THOUGH THE BLOCK DATA CHECK COMMAND IS NOT THE FIRST 

219 * COMMAND IN A COMMAND CHAIN, THE FACT THAT THE PRE-CONOITION 

220 * LOAD LATCH IS SET SHOULD BLOCK THE SETTING OF COMMAND REJECT 

221 * AND THE CCW SHOULD BE ACCEPTED AND EXECUTED. SINCE THE BLOCK 

222 * DATA CHECK COMMAND SHOULD NOT RESET THE PRE-CONDITION LOAD 

223 * LATCH, THE ALLOW DATA CHECK COMMAND SHOULD ALSO BE ACCEPTED 

224 * AND EXECUTED. 

225 * 

226 * POSSIBLE FAILURE CAUSES 

227 * 

228 * 1. THE 1-0 OPTION PORTION OF DM UDT ENTRY INCORRECTLY DEFINES 

229 * UCS, AND TWO CHANNEL SWITCH FEATURES. 

230 * 2. IF COMMAND IS ACCEPTED, PROBLEM IN COMMAND DECODE CIRCUITS 

231 * COULD BE THE CAUSE. 

232 * 

233 * 

234 * 0130 - OPERATION ATTEMPTED 

235 * 

236 * A UCS PRE-CONDITION LOAD COMMAND IS COMMAND CHAINED TO A 

237 * DIAGNOSTIC READ, WHICH IS FURTHER COMMAND CHAINED TO AN ALLOW 

238 * DATA CHECK COMMAND. 

239 * 

240 * EXPECTED RESPONSE 

241 * 

242 * THE DIAGNOSTIC READ SHOULD RESET THE UCS PRE-CONDITION 

243 * LOAD LATCH, SO THAT DURING INITIAL SELECTION OF 

244 * THE ALLOW DATA CHECK COMMAND, COMMAND REJECT SHOULD BREAK THE 

245 * CHAIN. COMMAND REJECT SHOULD BE SET BECAUSE THE ALLOW DATA 

246 * CHECK WAS NOT THE FIRST COMMAND IN A COMMAND CHAIN, AND THE 

247 * PRE-CONDITION LOAD LATCH WAS NOT ON. 

248 * 

249 * 

250 * ROUTINE 06 

251 * 

252 * 0140 - OPERATION ATTEMPTED 

253 * 

254 * ISSUE A DIAGNOSTIC READ COMMAND. 

255 * 

256 * EXPECTED RESPONSE 

257 * 

258 * THIS COMMAND WILL INSURE THE RESET OF ANY OUTSTANDING 
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259 * COMMAND REJECT BEFORE PROCEEDING WITH THE TEST. 

260 * 

261 ♦ 

262 * 0150 - OPERATION ATTEMPTED 

263 * 

264 * A UCS LOAD WITH FOLDING COMMAND IS ISSUED. 

265 * 

266 * EXPECTED RESPONSE 

267 * 

268 * COMMAND REJECT SHOULD OCCUR ON BASIC PRINTERS BECAUSE THE 

269 * COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS THIS WILL 

270 * OCCUR BECAUSE THE PRE-CONDITION LOAD LATCH WAS NOT ON. 

271 * 

272 ♦ 

273 * 0160 - OPERATION ATTEMPTED 

274 * 

275 * A UCS LOAD WITHOUT FOLDING COMMAND IS ISSUED. 

276 * 

277 ♦ EXPECTED RESPONSE 

278 * 

279 * COMMAND REJECT SHOULD OCCUR ON BASIC PRINTERS BECAUSE THE 

280 * COMMAND IS INVALID TO THE PRINTER. ON UCS PRINTERS THIS WILL 

281 ♦ OCCUR BECAUSE THE PRE-CONDITION LOAD LATCH WAS NOT ON. 

282 * 

283 * 

284 * ROUTINE 07 

285 * 

286 * 0170 - OPERATION ATTEMPTED 

287 * 

288 * ALL COMMANDS THAT SHOULD BE INVALID TO THE PRINTER ARE ISSUED 

289 * 

290 * EXPECTED RESPONSE 

291 * 

292 * COND. CODE 1 WITH UNIT CHECK IN THE CSW SHOULD RESULT. 

293 * COMMAND REJECT SHOULD BE SET IN THE SENSE BYTE. 

294 * 

295 * 

296 * 0180 - OPERATION ATTEMPTED 

297 * 

298 * A BLANK PRINT WITH NO SPACE IS ISSUED. 

299 * 

300 * EXPECTED RESPONSE 

301 * 

302 * THE DEVICE SENSE LATCHES ARE RESET AFTER EACH INVALID COMMAND 

303 * 

304 * 

305 *********************************************************************** 

306 ******************* ******************* 


01000 

F8315000 

307 

308 

309 

01004 

00000000 

310 

01008 

0000 

311 

0100A 

0000 

312 

0100C 

00 

313 

0100D 

01 

314 

0100E 

CO 

315 

0100F 

00 

316 

01010 

0104000000 

317 

01015 

0018E4 

318 

01018 

0000000000000000 

319 

01020 

0000000000000000 

320 

01028 

0000000000000000 

321 

01030 

0000000000000000 

322 

01038 

0000000000000000 

323 


* SECTION PREFACE *************** 
******************* 

SECNO DC XL4* F8315000• 

SNSW DC XL4•00' 

DC XL2'00• 

ICM DC XL2•00 * 

SDMF DC XL1•00• 

NIOU DC XL 1 * 01' 

FLAG1 DC X'CO' 

FLAG2 DC X'OO* 

INPSW DC X,' 0104000000 • 

DC AL3CR0UT01) 

EXOPSW DC XL8•0' 

SVOPSW DC XL8*00* 

PGOPSW DC XL8'00' 

MCOPSW OC XL8*00* 

IOOPSW DC XL8'00' 


****************** SECTION PREFACE * 
******************* 
PROGRAM,SECTION AND REVISION NOS. * 


SECTION SENSE SWITCHES * 

* 

INTERRUPTION CONDITION MASK * 

SECTION DM FLAGS * 

NUMBER OF UNIT TABLE ENTRYS * 

EXCLUSIVE CPU * 

I/O INT ARE ERR, EXT INT TO PROG * 
DISABLED, SPVSR STATE, NO PGM MASK * 
ADR OF 1ST ROUTINE PREFIX * 

SECTION OLD EXTERNAL PSW * 

CLEAR ALL OLD PSWS * 

PROGRAM OLD PSW * 

MACHINE CHECK OLD PSW * 

I/O OLD PSW * 
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01040 

0000000000000000 

324 

CSW 

DC 

XL8'00' 

CHANNEL STATUS WORD 


01048 

00000000 

325 

CAW 

DC 

XL4'00' 

CAW 


0104C 

0000000000000000 

326 


DC 

XL12 * 00* 

RESERVED FOR DM USE 

* 

01054 

00000000 






01058 

0004000000 

327 

EXNPSW 

DC 

X'0004000000' 

EXTERNAL NEW PSW 

* 

0105D 

000000 

328 

SRET 

DC 

XL3'0' 

ADR OF EXT INTRPT ROUTINE 

* 

01060 

0000000000000000 

329 

SVNPSW 

DC 

XL8'00* 

SUPERVISOR NEW PSW 

* 

01068 

0000000000000000 

330 

PGNPSW 

DC 

XL8'00 * 

PROGRAM NEW PSW 

* 

01070 

0000000000000000 

331 

MCNPSW 

DC 

XL8'00' 

MACHINE CHECK NEW PSW 

* 

01078 

01040000 

332 

IONPSW 

DC 

XL4'01040000• 

I/O NEW PSW 

* 

0107C 

00001224 

333 


DC 

AL4(IRETRN) 

ADDRESS OF I/O INTRPT ROUTINE 

* 

01080 


334 


DS 

96C 

96 BYTE REG DUMP AREA FOR DM USE 

* 

010E0 

83 

335 

UNIT1 

DC 

X' 83' 

UNIT TYPE - 1419 MICR 

* 

010E1 

00 

336 

U10P 

DC 

X'OO' 

OPTIONAL FEATURES BYTE 

* 

010E2 

8000 

337 

U1ADDR 

DC 

X'8000' 

FLAGS AND CHAN/UNIT ADDRESS 

* 


338 *********************************************************************** 


340 * 1403 SENSE BYTE 

341 *********************************************************************** 

342 * BIT MEANING 

343 * 0 COMMAND REJECT 

344 * 1 INTERVENTION REQUIRED 

345 * 2 BUS OUT CHECK 

346 * 3 EQUIPMENT CHECK - HAMMER FIRE OR PRINT BUFFER PARITY CHECK 

347 * 4 DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER 

348 * 5 BUFFER PARITY CHECK - REFERS TO UCS BUFFER 

349 * 6 NOT USED 

350 * 7 CHANNEL 9 

351 ft********************************************************************** 

352 *********************************************************************** 

353 * 1403 DEVICE STATUS 

354 *********************************************************************** 

355 * BIT MEANING 

356 * 0 ATTENTION - NOT USED 

357 * 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

358 * 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

359 * 3 DEVICE BUSY 

360 * 4 CHANNEL END 

361 * 5 DEVICE END 

362 * 6 UNIT CHECK 

363 * 7 UNIT EXCEPTION - CHANNEL 12 

364 *********************************************************************** 

365 *********************************************************************** 

366 * 1403 DIAGNOSTIC CHECK READ DATA 

367 *********************************************************************** 

368 * BIT MEANING 

369 * 5 ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 

370 * POSITION. 

371 * OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 

372 * PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 

373 * OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT 

374 * CONSIDERED A VALID UNPRINTABLE. 

375 * 

376 * ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 

377 * AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 

378 * AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

379 * 

380 * 6 ON - THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 

381 * THIS PLANE IS SET BY- 

382 * 1. A HAMMER FIRE AND AN EQUAL CHECK. 

383 * 2. NO HAMMER FIRE AND NO EQUAL CHECK. 

384 * 3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 

385 * MOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

386 * OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 

387 * 
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453 * 7 - OFF - NO ERROR DETECTED 

454 * ON - AN ERROR WAS DETECTED 

455 *********************************************************************** 

456 * REGISTERS USED IN I~0 HANDLER 

457 *********************************************************************** 

458 * REG COMMENTS 

459 * 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

460 * PREVIOUS HANGUP ON INTERFACE DETECTED. 

461 * 

462 * 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

463 * 

464 * 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

465 * 

466 * 10 MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

467 * 

468 * 11 MUST BE USED AS LINK REG TO THIS ROUTINE 

469 * 

470 * 12 MUST CONTAIN DEVICE ADDRESS ! 

471 * | 

472 *********************************************************************** 

010E4 0000 473 ISW DC XL2»0» I 

474 *********************************************************************** 

475 *********************************************************************** 

476 * * 1-0 HANDLER SUB-ROUTINE * 

477 *********************************************************************** 


010E6 

92 

9E 

F 

1A6 



478 

IH10 

MVI 

ISSUE,X*9£* 

SET UP FOR HALT 1-0 j 

010EA 

92 

C8 

F 

635 



479 


MV I 

I0PT1+21*X*C8 # 

MOVE -H- TO MESSAGE 

010EE 

92 

C8 

F 

5 AO 



480 


MVI 

I0ADDR+12,X *C8• 

j 

010F2 

92 

9E 

F 

15C 



481 


MVI 

ILOOP,X*9E* 


010F6 

47 

FO 

F 

11E 



482 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

010FA 

92 

9D 

F 

1A6 



483 

IT 10 

MVI 

ISSUE,X*9D’ 

SET UP FOR TEST 1-0 

010FE 

92 

90 

F 

15C 



484 


MVI 

ILOOP,X'9D» 


01102 

92 

E3 

F 

635 



485 


MVI 

10PT1+21,X * E3 • 

MOVE -T- TO MESSAGE 

01106 

92 

E3 

F 

5 AO 



486 


MVI 

IOADDR+12,X *E3 • 


0110A 

47 

FO 

F 

he 



487 


BC 

UNC,IEYEOH 

BR. UNCONDITIONAL 

1 0110E 

92 

9C 

F 

1A6 



488 

ISIO 

MVI 

ISSUE,X V 9C' 

SET UP FOR START 1-0 

01112 

92 

9C 

F 

15C 



489 


MVI 

ILOOP,X*9C» 


1 01116 

92 

E2 

F 

635 



490 


MVI 

IOPT1+21,X'E2 • 

MOVE -S- TO MESSAGE 

\ 0111A 

92 

E2 

F 

5 AO 



491 


MVI 

IOADDR+12* X *E2• 


; 0111E 

D2 

01 

F 

61C 

B 

002 

492 

IEYEOH 

MVC 

ITSTNO+5!2),2(R11) 

SAVE TEST NUMBER 

j 01124 

90 

AB 

F 

680 



493 


STM 

R10,R11,I SLAVE 

SAVE REG 10 AND REG 11 

j 01128 

90 

89 

F 

560 



494 


STM 

R8,R9,ISAVE 

SAVE REGS 8 AND 9 

0112C 

50 

AD 

0 

048 



495 


ST 

R10,HCAW(R13) 

STORE COMMAND ADDRESS 

’ 01130 

D7 

07 

D 

040 

D 

040 

496 


XC 

HCSWI8,R13),HCSW(R13) 


! 01136 

95 

30 

E 

181 



497 


CLI 

SYSM0DIR14),X«30» 

CHECK FOR MODEL 30 

0113 A 

47 

60 

F 

144 



498 


BC 

UNEQ,M0D44 

BR. IF NOT 

0113E 

D7 

08 

0 

080 

0 

080 

499 


XC 

LOGOUT!12),LOGOUT 

CLEAR MOD 30 LOGOUT AREA 

01144 

91 

80 

B 

000 



500 

M0D44 

TM 

0(R11),X*80* 

CHECK CONTROL SWITCH FOR NO 1-0 

01148 

47 

10 

F 

1 DC 



501 


BC 

ALL,INOW 

BR. IF ON 

0114C 

91 

CO 

F 

004 



502 


TM 

SNSW,X *C0• 


01150 

47 

80 

F 

198 



503 


BC 

NONE,JOHN 









504 

*********************************************************************** 








505 

* 


SENSE SWITCH LOOPS - 1 








506 

*********************************************************************** 

01154 

91 

80 

F 

004 



507 

ITRY1 

TM 

SNSW,X•80 * 

CHECK SECTION SENSE SWITCH 0 

01158 

47 

80 

F 

164 



508 


BC 

NONE,ITRY2 

BR. IF OFF 

0115C 

9C 

00 

C' 

000 



509 

ILOOP 

SIO 

0(R12) 

SIO, TIO, OR HI0 

01160 

47 

FO 

F 

154 



510 


BC 

UNC,ITRY1 

BR. UNCONDITIONAL 

01164 

91 

40 

F 

004 



511 

ITRY2 

TM 

SNSW,X *40* 

CHECK SECTION SENSE SWITCH 1 

01168 

47 

80 

F 

184 



512 


BC 

NONE,IHI 

BR. IF OFF 

0116C 

9D 

00 

C 

000 



513 

IHANG 

TIO 

0(R12) 

TEST 1-0 

01170 

47 

70 

F 

154 



514 


BC 

NCCO,ITRYI 

BR. IF NOT COND. fctiDE 0 

01174 

91 

40 

F 

004 



515 


TM 

SNSW,X»40* 

CHECK SECTION SENSE SWITCH 1 

01178 

47 

80 

F 

184 



516 


BC 

NONE,IHI 

BR. IF OFF 

0117C 

9C 

00 

C 

000 



517 


SIO 

0(R12) 

START 1-0 
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01180 

47 

FO 

F 

16C 



518 


BC 

UNCtIHANG 

BR. UNCONDITIONAL 








519 

♦ 




01184 

58 

IE 

0 

198 



520 

IHI 

L 

R1,WT!14) 


01180 

88 

10 

0 

003 



521 


SRL 

R1»3 


0118C 

9D 

00 

C 

000 



522 

GREG 

TIO 

0 (R12) 


01190 

47 

80 

F 

198 



523 


BC 

CCO,JOHN 


01194 

46 

10 

F 

18C 



524 


BCT 

Rl.GREG 


01198 

D7 

01 

F 

0E4 

F 

0E4 

525 

JOHN 

XC 

ISW(2),ISW 


0119E 

96 

80 

F 

0E4 



526 


01 

ISWt X * 80' 


011A2 

92 

E7 

F 

58F 



527 


MVI 

IACTCC+5,C'X• 

MOVE IN A -X- 

011A6 

9C 

00 

C 

000 



528 

ISSUE 

SIO 

0(R12) 

1-0 COMMAND- SIO, TIO, OR HIO 

011AA 

47 

80 

F 

1D8 



529 


BC 

CCO, I ZERO 

BR. IF COND. CODE 0 

011AE 

47 

40 

F 

1C6 



530 


BC 

CC1tIONE 

BR. IF COND. CODE 1 

011B2 

47 

20 

F 

1BE 



531 


BC 

CC2 yI TWO 

BR. IF COND. CODE 2 

011B6 

92 

F3 

F 

58F 



532 


MVI 

IACTCC+5 , X'F3' 

INDICATE COND. CODE 3 

011 BA 

47 

FO 

F 

1DC 



533 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

011 BE 

92 

F2 

F 

58F 



534 

ITWO 

MVI 

IACTCC+5,X , F2* 

INDICATE COND. CODE 2 

011C2 

47 

FO 

F 

1 DC 



535 


BC 

UNC ,INOW 

BR. UNCONDITIONAL 

011C6 

92 

FI 

F 

58F 



536 

IONE 

MVI 

IACTCC+5y X'FI• 

INDICATE COND. CODE 1 

011C A 

02 

07 

F 

652 

D 

040 

537 


MVC 

ICSWK8) ,HCSWtR13) 

SAVE CSW 

01 IDO 

96 

40 

F 

0E4 



538 


01 

ISWyX'40* 

INDICATE 1 CSW 

011D4 

47 

FO 

F 

1 DC 



539 


BC 

UNCyINOW 

BR. UNCONDITIONAL 

01108 

92 

FO 

F 

58F 



540 

IZERO 

MVI 

IACTCC+5,X'FO* 

INDICATE COND. CODE 0 

011DC 

94 

7F 

F 

0E4 



541 

INOW 

NI 

ISW,X•7F• 

TURN OFF HANG UP SWITCH 

011E0 

91 

40 

B 

000 



542 


TM 

0(R11),X»40* 

CHECK CONTROL SWITCH FOR NO ENABLE 

011E4 

47 

10 

F 

298 



543 


BC 

ALL,ISEN 

BR. IF ON 

011E8 

95 

FO 

F 

58F 



544 


CLI 

IACTCC+5,X'FO* 

CHECK FOR COND CODE 0 

011EC 

47 

80 

F 

200 



545 


BC 

EQylBLE 

BR. IF IT WAS 

OllFO 

95 

FI 

F 

58F 



546 


CLI 

IACTCC+5,X*FI* 

CHECK FOR COND CODE 1 

011F4 

47 

60 

F 

298 



547 


BC 

UNEQ,ISEN 

BR. IF NOT 

011F8 

91 

08 

F 

656 



548 


TM 

ICSW1+4,X *08* 

CHECK FOR CHANNEL END 

011FC 

47 

80 

F 

298 



549 


BC 

NONE,ISEN 

BR. IF NONE 

01200 

96 

10 

F 

0E4 



550 

IBLE 

01 

ISW,X * 10 * 

INDICATE ENABLED ONCE 

01204 

58 

9E 

0 

198 



551 

IWAIT 

L 

R9, WT(R14) 

LOAD DM WAIT FACTOR 

01208 

88 

90 

0 

003 



552 


SRL 

R9,3 

ADJUST 

0120C 

96 

80 

F 

0E4 



553 


01 

ISW,X*80 # 

TURN ON HANG UP SW 

01210 

80 

00 

F 

673 



554 


SSM 

MSK1 

ENABLE 

01214 

46 

90 

F 

214 



555 


BCT 

R9y* 

WAIT 

01218 

80 

00 

F 

674 



556 


SSM 

MSK2 

DISABLE 

0121C 

94 

7 F 

F 

0E4 



557 


NI 

I SW , X • 7F * 

TURN OFF HANG SW 

01220 

47 

FO 

F 

298 



558 


BC 

UNC,ISEN 

BR. UNCONDITIONAL 








559 

*********************************************************************** 








560 

* 


ALL 1-0 

INTERRUPTS RETURN HERE 








561 

*********************************************************************** 

01224 

49 

CO 

F 

03A 



562 

IRETRN 

CH 

R12,IOOPSW+2 

COMPARE FOR CURRENT 1-0 ADDRESS 

01228 

47 

60 

F 

246 



563 


BC 

UNEQ,IUIO 

BR. IF UNEQUAL 

0122C 

94 

7F 

F 

0E4 



564 


NI 

ISW,X•7F' 

RESET HANG UP SW 

01230 

91 

40 

F 

0E4 



565 


TM 

ISW,X'40' 


01234 

47 

10 

F 

276 



566 


BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

01238 

D2 

07 

F 

652 

F 

040 

567 


MVC 

ICSW1(8),HCSW(R15) 

SAVE CSW 1 

0123E 

96 

40 

F 

0E4 



568 


01 

ISWyX'40* 

INDICATE 1 CSW STORED 

01242 

47 

FO 

F 

280 



569 


BC 

UNC,INT3 

BR. UNCONDITIONAL 

01246 

D2 

07 

F 

568 

F 

040 

570 

IUIO 

MVC 

WORK(8),HCSW(R15) 


0124C 

OA 

DD 





571 


SVC 

X • DD • 

CONVERT ADDRESS 

0124E 

0003 





572 


DC 

AL2(3) 


01250 

0039 





573 


DC 

AL2(IOOPSW+l-SECNO) 


01252 

067A 





574 


DC 

AL2UUNEX+5-SECN0) 


01254 

OA 

DO 





575 


SVC 

X * DO • 

PRINT UNEXPECTED INTERRUPT DEVICE 

01256 

64 






576 


DC 

X • 64 • 

ADDRESS 

01257 

OB 






577 


DC 

X • OB • 


01258 

F675 





578 


DC 

AL2(IUNEX—SECNG+REG) 


0125A 

02 

02 

F 

5C6 

F 

5BF 

579 


MVC 

IBLAH+1(3),ICSW 

MOVE -CSW- TO MESSAGE 

01260 

92 

1A 

F 

427 



580 


MVI 

ICNT,X•1A * 

ADJUST COUNT 

01264 

D2 

02 

F 

5 DC 

F 

5DF 

581 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

0126A 

45 

90 

F 

410 



582 


BAL 

R9tICOUT 

BR. TO OUTPUT CSW 
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0126E 

96 

02 

F 

0E4 



583 


01 

ISW,X•02• 

INDICATE UIO 

01272 

47 

FO 

F 

4E6 



584 


BC 

UNC,IPASS 

BR. UNCONDITIONAL 

01276 

D2 

07 

F 

65A 

F 

040 

505 

ISV2 

MVC 

ICSW2(8),HCSW(R15) 

SAVE CSW 2 

0127C 

96 

20 

F 

0E4 



586 


01 

ISW,X•20 * 

INDICATE 2 CSWS STORED 

01280 

91 

10 

B 

000 



587 

INT3 

TM 

0(R11)yX'lO* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

01284 

47 

80 

F 

298 



588 


BC 

NONE,ISEN 

BR. IF NOT 

01288 

91 

08 

F 

0E4 



589 


TM 

ISW,X'08» 


0128C 

47 

10 

F 

298 



590 


BC 

ALL,ISEN 

BR. IF ALREADY ENABLED TWICE 

01290 

96 

08 

F 

0E4 



591 


01 

ISW * X•08' 

INDICATE ENABLED TWICE 

01294 

47 

FO 

F 

204 



592 


BC 

UNC,IWAIT 


01298 

91 

02 

B 

000 



593 

ISEN 

TM 

0(R11),X'02* 

CHECK CONTROL SWITCH FOR SNS ON UC 

0129C 

47 

80 

F 

2C0 



594 


BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

012 AO 

91 

40 

F 

0E4 



595 


TM 

1SW,X *40* 


012A4 

47 

80 

F 

316 



596 


BC 

NONE,IBSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

012A8 

91 

02 

F 

656 



597 


TM 

ICSW1+4,X *02• 

CHECK FOR UNIT CHECK 

012 AC 

47 

10 

F 

2 CO 



598 


BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

012B0 

91 

20 

F 

0E4 



599 


TM 

ISWyX'ZO* 

CHECK FOR SECOND CSW 

012B4 

47 

80 

F 

316 



600 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

012B8 

91 

02 

F 

65E 



601 


TM 

ICSW2+4,X *02 1 

CHECK FOR UNIT CHECK 

012BC 

47 

80 

F 

316 



602 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

012CO 

58 

9E 

0 

198 



603 

IDOSNS 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR 

012C4 

88 

90 

0 

004 



604 


SRL 

R9,4 

ADJUST 

012C8 

41 

80 

F 

668 



605 


LA 

R8,I SENSE 

LOAD SENSE COMMAND ADDRESS 

012CC 

50 

8D 

0 

048 



606 


ST 

R8»HCAW(R13) 

STORE IN CAW 

012D0 

9C 

00 

C 

000 



607 


SIO 

0 (R12 ) 

ISSUE SENSE 

012D4 

47 

70 

F 

364 



608 


BC 

NCCO,INDER 

BR. IF NOT ACCEPTED 

012D8 

9D 

00 

C 

000 



609 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 

012DC 

47 

40 

F 

300 



610 


BC 

CC1,ILOKE 

BR. IF CSW STORED 

012E0 

46 

90 

F 

2 08 



611 

IT IC 

BCT 

R9,ITIOLP 


012E4 

47 

FO 

F 

316 



612 


BC 

UNC,IBSN 

BR. UNCONDITIONAL 

012E8 

91 

40 

F 

0E4 



613 

IN0EX1 

TM 

ISW,X*40* 


012EC 

47 

10 

F 

364 



614 


BC 

ALL,INDER 

BR. IF CSW STORED 

012F0 

47 

FO 

F 

368 



615 


BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

012F4 

91 

20 

F 

0E4 



616 

IN0EX2 

TM 

ISWyX'20* 


012F8 

47 

10 

F 

364 



617 


BC 

ALL,INDER 

BR. IF CSW 2 STORED 

012FC 

47 

FO 

F 

368 



618 


BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

01300 

95 

OC 

D 

044 



619 

ILOKE 

CLI 

HCSW+4CR13),X'OC» 

CHECK FOR CE DE ONLY 

01304 

47 

70 

F 

2E0 



620 


BC 

NCCOylTIC 

BR. IF NOT 

01308 

96 

04 

F 

0E4 



621 


01 

ISW,X'04» 

INDICATE SENSE DATA RECIEVED 

0130C 

D5 

00 

F 

5F5 

B 

005 

622 


CLC 

IACSNS+5I1), 5CR11) 

COMPARE FOR EXPECTED SENSE 

01312 

47 

60 

F 

364 



623 


BC 

UNEQ,INDER 

BR. IF UNEQUAL 

01316 

D5 

00 

F 

58F 

B 

004 

624 

IBSN 

CLC 

IACTCC+5!1)*4(R11) 

COMPARE FOR EXPECTED COND. CODE 

0131C 

47 

60 

F 

364 



625 


BC 

UNEQ,INDER 

BR. IF UNEQUAL 

01320 

91 

08 

8 

000 



626 


TM 

0(R11) , X *08* 


01324 

47 

80 

F 

2E8 



627 


BC 

NONE,IN0EX1 

BR. IF NO CSW EXPECTED 

01328 

91 

40 

F 

0 64 



628 


TM 

ISW,X*40* 


0132C 

47 

80 

F 

3 64 



629 


BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

01330 

48 

8B 

0 

006 



630 


LH 

R8,6!R11) 

LOAD CSW ADDR 

01334 

40 

80 

F 

33C 



631 


STH 

R8,ICCSW1+4 

STORE IN COMPARE INSTR. 

01338 

D5 

07 

F 

652 

F 

652 

632 

ICCSW1 

CLC 

ICSW1(8),ICSW1 

COMPARE FOR EXPECTED CSW 

0133E 

47 

60 

F 

364 



633 


BC 

UNEQ,INDER 

BR. IF UNEQUAL 

01342 

91 

04 

B 

000 



634 


TM 

O(Rll),X'04* 


01346 

47 

80 

F 

2F4 



635 


BC 

NONE,IN0EX2 

BR. IF NO CSW 2 EXPECTED 

0134A 

91 

20 

F 

0E4 



636 


TM 

ISWyX’ZO* 


0134E 

47 

80 

F 

364 



637 


BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

01352 

41 

88 

0 

008 



638 


LA 

R8,8(R8) 

UPDATE TO SECOND CSW 

01356 

40 

80 

F 

35E 



639 


STH 

R8,ICCSW2+4 


0135 A 

D5 

07 

F 

65A 

F 

65A 

640 

ICCSW2 

CLC 

ICSW2(8),ICSW2 

COMPARE FOR EXPECTED CSW 2 

01360 

47 

80 

F 

368 



641 


BC 

EQ,IDUNCK 

BR. IF EQUAL 

01364 

96 

01 

F 

0E4 



642 

INDER 

01 

ISW,X * 01 * 

INDICATE AN ERROR 

01368 

92 

64 

F 

398 



643 

IDUNCK 

MVI 

1FLAG1,X *64• 

SET UP FOR ERROR PRINTOUT 

0136C 

92 

CO 

F 

52C 



644 


MVI 

IFLAG2,X’CO* 


01370 

91 

01 

F 

0E4 



645 


TM 

ISW,X*01* 

CHECK FOR A DETECTED ERROR 

01374 

47 

10 

F 

388 



646 


BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

01378 

91 

01 

F 

004 



647 


TM 

SNSW,X *01 * 

CHECK SECTION SENSE SWITCH 7 
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0137C 

47 80 

F 

548 



648 


I3C 

NONE,I LEAVE 

PR, IF OFF 

01380 

92 24 

F 

398 



649 


MV I 

IFLAGltX*24* 

SET UP FOR CORRECT PRINTOUT 

01384 

92 80 

F 

52C 



650 


MV I 

IFLAG2 t X * 80• 


01388 

D2 01 

F 

61C 

B 

002 

651 

IOUTIT 

MVC 

ITSTN0+5(2),2(R11) 

MOVE TEST NUMBER TO PRINT 

0138E 

OA DD 





652 


SVC 

X * DD' 

CONVERT TEST NUMBER 

01390 

0002 





653 


DC 

AL2(2) 


01392 

061C 





654 


DC 

AL2(ITSTN0+5-SECN0) 


01394 

061C 





655 


DC 

AL2 CITSTN0+5-SECN0) 


01396 

OA DO 





656 


SVC 

X • DO* 

PRINT TEST NUMBER 

01398 

64 





657 

IFLAG1 

DC 

X • 64 • 


01399 

09 





658 


DC 

X • 09 • 


0139A 

F617 





659 


DC 

AL2< ITSTNO-SECNO+REG) 


0139C 

41 80 

0 

004 



660 


LA 

R8»4 

ADJUST LINK ADDRESS FOR PRINTOUT 

013 AO 

IB B8 





661 


SR 

R11,R8 


013A2 

50 BO 

F 

5A8 



662 


ST 

RlltILINK+5 


013A6 

OA DD 





663 


SVC 

X *DD * 

CONVERT LINK ADDRESS 

013A8 

0003 





664 


DC 

AL2(3) 


013AA 

05A9 





665 


DC 

AL2ULINK+6-SECN0) 


013AC 

05A8 





666 


DC 

AL2<ILINK+5-SECN0) 


013AE 

OA DO 





667 


SVC 

X' DO* 

PRINT LINK ADDRESS 

01360 

EO 





668 


DC 

X • EO * 


01381 

10 





669 


DC 

X*10 # 


013B2 

F5A3 





670 


DC 

AL2(ILINK-SECNO+REG) 


013B4 

41 BB 

0 

004 



671 


LA 

Rll*4(R11) 


013B8 

91 80 

B 

000 



672 


TM 

0(Rll),X* 80* 


013BC 

47 10 

F 

442 



673 


BC 

ALL ,IOCSW 

BR. IF NO 1-0 COMMAND ISSUED 

013C0 

OA DO 





674 


SVC 

X • DD • 

CONVERT 1-0 ADDRESS 

013C2 

0003 





675 


DC 

AL2C3) 


013C4 

0670 





676 


DC 

AL2U0ADR-SECN0) 


013C6 

0599 





677 


DC 

AL2(I0ADDR+5-SECN0) 


013C8 

OA DO 





678 


SVC 

X' DO* 

PRINT 1-0 ADDRESS 

013CA 

EO 





679 


DC 

X * EO • 


013CB 

OF 





680 


DC 

X' OF * 


013CC 

F594 





681 


DC 

AL2(IOADDR-SECNO+REG) 


013CE 

95 9C 

F 

1A6 



682 


CLI 

ISSUE * X•9C • 

COMPARE FOR SIO COMMAND 

013D2 

47 60 

F 

42C 



683 


BC 

UNEQ vICCOUT 

BR. IF NOT 

013D6 

50 AO 

F 

5B8 



684 


ST 

RIO,ICAW+5 

STORE CCW ADDR. 

013DA 

OA DD 





685 


SVC 

X • DO • 

CONVERT CAW 

013DC 

0003 





686 


DC 

AL2(3) 


013DE 

05B9 





687 


DC 

AL2(ICAW+6-SECN0) 


013E0 

05B8 





688 


DC 

AL2UCAW+5-SECN0) 


013E2 

OA DO 





689 


SVC 

X * DO • 

PRINT CAW 

013E4 

EO 





690 


DC 

X • EO • 


013E5 

OB 





691 


DC 

X * OB • 


013E6 

F5B3 





692 


DC 

AL2 (ICAW-SECNO+REG) 


013E8 

D2 02 

F 

5C6 

F 

5C2 

693 


MVC 

IBLAH+K 3) , ICCW 

MOVE -CCW- TO MESSAGE 

013EE 

92 16 

F 

427 



694 


MV I 

ICNT,X•16• 

ADJUST COUNT 

013F2 

50 AO 

F 

854 



695 


ST 

RIO,SAV10 

MOVE CONTENTS OF REG 10 TO SAVE 

013F6 

D2 07 

F 

568 

A 

000 

696 

ICWOUT 

MVC 

WORK(8),0(RIO) 

MOVE CCW TO WORK AREA 

013FC 

45 90 

F 

410 



697 


BAL 

R9,ICOUT 

BR. TO OUTPUT CCW 

01400 

91 CO 

A 

004 



698 


TM 

4(R10),X*CO* 

CHECK FOR ANY CHAIN FLAGS 

01404 

47 80 

F 

42C 



699 


BC 

NONE,ICCOUT 

BR. IF NONE 

01408 

41 AA 

0 

008 



700 


LA 

RIO,8(RIO) 

UPDATE TO NEXT CCW 

0140C 

47 FO 

F 

3F6 



701 


BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

01410 

OA DD 





702 

ICOUT 

SVC 

X • DD* 

CONVERT 

01412 

0008 





703 


DC 

AL2(8) 


01414 

0568 





704 


DC 

AL2(WORK—SECNO) 


01416 

0568 





705 


DC 

AL2(WORK-SECNO) 


01418 

D2 07 

F 

5CA 

F 

568 

706 


MVC 

IBLAH+5C8),WORK 

MOVE TO MESSAGE 

0141E 

D2 07 

F 

5D3 

F 

570 

707 


MVC 

IBLAH+14C 8),WORK*8 


01424 

OA DO 





708 


SVC 

X* DO* 

PRINT 

01426 

EO 





709 


DC 

X *E0 1 


01427 

1A 





710 

ICNT 

DC 

X • 1A • 


01428 

F5C5 





711 


DC 

AL2(IBLAH-SECNO+REG) 


0142A 

07 F9 





712 


BCR 

UNC,R9 

RETURN VIA REG 9 


DATE 15MAR66 15N0V66 120CT67 ID F831- 

EC'S 125632 125655 131812 PAGE 6 


3 3 0 0 0 O 0 0 O O O 0 0 0 O Q O 


w 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840106 
PAGE 6A 


1403 PRINTER FUNCTION 2 


0142C 

D2 

00 

F 

585 

B 

004 

713 

ICCOUT 

MVC 

IEXPCC + 5(1),4(RU) 

MOVE EXP CC TO MESSAGE 

01432 

58 

AO 

F 

680 



714 


L 

RIO,I SLAVE 

RESTORE REG 10 

01436 

OA 

DO 





715 


SVC 

X • DO' 

PRINT EXPECTED COND. CODE 

01438 

EO 






716 


DC 

X • EO' 


01439 

OA 






717 


DC 

X • OA * 


0143A 

F580 





718 


DC 

AL2(IEXPCC-SECNO+REG) 


0143C 

OA 

DO 





719 


SVC 

X 'DO • 

PRINT ACTUAL COND. CODE 

0143E 

EO 






720 


DC 

X' EO* 


0143F 

OA 






721 


DC 

X • OA • 


01440 

F58 A 





722 


DC 

AL2(IACTCC-SECNO+REG) 


01442 

D2 

02 

F 

5C6 

F 

5BF 

723 

IOCSW 

MVC 

IBLAH + H3) ,ICSW 

MOVE —CSW- TO MESSAGE 

01448 

92 

1A 

F 

427 



724 


MVI 

ICNT* X•1A • 

ADJUST COUNT 

0144C 

91 

08 

B 

000 



725 


TM 

0(R11),X*08» 


01450 

47 

80 

F 

474 



726 


BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

01454 

D2 

02 

F 

5 DC 

F 

5E2 

727 


MVC 

IBLAH+23C3),IEXP 

MOVE -EXP- TO MESSAGE 

0145A 

48 

8B 

0 

006 



728 


LH 

R8,6(R11) 


0145E 

40 

80 

F 

46E 



729 


STH 

R8,ICHNG1+4 


01462 

41 

88 

0 

008 



730 


LA 

R8,8(R8) 


01466 

40 

80 

F 

49E 



731 


STH 

R8,ICHNG2+4 


0146A 

D2 

07 

F 

568 

F 

568 

732 

ICHNG1 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

01470 

45 

90 

F 

410 



733 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

01474 

91 

40 

F 

0E4 



734 

IDIDI 

TM 

ISW,X*40* 


01478 

47 

80 

F 

48C 



735 


BC 

NONE,IMORST 

BR. IF NO CSW STORED 

0147C 

D2 

02 

F 

5 DC 

F 

5DF 

736 


MVC 

IBLAH+23C3),IACT 

MOVE -ACT- TO MESSAGE 

01482 

D2 

07 

F 

568 

F 

652 

737 


MVC 

WORK(8),ICSW1 

MOVE ACTUAL CSW TO WORK AREA 

01488 

45 

90 

F 

410 



738 


BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

0148C 

91 

04 

B 

000 



739 

IMORST 

TM 

0(R11),X»04* 


01490 

47 

80 

F 

4A4 



740 


BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

01494 

D2 

02 

F 

5 DC 

F 

5E2 

741 


MVC 

IBLAH+23(3),IEXP 

MOVE -EXP- TO MESSAGE 

0149A 

D2 

07 

F 

568 

F 

568 

742 

ICHNG2 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

014A0 

45 

90 

F 

410 



743 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

014A4 

91 

20 

F 

0E4 



744 

IDID 

TM 

ISW,X•20* 


014A8 

47 

80 

F 

4BC 



745 


BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

014AC 

D2 

02 

F 

5 DC 

F 

5DF 

746 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

014B2 

D2 

07 

F 

568 

F 

65A 

747 


MVC 

WORK(8)♦ICSW2 

MOVE CSW TO WORK AREA 

014B8 

45 

90 

F 

410 



748 


BAL 

R9,ICOUT 


014BC 

D2 

00 

F 

5EA 

B 

005 

749 

IPAS 

MVC 

IEXSNS+5(1),5(R11) 

MOVE EXP SENSE TO MESSAGE 

014C2 

91 

04 

F 

0E4 



750 


TM 

ISW,X'04• 


014C6 

47 

80 

F 

466 



751 


BC 

NONE,IPASS 

BR. IF NO SENSE DATA RECIEVEO 

014CA 

OA 

00 





752 


SVC 

X' DD* 

CONVERT EXPECTED SENSE 

014CC 

0001 





753 


DC 

AL2(1) 


014CE 

05E A 





754 


DC 

AL2(IEXSNS+5-SECN0) 


014D0 

05E A 





755 


DC 

AL2(IEXSNS+5-SECN0) 


014D2 

OA 

DO 





756 


SVC 

X * DO * 

PRINT EXPECTED SENSE 

014D4 

EO 






757 


DC 

X * EO' 


014D5 

OB 






758 


DC 

X * OB 1 


1 014D6 

F5E5 





759 


DC 

AL2(IEXSNS-SECNO+REG) 


014D8 

OA 

DD 





760 


SVC 

X * DD' 


014DA 

0001 





761 


DC 

AL2C1) 


014DC 

05F5 





762 


DC 

AL2<IACSNS+5-SECN0) 


014DE 

05F5 





763 


DC 

AL2(IACSNS+5-SECNQ) 


014E0 

OA 

DO 





764 


SVC 

X' DO' 

PRINT ACTUAL SENSE DATA 

014E2 

EO 






765 


DC 

X * EO * 


014E3 

OB 






766 


DC 

X 1 OB' 


014E4 

F5F0 





767 


DC 

AL2(IACSNS-SECNO+REG) 


014E6 

95 

30 

E 

181 



768 

IPASS 

CLI 

SYSMODIR14),X* 30 * 

CHECK FOR MODEL 30 

014EA 

47 

60 

F 

52A 



769 


BC 

UNEQ,IOPOUT 

BR. IF NOT 

014EE 

D2 

OB 

F 

568 

0 

080 

770 


MVC 

WORK(12),LOGOUT 

MOVE LOGOUT TO WORK AREA 

014F4 

OA 

DD 





771 


SVC 

X • DD • 

CONVERT 

014F6 

OOOC 





772 


DC 

AL2(12) 


014F8 

0568 





773 


DC 

AL2(WORK-SECNO) 


014FA 

0568 





774 


DC 

AL2(WORK-SECNO) 


014FC 

D2 

01 

F 

600 

F 

568 

775 


MVC 

I0L0G+5C2),WORK 

MOVE LOG OUT TO MESSAGE 

01502 

D2 

05 

F 

603 

F 

56A 

776 


MVC 

IOLOG+8(6),WORK+2 


01508 

D2 

05 

F 

60A 

F 

572 

777 


MVC 

I0L0G+13(6)tWORK+10 



DATE 15MAR66 15N0V66 120CT67 ID F831-5 

EC'S 125632 125655 131812 PAGE 6A 


O O O O O O O O O O O O O O O' O 






IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840106 
PAGE 7 

1403 PRINTER FUNCTION 2 


0150E 

D2 05 F 611 F 57A 

778 


MVC 

I0L0G+22(6),WORK*18 


01514 

OA DO 

779 


SVC 

X • DO' 

PRINT LOG OUT 

01516 

EO 

780 


DC 

X'EO' 


01517 

1C 

781 


DC 

X'lC' 


01518 

F5FB 

782 


DC 

AL2(IOLOG-SECNO+REG) 


0151A 

91 02 F 0E4 

783 


TM 

ISW,X'02» 


0151E 

47 80 F 52A 

784 


BC 

NONE,IOPOUT 

BR. IF NOT UIO 

01522 

94 FD F 0E4 

785 


NI 

ISW,X'FD* 

RESET UIO SWITCH 

01526 

47 FO F 204 

786 


BC 

UNC,I WAIT 

BR. UNCONDITIONAL 

0152 A 

OA DO 

787 

IOPOUT 

SVC 

X * DO • 

PRINT LOOP OPTIONS 

0152C 

CO 

788 

IFLAG2 

DC 

X'CO' 


0152D 

32 

789 


DC 

X • 32' 


0152E 

F620 

790 


DC 

AL2(I0PT1-SECN0+REG) 


01530 

OA DO 

791 


SVC 

X'DO* 

SPACE A LINE 

01532 

AO 

792 


DC 

X'AO' 


01533 

01 

793 


DC 

X'Ol' 


01534 

F5A3 

794 


DC 

AL2(ILINK-SECNO+REG) 


01536 

50 AD 0 048 

795 


ST 

R10»HCAW(R13) 

STORE CAW 

0153A 

91 CO F 004 

796 


TM 

SNSW,X'CO• 

CHECK SECTION SENSE SWITCH 0 AND 

0153E 

47 50 F 154 

797 


BC 

ANY,ITRY1 

BR. IF ANY ON 

01542 

91 01 F 0E5 

798 


TM 

ISW+1,X'01' 


01546 

07 15 

799 


BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

01548 

91 08 B 000 

800 

ILEAVE 

TM 

0(R11),X'08» 


0154C 

47 80 F 554 

801 


BC 

NONE,IUP 

BR. IF NO CSW EXPECTED 

01550 

41 BB 0 002 

802 


LA 

R11,2(R11) 

UPDATE LINK ADDRESS FOR RETURN 

01554 

41 BB 0 006 

803 

IUP 

LA 

Rll,6(R11) 


01558 

98 89 F 560 

804 


LM 

R8,R9,ISAVE 

RESTORE REGS 8 AND 9 

0155C 

07 FB 

805 


BCR 

UNC,Rll 

RETURN VIA REG 11 

0155E 

07 00 

806 


CNOP 

0,8 


01560 

0000000000000000 

807 

ISAVE 

DC 

XL8'0' 


01568 


808 

WORK 

DS 

24C 


01580 

40C3C34040E740C5 

809 

IEXPCC 

DC 

C CC X EXP* 


01588 

E7D7 






0158A 

40C3C34040E740C1 

810 

IACTCC 

DC 

C* CC X ACT' 


01592 

C3E3 






01594 

40C1C4D940E7E7E7 

811 

IOADDR 

DC 

C' ADR XXXXXX XIO' 


0159C 

E7E7E740E7C9D6 






015 A3 

00 

812 


DC 

X'OO' 


015A4 


813 


CNOP 

0,4 


015 A3 


814 


ORG 

*-l 


015A3 

40C1C4D940E7E7E7 

815. 

ILINK 

DC 

C' ADR XXXXXX LINK* 


015 AB 

E7E7E740D3C9D5D2 






015B3 

00 

816 


DC 

X'OO' 


015B4 


817 


CNOP 

0,4 


015B3 


818 


ORG 

*-l 


015B3 

40C3C1E640E7E7E7 

819 

ICAW 

DC 

C' CAW XXXXXX • 


015BB 

E7E7E740 






015BF 

C3E2E6 

820 

ICSW 

DC 

C'CSW' 


015C2 

C3C3E6 

821 

ICCW 

DC 

C'CCW' 


015C5 

40C3E2E640E7E7E7 

822 

IBLAH 

DC 

C' CSW XXXXXXXX XX' 


015CD 

E7E7E7E7E740E7E7 






015D5 

E7E7E7 E7E7E740C5 

823 


DC 

C'XXXXXX EXP' 


015DD 

E7D7 






015DF 

C1C3E3 

824 

IACT 

DC 

C•ACT' 


015E2 

C5E7D7 

825 

IEXP 

DC 

C'EXP' 


015E5 

40E2D5E240E7E740 

826 

IEXSNS 

DC 

C' SNS XX EXP' 


015ED 

C5E7D7 






015F0 

40E2D5E240E7E740 

827 

IACSNS 

DC 

C' SNS XX ACT' 


015F8 

C1C3E3 






015FB 

40D3D6C740E7E740 

828 

IOLOG 

DC 

C' LOG XX XXXXXX X' 


01603 

E7E7E7 E7E7E740E7 






0160B 

E7E7E7E7E740E7E7 

829 


DC 

C'XXXXX XXXXXX' 


01613 

E7E7E7E7 






01617 

40E3E2E340E7E7E7 

830 

ITSTNO 

DC 

C* TST XXXX* 


0161F 

E7 
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01620 40E2E240F040D6D5 831 I0PT1 DC C' SS 0 ON FOR LOO' 

01628 40C6D6 D940D3D6D6 

01630 D740D6D540E7C9D6 832 DC C'P ON XIO» SS 1 O' 

01638 6B40E2 E240F140D6 

01640 D540C6D6D940E3C9 833 DC C'N FOR TIO SIO LO' 

01648 D640E2C9D640D3D6 

01650 D6D7 834 DC C*OP' 

01652 0000000000000000 835 ICSW1 DC XL8'0' 

0165A 0000000000000000 836 ICSW2 DC XL8'0' 

01662 000000000000 

01668 040015 F500000001 837 ISENSE CCW X•04• f I ACSNS+5 f X'00•,1 

01670 0011A6 838 IOADR DC AL3(ISSUE) 

01673 FE 839 MSK1 DC X'FE* 

01674 01 840 MSK2 DC X'Ol' 

01675 40E4C9D640E7E7E7 841 IUNEX DC C* UIO XXXXXX' 

0167D E7E7E7 

01680 0000000000000000 842 ISLAVE DC XL8'0' . REGISTER SAVE AREA 

01688 0600169800000084 843 DCKRD CCW X•06•,CKAR,X•00',132 

01690 00001690 844 CRDCSW DC A(CRDCSW) 

01694 OCOOOOOO 845 DC X'OCOOOOOO* 

01698 846 CKAR DS 132C 

0171C 847 DRAR DS 132C 

017A0 0200171C00000084 848 RDCCW CCW X * 02',DRAR,X'00•,132 

017A8 000017A8 849 WHOPS DC A(WHOPS) 

017AC OCOOOOOO 850 DC X'OCOOOOOO* 

851 I********************************************************************** 

852 * INITIALIZE ROUTINE 

853 ** 4 ^******************************************************************* 


017B0 

IB 

DO 





854 

INIT 

SR 

R13,R13 

ZERO REG 13 

017B2 

91 

40 

E 

196 



855 


TM 

406(R14),X'40« 

CHECK FOR FORCED PROBLEM STATE 

017B6 

47 

80 

F 

7BC 



856 


BC 

NONE,NITWIT 

BR. IF NOT 

017BA 

18 

OF 





857 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

017BC 

58 

CO 

F 

OEO 



858 

NITWIT 

L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY j 

017C0 

54 

CO 

F 

858 



859 


N 

R12,M0D50 

AND OUT UNUSED BITS 

017C4 

91 

80 

F 

0E4 



860 

BLOOP 

TM 

ISW,X* 80' 

CHECK FOR HANG UP f 

017C8 

47 

10 

F 

7 DE 



861 


BC 

ALL,HANGUP 

BR. IF DETECTED | 

017CC 

92 

40 

F 

85D 



862 


MVI 

PRAR,X *40 * 

MOVE BLANK TO PRINT AREA 

017D0 

D2 

00 

F 

810 

F 

003 

863 


MVC 

RTSAV(l),SECNO+3 

SAVE ROUTINE NUMBER 

017D6 

D2 

82 

F 

85E 

F 

85D 

864 


MVC 

PRAR-f 1(131) ,PRAR 

BLANK PRINT AREA 

017DC 

07 

F4 





865 


BCR 

UNC,R4 

RETURN VIA REG 4 

017DE 

D2 

00 

F 

003 

F 

810 

866 

HANGUP 

MVC 

SECN0+3(1),RTSAV 

MOVE RTN NO. THAT HANG WAS FOUND 

017E4 

94 

FE 

F 

0E5 



867 


N1 

ISW+1,X'FE• 


017E8 

96 

01 

F 

0E5 



868 


01 

ISW+1,X'01» 

j 

017EC 

98 

AB 

F 

680 



869 


LM 

RIO,Rll,ISLAVE 

RESTORE REGS 10 AND 11 

017F0 

OA 

DO 





870 


SVC 

X'DO' 

PRINT 

017F2 

64 






871 


DC 

X • 64 • 

-PREVIOUS HANGUP DETECTED- 

017F3 

1A 






872 


DC 

X * 1A * 


017F4 

F82C 





873 


DC 

AL2(HUNG-SECN0+REG) 


017F6 

OA 

DO 





874 


SVC 

X'DO' 


017F8 

A019 





875 


DC 

X•A019» 


017FA 

F811 





8J6 


DC 

AL2(CLUIN—SECNO+REG) 


017FC 

45 

50 

F 

2 CO 



877 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

01800 

92 

00 

F 

0E4 



878 


MVI 

ISW,X'00' 

RESET HANGUP SWITCH 

01804 

94 

7F 

F 

0E4 



879 


NI 

ISW,X•7F• 


01808 

92 

01 

F 

003 



880 


MVI 

SECNO+3,X'Ol* 

RESTORE TO ROUTINE 01 

0180C 

47 

FO 

F 

7C4 



881 


BC 

UNC,BLOOP 


01810 

00 






882 

RTSAV 

DC 

X'OO' 



01811 40E2C5C540C4C5E2 883 CLUIN DC C' SEE DESCRIPTION' 

01819 C3D9C9 D7E3C9D6D5 

01821 60C3D6 D4D4C5D5E3 884 DC C'-COMMENTS' 

01829 E2 

0182A 07 00 885 CNOP 0,4 

0182C 40D7D9C5E5C9D6E4 886 HUNG DC C' PREVIOUS HANG U' 

01834 E240C8CID5C740E4 

0183C D740C4C5E3C5C3E3 887 DC C'P DETECTED' 
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01844 

C5C4 







01846 

07 00 


888 


CNOP 

0,4 


01848 

0000000000000000 

889 

SAVIT 

DC 

XL12•O' 


01850 

00000000 







01854 

00000000 


890 

SAV10 

DC 

XL4'O' 


01858 

00003FFF 


891 

M0D50 

DC 

X•00003FFF * 


0185C 

40 


892 


DC 

X' 40 • 


0185D 



893 

PRAR 

DS 

132C 


018E1 

00 







018E2 

07 00 


894 


CNOP 

0,4 





895 

*********************************************************************** 




896 

♦ ROUTINE 01 

- ISSUE SKIP TO 1 IMMEDIATE, COMMAND CHAINED TO TWO SPACE 




897 

* 


1 IMMEDIATE COMMANDS 

. THE FIRST SPACE 1 SHOULD DETECT 




898 

* 


A 9 HOLE IN THE CARRIAGE TAPE. THIS SHOULD BRING UP 




899 

* 


UNIT CHECK AND BREAK 

THE CHAIN. TURN ON CHAIN DATA FLAG 




900 

* 


AND ISSUE CHAIN AGAIN. THE SKIP TO 1 WILL BE EXECUTED, 




901 

* 


BUT NO CHAINING WILL 

OCCUR. 




902 

* 


ISSUE SKIP IMMEDIATE 

TO CHANNEL 4 FOLLOWED BY TWO SPACE 




903 

♦ 


IMMEDIATE COMMANDS. 

A CHANNEL 12 SHOULD BE DETECTED ON 




904 

* . 


THE FIRST SPACE IMMEDIATE, BRING UP UNIT EXCEPTION, AND 




905 

* : 


BREAK COMMAND CHAINING. 




906 

*********************************************************************** 

018E4 

Q1 


907 

R0UT01 

DC 

X'Ol' 

ROUTINE NUMBER 

018E5 

000978 


908 


DC 

AL3(R0UT02-SECN0) 

ADDRESS OF NEXT ROUTINE 

018E8 

45 40 F 

7 BO 

909 


BAL 

R4,INIT 

BR. TO INITIALIZE 

018EC 

41 AO F 

928 

910 

G001 

LA 

R10,CHN3 

LOAD CCW ADDRESS 

O18F0 

92 40 F 

92C 

911 


MVl 

CHN3+4,X'40• 

SET UP COMMAND CHAIN 

018F4 

45 BO F 

10E 

912 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

018F8 

3800 


913 


DC 

X'3800' 

CONTROL SWITCHES 

018FA 

0010 


914 


DC 

X'0010' 

TEST NUMBER 

018FC 

F001 


915 


DC 

X'FOOl' 

EXP COND. CODE AND SENSE 

018FE 

F940 


916 


DC 

AL2 <BRKUC-SECNO+REG) EXP CSW ADDRESS 

01900 

92 CO F 

92C 

917 


MVI 

CHN3+4,X'C0* 

TUTlN ON DATA CHAIN 

01904 

45 BO F 

10E 

918 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01908 

3E00 


919 


DC 

X * 3E00* 

CONTROL SWITCHES 

0190A 

0020 


920 


DC 

X'0020 * 

TEST NUMBER 

0190C 

F100 


921 


DC 

X•F100' 

EXP COND. CODE AND SENSE 

0190E 

F948 


922 


DC 

AL2(N0CHN-SECN0+REG) 

EXP CSW ADDRESS 

01910 

41 AO F 

958 

923 


LA 

RIO,UNEX 

LOAD CCW ADDRESS 

01914 

45 BO F 

10E 

924 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01918 

3 AOO 


925 


DC 

X * 3A00 * 

CONTROL SWITCHES 

0191A 

0030 


926 


DC 

X•0030' 

TEST NUMBER 

0191C 

FOOO 


927 


DC 

X'FOOO* 

EXP COND. CODE AND SENSE 

0191E 

F970 


928 


DC 

AL2(EXCE-SECNO+REG) 

EXP CSW ADDRESS 

01920 

OA D6 


929 


SVC 

X *D6 • 

ROUTINE EXIT 

01922 

000000000000 






01928 

8B0018 5D40000001 

930 

CHN3 

CCW 

X'8B»,PRAR,X*40',1 


01930 

0B0018 5D40000001 

931 


CCW 

X'OB*,PRAR,X*40',1 


01938 

OBOO18 5D00000001 

932 


CCW 

X'OB',PRAR,X'00»,1 


01940 

00001938 


933 

BRKUC 

DC 

A(BRKUC-8) 


01944 

06000001 


934 


DC 

X'06000001' 


01948 

00000000 


935 

NOCHN 

DC 

XL4 *0 * 


0194C 

08000000 


936 


DC 

X•08000000 * 


01950 

00000000 


937 


DC 

XL4'O' 


01954 

04000000 


938 


DC 

X *04000000' 


01958 

A300185040000001 

939 

UNEX 

CCW 

X'A3',PRAR,X*40',1 


01960 

0B00185D40000001 

940 


CCW 

X'OB',PRAR,X'40',1 


01968 

OB00185D00000001 

941 


CCW 

X'OB',PRAR,X'00',1 


01970 

00001968 


942 

EXCE 

DC 

ACUNEX+16) 


01974 

05000001 


943 


DC 

X'05000001• 


01978 



944 


CNOP 

0,4 





945 

*********************************************************************** 




946 

* ROUTINE 02 

- DATA CHAIN A DIAGNOSTIC READ COMMAND, WITH THE COUNT 




947 

♦ 


EQUAL TO THE RECORD 

LENGTH. THE NEXT COMMAND IS INVALID 




948 

4 


TO THE CHANNEL. INCORRECT LENGTH RECORD AT CHANNEL END 
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949 

* 


TIME SHOULD BREAK 

THE CHAIN AND THE CCW WITH THE INVALID { 





950 

* 


COMMAND SHOULD NOT 

BE USED. A DIAGNOSTIC READ WITH A 





951 

* 


COUNT LESS THAN THE RECORD LENGTH IS NOW DATA CHAINED TO I 





952 

* 


COMPLETE TRANSFERING THE CORRECT RECORD LENGTH. THE 





953 

* 


SECOND CCW COMMAND 

FIELD IS INVALID TO THE CHANNEL. NO i 





954 

* 


CHANNEL PROGRAM CHECK SHOULD BE SET. 





955 

*********************************************************************** ; 

01978 

02 



956 

RQUT02 

DC 

X • 02 * 

ROUTINE NUMBER 

01979 

0009D8 



957 


DC 

AL3(R0UT03-SECN0) 

ADDRESS OF NEXT ROUTINE 1 

0197C 

45 40 

F 

7 BO 

958 


BAL 

R4,INIT 

BR. TO INITIALIZE j 

01980 

41 AO 

F 

9A8 

959 

G002 

LA 

RIO,RDCDA 

LOAD CCW ADDRESS 

01984 

45 BO 

F 

10E 

960 


BAL 

RlltlSIO 

BR. TO ISSUE SIO f 

01988 

3 AOO 



961 


DC 

X•3A00' 

CONTROL SWITCHES \ 

0198 A 

0040 



962 


DC 

X'0040' 

TESTNUMBER f 

0198C 

FOOO 



963 


DC 

X'FOOO' 

EXP COND. CODE AND SENSE 

0198E 

F9B8 



964 


DC 

AL2(WIERD-SECN0+REG) 

EXP CSW ADDRESS 

01990 

41 AO 

F 

9C0 

965 


LA 

RIO,TRU 

LOAD CCW ADDRESS 

01994 

45 BO 

F 

10E 

966 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01998 

3 AOO 



967 


DC 

X • 3A00' 

CONTROL SWITCHES 

0199A 

0050 



968 


DC 

X'0050' 

TESTNUMBER 

0199C 

FOOO 



969 


DC 

X'FOOO' 

EXP COND CODE AND SENSE 

0199E 

F9D0 



970 


DC 

AL 2(WORD-SECNO+REG) 

EXP CSW ADDRESS ! 

019A0 

OA D6 



971 


SVC 

X'D6' 

ROUTINE EXIT j 

019A2 

000000000000 






019A8 

0200185D80000084 

972 

RDCDA 

CCW 

X'02',PRAR,X'80»,132 

■ 

019B0 

0000185D00000001 

973 


CCW 

X'00*,PRAR,X'00•,1 

1 

019B8 

000019B8 


974 

WIERD 

DC 

A(WIERD) 

S 

019BC 

0C400001 


975 


DC 

X'0C400001' 

j 

019C0 

0200185D80000083 

976 

TRU 

CCW 

X'02',PRAR,X'80»,131 

1 

019C8 

0000185D00000001 

977 


CCW 

X'OO*,PRAR,X•00',1 


019D0 

000019D0 


978 

WORD 

oc 

A(WORD) 


019D4 

OCOOOOOO 


979 


DC 

X'OCOOOOOO* 

I 

019D8 




980 


CNOP 

0,4 






981 

*********************************************************************** ; 





982 

♦ ROUTINE 03 

- ISSUE A NOP, COMMAND CHAINED TO A UCS PRE-CONDITION LOAD [ 





983 

* 


—EB— COMMAND. EXPECT COND. CODE 0 ON THE START 1-0. [ 





984 

* 


UNIT CHECK SHOULD 

BREAK THE CHAIN DURING INITIAL j 

| 




985 

* 


SELECTION OF THE - 

EB- COMMAND. COMMAND REJECT SENSE BIT j 





986 

* 


SHOULD BE SET. ON 

NON-UCS PRINTERS, -EB- IS AN INVALID ! 

| 




987 

* 


COMMAND. ON UCS PRINTERS THE -EB- MUST BE THE FIRST 





988 

* 


COMMAND IN A CHAIN 

, OR COMMAND REJECT WILL BE SET. ; 





989 

*********************************************************************** 

019D8 

03 



990 

ROUT03 

DC 

X' 03' 

ROUTINE NUMBER 1 

019D9 

000A30 



991 


DC 

AL3(R0UT04-SECN0) 

ADDRESS OF NEXT ROUTINE 

019DC 

45 40 

F 

7 BO 

992 


BAL 

R4,INIT 

BR. TO INITIALIZE 

019E0 

41 AO 

F 

A18 

993 

G003 

LA 

R10,N0PEB 

LOAD CCW ADDRESS 1 

019E4 

92 EB 

F 

A20 

994 


MVI 

NOPEB+8 *X'EB * 

SET UP PRE-CONDITION LOAD 

019E8 

45 BO 

F 

10E 

995 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

019EC 

3800 



996 


DC 

X'3800* 

CONTROL SWITCHES 1 

019EE 

0060 



997 


DC 

X•0060' 

TESTNUMBER 

019F0 

F080 



998 


DC 

X•F080' 

EXP COND. CODE AND SENSE 

019F2 

FA28 



999 


DC 

AL2(ZOT-SECNO+REG) 

EXP CSW ADDRESS 

019F4 

92 73 

F 

A 20 

1000 


MVI 

NOPEB+8,X'73' 

SET UP BLOCK DATA CHECK 

019F8 

45 BO 

F 

10E 

1001 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

019FC 

3800 



1002 


DC 

X'3800* 

CONTROL SWITCHES 

019FE 

0070 



1003 


DC 

X•0070' 

TESTNUMBER 

01 AOO 

F080 



1004 


DC 

X'F080' 

EXP COND. CODE AND SENSE 

01A02 

FA28 



1005 


DC 

AL2(ZOT-SECNO+REG) 

EXP CSW ADDRESS 

01A04 

92 7B 

F 

A20 

1006 


MVI 

NOPEB+8,X'7B' 

SET UP ALLOW DATA CHECK 

01A08 

45 BO 

F 

10E 

1007 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01A0C 

3800 



1008 


DC 

X'3800* 

CONTROL SWITCHES 

01A0E 

0080 



1009 


DC 

X * 0080' 

TEST NUMBER 

01A10 

F080 



1010 


DC 

X'F080' 

EXP COND CODE AND SENSE 

01A12 

F A28 



1011 


DC 

AL2(ZOT-SECNO+REG) 

EXP CSW ADDRESS 

01A14 

OA D6 



1012 


SVC 

X'D6* 

ROUTINE EXIT 
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01AE9 

00000000000000 






01AF0 

0100185000000084 

1074 

PRCCW 

CCW 

X*01',PRAR,X*00«,132 


01AF8 

00001AF8 


1075 

PRCSW 

DC 

A(PRCSW) 


01 AFC 

08000000 


1076 


DC 

X *08000000' 


01800 

00000000 


1077 


DC 

XL4'0' 


01B04 

04000000 


1078 


DC 

X'04000000' 


01B08 



1079 


CNOP 

0,4 





1080 

*********************************************************************** 




1081 

* ROUTINE 05 

- THIS ROUTINE WILL RUN ON UCS PRINTERS ONLY. 




1082 

* 


COMMAND CHAIN A PRE 

-CONDITION LOAD -EB-, TO A BLOCK DATA 




1083 

* 


CHECK COMMAND, TO AN ALLOW DATA CHECK COMMAND. COND. 




1084 

* 


CODE 0 SHOULD BE SET ON THE SIO. THE ENTIRE CHAIN 




1085 

* 


SHOULD BE EXECUTED. 

THE PRE-COND. LOAD LATCH BEING ON 




1086 

* 


BLOCKS COMMAND REJECT OF THE DATA CHECK COMMANDS, EVEN 




1087 

* 


THOUGH THEY ARE NOT 

THE FIRST IN A CHAIN. 




1088 

* 


COMMAND CHAIN A PRE 

-CONDITION LOAD -EB-, TO A DIAG READ, 




1089 

* 


TO ALLOW OATA CHECK 

COMMAND. THE DIAG READ SHOULD RESET 




1090 

* 


THE PRE-CONDITION LOAD LATCH, AND COMMAND REJECT SHOULD 




1091 

* 


BREAK THE CHAIN ON 

THE ALLOW DATA CHECK COMMAND. 




1092 

*********************************************************************** 

01B08 

05 


1093 

R0UT05 

DC 

X • 05 • 

ROUTINE NUMBER 

01B09 

000B70 


1094 


DC 

AL3(R0UT06—SECNO) 

ADDRESS OF NEXT ROUTINE 

01B0C 

45 40 F 

7B0 

1095 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01B10 

41 AO F 

B50 

1096 

G005 

LA 

RIO,BIGC 

LOAD CCW ADDRESS 

01B14 

92 73 F 

B58 

1097 


MVI 

BIGC+8,X'73 * 

SET UP BLOCK DATA CHECK 

01B18 

58 10 F 

84C 

1098 


L 

R1,SAVIT+4 


01B1C 

91 10 F 

0 El 

1099 


TM 

UNITl + 1,X * 10* 

CHECK FOR UCS FEATURE 

01B20 

47 80 F 

B40 

1100 


BC 

N0NE,END05 

BR. IF NOT DEFINED 

01B24 

45 BO F 

10E 

1101 


BAL 

R11,1SIO 

BR. TO ISSUE SIO 

01B28 

3 AOO 


1102 


DC 

X'3A00 * 

CONTROL SWITCHES 

01B2A 

0120 


1103 


DC 

X *0120 * 

TEST NUMBER 

01B2C 

FOOO 


1104 


DC 

X * FOOO• 

EXP COND CODE AND SENSE 

01B2E 

FB68 


1105 


DC 

AL2(BIGW-SECNO+REG) 

EXP CSW ADDRESS 

01830 

92 02 F 

B58 

1106 


MVI 

BIGC+8*X*02* 

SET UP SENSE 

01B34 

45 BO F 

10E 

1107 


BAL 

Rll, ISIO 

BR. TO ISSUE SIO 

01B38 

3800 


1108 


DC 

X * 3800' 

CONTROL SWITCHES 

01B3A 

0130 


1109 


DC 

X'0130• 

TESTNUMBER 

01B3C 

F080 


1110 


DC 

X * F080' 

EXP COND CODE AND SENSE 

01B3E 

FB44 


1111 


DC 

AL2(BUST—SECNO+REG) 

EXP CSW ADDRESS 

01B40 

OA D6 


1112 

END05 

SVC 

X * D6 * 

ROUTINE EXIT 

01B42 

00 00 







01B44 

00001B68 


1113 

BUST 

DC 

A(BIGW) 


01B48 

02000001 


1114 


DC 

X * 02000001• 


01B4C 

00000000 







01B50 

EB00185D40000001 

1115 

BIGC 

CCW 

X * EB',PRAR,X*40*,1 


01B58 

730018 5D60000001 

1116 


CCW 

X*73',PRAR,X'60*,1 


01B60 

7B0018 5D00000001 

1117 


CCW 

X'7B *,PRAR,X•00',1 


01B68 

00001B68 


1118 

BI GW 

DC 

A(BIGW) 


01B6C 

0C000001 


1119 


DC 

X'OCOOOOOl* 


01B70 



1120 


CNOP 

0,4 





1121 

*********************************************************************** 




1122 

* ROUTINE 06 

- ISSUE A UCS LOAD WITH FOLDING COMMAND. COND. CODE 1 




1123 

* 


SHOULD BE SET ON THE SIO, WITH UNIT CHECK IN THE CSW, 




1124 

* 


AND COMMAND REJECT 

IN THE SENSE BYTE. THE -F3- COMMAND 




1125 

* 


IS INVALID ON NON-UCS PRINTERS, AND ON UCS PRINTERS, THE 




1126 

* 


PRE-CONDITION LOAD 

LATCH MUST BE SET FOR THE COMMAND TO 




1127 

* 


BE ACCEPTED. REPEAT FOR LOAD NO FOLD -FB-. 




1128 

*********************************************************************** 

01B70 

06 


1129 

ROUT06 

DC 

X * 06 • 

ROUTINE NUMBER 

01B71 

000BC8 


1130 


DC 

AL3(R0UT07—SECNO) 

ADDRESS OF NEXT ROUTINE 

01B74 

45 40 F 

7 BO 

1131 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01B78 

41 AO F 

7 AO 

1132 

GQQ6 

LA 

R10,RDCCW 

SET ADDR OF READ COMM IN REG 10 

01B7C 

45 BO F 

10E 

1133 


BAL 

Rll,ISIO 

BR. TO DO SIO 

01B80 

3800 


1134 


DC 

X'3800* 

CONTROL SWITCHES 

01B82 

0140 


1135 


DC 

X • 0140* 

TESTNUMBER 
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01B84 

FOOO 




1136 


DC 

X 'FOOO' 

EXP COND CODE - EXP SENSE 

01B86 

F7A8 




1137 


DC 

AL2<WHOPS-SECNO+REG) 

ADDRESS OF EXP CSW 

01B88 

92 F3 

F 

BCO 


1138 


M VI 

LDUCS, X•F3' 

INSURE UCS LOAD WITH FOLDING OP 

01B8C 

41 AO 

F 

BCO 


1139 


LA 

RIOtLDUCS 


01B90 

45 BO 

F 

10E 


1140 


BAL 

RlltlSIO 

GO DO SIO 

01B94 

3800 




1141 


DC 

X • 3800' 

CONTROL SWITCHES 

01B96 

0150 




1142 


DC 

X • 0150' 

TEST NUMBER 

01B98 

F180 




1143 


DC 

X'F180' 

COND. CODE 1 - COMM. REJ. EXPECTED 

01B9A 

FBB2 




1144 


DC 

AL2(FOLD-SECNO+REG) 

ADDRESS OF CSW 

01B9C 

92 FB 

F 

BCO 


1145 


MVI 

LDUCS*X'FB' 

INSURE UCS LOAD NO FOLDING 

OIBAO 

41 AO 

F 

BCO 


1146 


LA 

RIOtLDUCS 


01BA4 

45 BO 

F 

10E 


1147 


BAL 

RlltlSIO 

GO DO SIO 

01BA8 

3800 




1148 


DC 

X' 3800' 

CONTROL SWITCHES 

01BAA 

0160 




1149 


DC 

X * 0160 • 

TEST NUMBER 

01BAC 

F180 




1150 


DC 

X'F180' 

COND. CODE 1 - COM. REJ. EXPECTED 

01BAE 

FBB2 




1151 


DC 

AL2(F0LD-SECN0+REG) 

ADDRESS OF CSW 

01BB0 

OA D6 




1152 

END06 

SVC 

X • D6 • 

ROUTINE EXIT 

01BB2 

00000000 



1153 

FOLD 

DC 

XL4'0' 


01BB6 

02000000 



1154 


DC 

X*02000000' 


01BBA 

000000000000 







01BC0 

F300185D000000FQ 

1155 

LDUCS 

CCW 

X'F3',PRAR,X'00',240 


01BC8 





1156 


CNOP 

0,4 







1157 

*********4^***^******************************************************** 






1158 

* ROUTINE 07 

- ISSUE ALL COMMANDS 

TO THE 1403, THAT SHOULD RESULT IN 






1159 

♦ 


COMMAND REJECT. EXPECT COND. CODE 1 ON EACH SIO, WITH 






1160 

♦ 


UNIT CHECK IN THE 

CSW. EXPECT COMMAND REJECT IN THE 






1161 

♦ 


SENSE BYTE. AFTER 

EACH INVALID, ISSUE BLANK PRINT NO 






1162 

* 


SPACE, AND ANOTHER 

SENSE TO CHECK PROPER RESETING OF THE 






1163 

♦ 


SENSE INFORMATION. 







1164 

*********************************************************************** 

01BC8 

07 




1165 

ROUT07 

DC 

X' 07 * 

ROUTINE NUMBER 

01BC9 

OOFFFF 




1166 


DC 

X•OOFFFF * 

ADDRESS OF NEXT ROUTINE 

01BCC 

45 40 

F 

7 BO 


1167 


BAL 

R4,INIT 

BR. TO INITIALIZE 

OIBDO 

41 20 

0 

0 A3 


1168 

G007 

LA 

R2,163 

SET UP FOR 163 INVALIDS 

01BD4 

91 01 

F 

0E1 


1169 


TM 

UNIT1+1,X'01' 

CHECK FOR TWO CHANNEL SWITCH 

01BD8 

47 10 

F 

BEA 


1170 


BC 

ALL,ARG 

BR. IF DEFINED 

01BDC 

41 32 

F 

C40 


1171 


LA 

R3,ERTAB(R2) 

SET UP FOR 171 INVALIDS 

01BE0 

D2 07 

3 

000 

F CEE 

1172 


MVC 

0(8,R3),VC2CS 

, , 

01BE6 

41 22 

0 

008 


1173 


LA 

R2,8(R2) 

, , 

01BEA 

91 10 

F 

0 El 


1174 

ARG 

TM 

UN1T1+1,X*10' 

CHECK FOR UCS FEATURE 

01BEE 

47 10 

F 

COO 


1175 


BC 

ALL,LESS3 

BR. IF DEFINED 

01BF2 

41 32 

F 

C40 


1176 


LA 

R3,ERTAB(R2) 

SET UP FOR 174 INVALIDS 

01BF6 

D2 02 

3 

000 

F CF6 

1177 


MVC 

0(3,R3),VCUCS 

, , 

01BFC 

41 22 

0 

003 


1178 


LA 

R2*3(R2) 

» , 

01C00 

43 32 

F 

C3F 


1179 

LESS3 

IC 

R3,ERTAB—1IR2) 

PICK UP INVALID COMMAND 

01C04 

42 30 

F 

C30 


1180 


STC 

R3,CCWERR 

STORE IN CCW 

01C08 

41 AO 

F 

C30 


1181 


LA 

RIO,CCWERR 

LOAD CCW ADDRESS 

01C0C 

45 BO 

F 

10E 


1182 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01C10 

0800 




1183 


DC 

X'0800' 

CONTROL SWITCHES 

01C12 

0170 




1184 


DC 

X'0170* 

TEST NUMBER 

01C14 

F180 




1185 


DC 

X 'F180' 

EXP COND. CODE AND SENSE 

01C16 

FC38 




1186 


DC 

AL2(REJ-SECNO+REG) 

EXP CSW ADDRESS 

01C18 

41 AO 

F 

AFO 


1187 


LA 

R10,PRCCW 

LOAD PRINT CCW ADDRESS 

01C1C 

45 BO 

F 

10E 


1188 


BAL 

RlltlSIO 

BR. TO ISSUE SIO 

01C20 

3C00 




1189 


DC 

X•3C00' 

CONTROL SWITCHES 

01C22 

0180 




1190 


DC 

X'0180' 

TEST NUMBER 

01C24 

FOOO 




1191 


DC 

X'FOOO' 

EXP COND CODE AND SENSE 

01C26 

FAF8 




1192 


DC 

AL2 < PRCSW-SECNO+REG) 

EXP CSW ADDRESS 

01C28 

46 20 

F 

COO 


1193 


BCT 

R2,LESS3 

BR. UNTIL ALL INVALIDS CHECKED 

01C2C 

OA D6 




1194 


SVC 

X'D6' 

ROUTINE EXIT 

01C2E 

00 00 









01C30 

000018 500000000,1' 

1195 

CCWERR 

CCW 

X'OO',PRAR,X'00*,1 


01C38 

00000000 



1196 

REJ 

DC 

XL4'0* 


01C3C 

02000000 



1197 


DC 

X*02000000* 


01C40 





1198 


CNOP 

0,4 

DEFINE BOUNDRY 
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01C40 

07F3FBFFFE FDFCFA 

1199 

ERTAB 

DC 

X'07F3FBFFFEFDFCFA' I 

01C48 

F9F7F6F5F2F1EFEE 

1200 


DC 

X'F9F7F6F5F2F1EFEE* 1 

01C50 

EDECEAE9 E7 E6E4E2 

1201 


DC 

X•EDECEAE9E7E6E4E2' f 

01C58 

DFDEDCDAD7D6D2CF 

1202 


DC 

X'DFDEDCDAD7D6D2CF * f 

01C60 

CECCCAC7C6C4C2BF 

1203 


DC 

X'CECCCAC7C6C4C2BF * f 

01C68 

BEBCBAB7B6B2AFAE 

1204 


DC 

X'BEBCBAB7B6B2AFAE* I 

01C70 

ACAAA7 A4A29F9E9C 

1205 


DC 

X » ACAAA7A4A29F9E9C * 

01C78 

9A9796928F8E8C8A 

1206 


DC 

X'9A9796928F8E8C8A * f 

01C80 

878685848382817F 

1207 


DC 

X'878685848382817F' j 

01C88 

7E7D7C7C7A797776 

1208 


DC 

X•7E7D7C7C7A797776 * f 

01C90 

757272716F6E6D6C 

1209 


DC 

X'757272716F6E6D6C' J 

01C98 

6B6A696766656463 

1210 


DC 

X • 6B6A696766656463 * j 

01CA0 

62615F5E5D5C5B5A 

1211 


DC 

X'62615F5E5D5C5B5A' j 

01CA8 

595756555352514F 

1212 


DC 

X'595756555352514F« 

01CB0 

4E4D4C4B4A494746 

1213 


DC 

X'4E4D4C4B4A494746' 

01CB8 

45444342413F3E3D 

1214 


DC 

X • 45444342413F3E3D • 

01CC0 

3C3B3A3937363533 

1215 


DC 

X'3C3B3A3937363533' \ 

01CC8 

32312F2E2D2C2B2A 

1216 


DC 

X * 32312F2E2D2C2B2A' 

01CD0 

2927262524232221 

1217 


DC 

X • 2927262524232221 • 1 

G1CD8 

1F1E1C1A1716120F 

1218 


DC 

X'1F1E1C1A1716120F' j 

OICEO 

OEOCOA0000000000 

1219 


DC 

X • OEOCOAO000000000 • 

01CE8 

000000000000 

1220 


DC 

X'000000000000' [ 

01C EE 

1434547494B4D4F4 

1221 

VC2CS 

DC 

X • 1434547494B4D4F4 * j 

01CF6 

EB737B 

1222 

VCUCS 

DC 

X * EB737B' f 



1223 

*********************************************************************** 



1224 

♦ 

EQUATES * j 



1225 

*********************************************************************** 

00000 


1226 

NEVER 

EQU 

0 

00007 


1227 

NCCO 

EQU 

7 

OOOOF 


1228 

UNC 

EQU 

15 

00008 


1229 

NONE 

EQU 

8 

00004 


1230 

SOME 

EQU 

4 

00001 


1231 

ALL 

EQU 

1 

00005 


1232 

ANY 

EQU 

5 

00008 


1233 

CCO 

EQU 

8 

00004 


1234 

CC1 

EQU 

4 | 

00002 


1235 

CC2 

EQU 

2 i 

00001 


1236 

CC3 

EQU 

1 1 

00008 


1237 

EQ 

EQU 

8 . j 

00004 


1238 

LO 

EQU 

4 

00002 


1239 

HI 

EQU 

2 | 

00006 


1240 

UNEQ 

EQU 

6 

OOOOC 


1241 

EQLO 

EQU 

12 

OOOOA 


1242 

EQHI 

EQU 

10 

00080 


1243 

LOGOUT 

EQU 

X • 80 • 

00181 


1244 

SYSMOD 

EQU 

X * 181' 

OFOOO 


1245 

REG 

EQU 

X * FOOO' 

0005 A 


1246 

WHAT 

EQU 

90 

00000 


1247 

RO 

EQU 

0 

00001 


1248 

R1 

EQU 

1 1 

00002 


1249 

R2 

EQU 

2 

00003 


1250 

R3 

EQU 

3 

00004 


1251 

R4 

EQU 

4 

00005 


1252 

R5 

EQU 

5 

00006 


1253 

R6 

EQU 

6 

00007 


1254 

R7 

EQU 

7 

00008 


1255 

R8 

EQU 

8 

00009 


1256 

R9 

EQU 

9 I 

OOOOA 


1257 

RIO 

EQU 

10 

OOOOB 


1258 

R11 

EQU 

11 

OOOOC 


1259 

R12 

EQU 

12 

OOOOD 


1260 

R13 

EQU 

13 

OOOOE 


1261 

R14 

EQU 

14 

OOOOF 


1262 

R15 

EQU 

15 

00198 


1263 

WT 

EQU 

408 


DATE 15MAR66 15N0V66 120CT67 ID F831-5 

EC'S 125632 125655 131812 PAGE 10A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840106 
PAGE 11 

1403 PRINTER FUNCTION 2 


0005A 

1264 

WAHT 

EQU 

90 






00040 

1265 

HCSW 

EQU 

64 






00048 

1266 

HCAW 

EQU 

72 






00009 

1267 

NMIXED 

EQU 

9 

NOT MIXED 

0 



3 

00008 

1268 

Z 

EQU 

8 

ZERO 

0 




OOOOD 

1269 

NCC2 

EQU 

13 

NOT BUSY 

0 

1 


3 

00004 

1270 

NOTZRO 

EQU 

4 

NOT ZERO - AND 

- 


1 


OOOOC 

1271 

M1XN0N 

EQU 

12 

MIXED OR NONE 

0 

1 



OOOOB 

1272 

NCC1 

EQU 

11 

CSW NOT STORED 

0 


2 

3 


1273 

* 









1274 

♦ 

GENERAL EQUATES 







1275 

* 








00078 

1276 

HI ON 

EQU 

120 

HARDWARE I/O NEW 

PSW 

LOCATION 

001BC 

1277 

DM 10 

EQU 

444 

DMI0 TABLE 





001 AO 

1278 

DMSSW 

EQU 

416 







1279 


END 
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POST ASSEMBLY DATA 


RELOCATION DICTIONARY 

LOCATION LENGTH 

01015 3 

0107C 4 

01669 3 

01670 3 

01689 3 

01690 4 

017 A1 3 

017A8 4 

01929 3 

01931 3 

01939 3 

01940 4 

01959 3 

01961 3 

01969 3 

01970 4 

019A9 3 

019B1 3 

01988 4 

019C1 3 

019C9 3 

019D0 4 

01A19 3 

01A21 3 

01A28 4 

01AF1 3 

01AF8 4 

01B44 4 

01B51 3 

01B59 3 

01B61 3 

01B68 4 

01BC1 3 

01C31 3 
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1403 

PRINTER 
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1403 

PRINTER FUNCTION 2 













LABEL 

CROSS-REFERENCE 

BY STATEMENT 

NUMBERS 









ICCSW1 

6 

001338 

0632 

0631 



























ICCSW2 

6 

00135A 

0640 

0639 












LABEL 

LEN 

VALUE 

DEFN 

REFERENCES 










ICCW 

3 

0015C2 

0821 

0693 











1 
















ICHNGl 

6 

00146A 

0732 

0729 












ALL 

1 

000001 

1231 

0501 

0543 

0566 

0590 

0598 

0614 

0617 

0646 

0673 

0799 

0861 1051 

1170 ICHNG2 

6 

00149A 

0742 

0731 
















1175 











ICM 

2 

00100A 

0312 













ANY 

1 

000005 

1232 

0797 











ICNT 

1 

001427 

0710 

0580 

0694 

0724 










ARG 

4 

001BEA 

1174 

1170 











ICOUT 

2 

001410 

0702 

0582 

0697 

0733 

0738 

0743 

0748 







BIGC 

8 

001B50 

1115 

1096 

1097 

1106 









ICSW 

3 

0015BF 

0820 

0579 

0723 











BIGW 

4 

001B68 

1118 

1105 

1113 

1118 









ICSW1 

8 

001652 

0835 

0537 

0548 

0567 

0597 

0632 

0632 

0737 






BLABRR 

9 

001ADB 

1071 

1056 











ICSW2 

8 

00165A 

0836 

0585 

0601 

0640 

0640 

0747 








BLOOP 

4 

0017C4 

0860 

0881 











ICWOUT 

6 

0013F6 

0696 

0701 












BRKUC 

4 

001940 

0933 

0916 

0933 










IDID 

4 

0014A4 

0744 

0740 











j 

BUST 

4 

001B44 

1113 

1111 











IDIDI 

4 

001474 

0734 

0726 












CAW 

4 

001048 

0325 












IDOSNS 

4 

0012C0 

0603 

0594 

0598 

0877 









1 

CCWERR 

8 

001C30 

1195 

1180 

1181 










IDUNCK 

4 

001368 

0643 

0615 

0618 

0641 










CCO 

l 

000008 

1233 

0523 

0529 










I EXP 

3 

0015E2 

0825 

0727 

0741 











CC1 

1 

000004 

1234 

0530 

0610 










IEXPCC 

10 

001580 

0809 

0713 

0718 











CC2 

1 

000002 

1235 

0531 











IEXSNS 

11 

0015E5 

0826 

0749 

0754 

0755 

0759 









CC3 

1 

000001 

1236 












IEYEOH 

6 

00111E 

0492 

0482 

0487 



, 








CHN3 

8 

001928 

0930 

0910 

0911 

0917 









IFLAG1 

1 

001398 

0657 

0643 

0649 











CKAR 

1 

001698 

0846 

0843 

1039 










IFLAG2 

1 

00152C 

0788 

0644 

0650 











CLUIN 

16 

001811 

0883 

0876 











IHANG 

4 

00116C 

0513 

0518 












CRDCSW 

4 

001690 

0844 

0844 

1036 










IHI 

4 

001184 

0520 

0512 

0516 











CSW 

8 

001040 

0324 












IHI 0 

4 

0010E6 

0478 













DCKRD 

8 

001688 

0843 

1031 











I LEAVE 

4° 

001548 

0800 

0648 












DMI0 

1 

0001BC 

1277 












! ILINK 

16 

0015A3 

0815 

0662 

0665 

0666 

0670 

0794 








DMSSW 

1 

0001AO 

1278 












ILOKE 

4 

001300 

0619 

0610 












DRAR 

1 

00171C 

0847 

0848 











i I LOOP 

4 

00115C 

0509 

0481 

0484 

0489 










6ND04 

2 

001A8A 

1049 

1045 











; IMORST 

4 

00148C 

0739 

0735 












EN005 

2 

001B40 

1112 

1100 











| INDER 

4 

001364 

0642 

0608 

0614 

0617 

0623 

0625 

0629 

0633 

0637 





END06 

2 

001BB0 

1152 












INI T 

2 

0017B0 

0854 

0909 

0958 

0992 

1024 

1095 

1131 

1167 






EQ 

1 

000008 

1237 

0545 

0641 










IN0EX1 

4 

0012E8 

0613 

0627 












EQHI 

1 

OOOOOA 

1242 












IN0EX2 

4 

0012F4 

0616 

0635 












EQLO 

1 

OOOOOC 

1241 












INOW 

4 

0Q110C 

0541 

0501 

0533 

0535 

0539 









ERED 

4 

001A8C 

1050 

1041 











INPSW 

5 

001010 

0317 













ERTAB 

8 

001C40 

1199 

1171 

1176 

1179 









INT3 

4 

001280 

0587 

0569 












EXCE 

4 

001970 

0942 

0928 











IOADDR 

15 

001594 

0811 

0480 

0486 

0491 

0677 

0681 








EXNPSW 

5 

001058 

0327 












; IOADR 

3 

001670 

0838 

0676 












EXOPSW 

8 

001018 

0319 












IOCSW 

6 

001442 

0723 

0673 












FLAG1 

* 1 

00100E 

0315 












10L0G 

16 

0015FB 

0828 

0775 

0776 

0777 

0778 

0782 








FLAG2 

1 

00100F 

0316 












I ONE 

4 

0011C6 

0536 

0530 












FOLD 

4 

001BB2 

1153 

1144 

1151 










IONPSW 

4 

001078 

0332 












1 

G001 

4 

0018EC 

0910 












IOOPSW 

8 

001038 

0323 

0562 

0573 










| 

G002 

4 

001980 

0959 












IOPOUT 

2 

00152A 

0787 

0769 

0784 

1047 









i 

G003 

4 

0019E0 

0993 












I OPT 1 

16 

001620 

0831 

0479 

0485 

0490 

0790 








I 

G004 

4 

001A38 

1025 












IOUTIT 

6 

001388 

0651 

0646 












G005 

4 

001B10 

1096 












IPAS 

6 

0014BC 

0749 

0745 












G006 

4 

001B78 

1132 












IPASS 

4 

0014E6 

0768 

0584 

0751 











G007 

4 

001BD0 

1168 












IRETRN 

4 

001224 

0562 

0333 












GREG 

4 

00118C 

0522 

0524 











ISAVE 

8 

001560 

0807 

0494 

0804 











HANGUP 

6 

0017DE 

0866 

0861 











I SEN 

4 

001298 

0593 

0543 

0547 

0549 

0558 

0588 

0590 







HCAW 

1 

000048 

1266 

0495 

0606 

0795 









ISENSE 

8 

001668 

0837 

0605 












HCSW 

1 

000040 

1265 

0496 

0496 

0537 

0567 

0570 

0585 

0619 





ISIO 

4 

00110E 

0488 

0912 

0918 

0924 

0960 

0966 

0995 

1001 

1007 

1026 

1032 

1101 1107 

1133 

HI 

1 

000002 

1239 
















1140 

1147 

1182 

1188 









HI ON 

1 

000078 

1276 












ISLAVE 

8 

001680 

0842 

0493 

0714 

0869 










HUNG 

16 

00182C 

0886 

0873 











ISSUE 

4 

0011A6 

0528 

0478 

0483 

0488 

0682 

0838 








IACSNS 

11 

0015F0 

0827 

0622 

0762 

0763 

0767 

0837 







ISV2 

6 

001276 

0585 

0566 












I ACT 

3 

0015DF 

0824 

0581 

0736 

0746 









ISW 

2 

0010E4 

0473 

0525 

0525 

0526 

0538 

0541 

0550 

0553 

0557 

0564 

0565 

0568 0583 

0586 

IACTCC 

10 

00158A 

0810 

0527 

0532 

0534 

0536 

0540 

0544 

0546 

0624 

0722 







0589 

0591 

0595 

0599 

0613 

0616 

0621 

0628 

0636 

0642 

0645 0734 

0744 

IBLAH 

16 

0015C5 

0822 

0579 

0581 

0693 

0706 

0707 

0711 

0723 

0727 

0736 

0741 

0746 





0744 

0750 

0783 

0785 

0798 

0860 

0867 

0868 

0878 

0879 



IBLE 

4 

001200 

0550 

0545 











ITIC 

4 

0012E0 

0611 

0620 












IBSN 

6 

001316 

0624 

0596 

0600 

0602 

0612 








IT 10 

4 

0010FA 

0483 













ICAW 

12 

0015B3 

0819 

0684 

0687 

0688 

0692 








ITIOLP 

4 

0012D8 

0609 

0611 












ICCOUT 

6 

00142C 

0713 

0683 

0699 










ITRY1 

4 

001154 

0507 

0510 

0514 

0797 
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ITRY2 4 001164 0511 0508 

ITSTNO 9 001617 0830 0492 0651 0654 0655 0659 

ITWQ 4 0011BE 0534 0531 

IUIO 6 001246 0570 0563 

IUNEX 11 001675 0841 0574 0578 

IUP 4 001554 0803 0801 

IWAIT 4 001204 0551 0592 0786 

IZERO 4 0011D8 0540 0529 

JOHN 6 001198 0525 0503 0523 

LDUCS 8 001BC0 1155 1138 1139 1145 1146 

LESS3 4 001C00 1179 1175 1193 

LO 1 000004 1238 

LOGOUT 1 000080 1243 0499 0499 0770 

MCNPSW 8 001070 0331 

MCOPSW 8 001030 0322 

MITHEO 16 001ABC 1069 1060 

MI XNON 1 OOOOOC 1271 

M0D44 4 001144 0500 0498 

M0D50 4 001858 0891 0859 

MSK1 1 001673 0839 0554 

MSK2 1 001674 0840 0556 

NCCO 1 000007 1227 0514 0608 0620 

NCC1 1 OOOOOB 1272 

NCC2 1 OOOOOD 1269 

NEVER 1 000000 1226 

NIOU 1 00100D 0314 

NITWIT 4 0017BC 0858 0856 

NMIXED 1 000009 1267 


NOCHN 

4 

001948 

0935 

0922 













NOHDR 

4 

001AA4 

1061 

1051 













NONE 

1 

000008 

1229 

0503 

0508 

0512 

0516 

0549 

0588 

0594 

0596 

0600 

0602 

0627 

0629 

0635 





0637 

0648 

0699 

0726 

0735 

0740 

0745 

0751 

0784 

0801 

0856 

1041 

1045 





1045 

1100 












NOPEB 

8 

001A18 

1013 

0993 

0994 

1000 

1006 










NOTZRO 

1 

000004 

1270 














PGNPSW 

8 

001068 

0330 














PGOPSW 

8 

001028 

0321 














POS 

4 

001AE5 

1073 

1062 

1063 

1067 











PRAR 

1 

00185D 

0893 

0862 

0864 

0864 

0930 

0931 

0932 

0939 

0940 

0941 

0972 

0973 

0976 

0977 





1013 

1014 

1074 

1115 

1116 

1117 

1155 

1195 






PRCCW 

8 

001AF0 

1074 

1025 

1046 

1187 











PRCSW 

4 

001AF8 

1075 

1030 

1075 

1192 











RDCCW 

8 

0017AO 

0848 

1132 













RDCDA 

8 

0019A8 

0972 

0959 













REG 

1 

OOFOOO 

1245 

0578 

0659 

0670 

0681 

0692 

0711 

0718 

0722 

0759 

0767 

0782 

0790 

0794 





0873 

0876 

0916 

0922 

0928 

0964 

0970 

0999 

1005 

1011 

1030 

1036 

1056 





1056 

1060 

1067 

1105 

1111 

1137 

1144 

1151 

1186 

1192 




REJ 

4 

001C38 

1196 

1186 













R0UT01 

1 

0018E4 

0907 

0318 













R0UT02 

1 

001978 

0956 

0908 













ROUT03 

1 

0019D8 

0990 

0957 













R0UT04 

1 

001A30 

1022 

0991 













R0UT05 

1 

001B08 

1093 

1023 













R0UT06 

1 

001B70 

1129 

1094 













R0UT07 

1 

001BC8 

1165 

1130 













RTSAV 

1 

001810 

0882 

0863 

0866 












RO 

1 

000000 

1247 














R1 

1 

000001 

1248 

0520 

0521 

0524 

1098 










RIO 

1 

OOOOOA 

1257 

0493 

0495 

0684 

0695 

0696 

0698 

0700 

0700 

0714 

0795 

0869 

0910 

0923 





0959 

0965 

0993 

1025 

1031 

1046 

1096 

1132 

1139 

1146 

1181 

1187 


Rll 

1 

OOOOOB 

1258 

0492 

0493 

0500 

0542 

0587 

0593 

0622 

0624 

0626 

0630 

0634 

0651 

0661 





0662 

0671 

0671 

0672 

0713 

0725 

0728 

0739 

0749 

0800 

0802 

0802 

0803 





0803 

0803 

0805 

0869 

0912 

0918 

0924 

0960 

0966 

0995 

1001 

1007 

1026 





1026 

1032 

1047 

1101 

1107 

1133 

1140 

1147 

1182 

1188 




R12 

1 

OOOOOC 

1259 

0509 

0513 

0517 

0522 

0528 

0562 

0607 

0609 

0858 

0859 
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R13 

1 

OOOOOD 

1260 

0495 

0496 

0496 

0537 

0606 

0619 

0795 

0854 

0854 

0857 




R14 

1 

OOOOOE 

1261 

0497 

0551 

0603 

0768 

0855 









R15 

1 

OOOOOF 

1262 

0567 

0570 

0585 

0857 










R2 

1 

000002 

1249 

1168 

1171 

1173 

1173 

1176 

1178 

1178 

1179 

1193 





R3 

1 

000003 

1250 

1171 

1172 

1176 

1177 

1179 

1180 








R4 

1 

000004 

1251 

0865 

0909 

0958 

0992 

1024 

1095 

1131 

1167 






R5 

1 

000005 

1252 

0799 

0877 












R6 

1 

000006 

1253 














R7 

1 

000007 

1254 

1038 

1043 

1061 











R8 

1 

000008 

1255 

0494 

0605 

0606 

0630 

0631 

0638 

0638 

0639 

0660 

0661 

0728 

0729 

0730 





0730 

0731 

0804 

1039 

1040 

1042 








R9 

1 

000009 

1256 

0494 

0551 

0552 

0555 

0582 

0603 

0604 

0611 

0697 

0712 

0733 

0738 

0743 





0748 

0804 












SAVIT 

12 

001848 

0889 

1098 













SAVIO 

4 

001854 

0890 

0695 













SDMF 

1 

00100C 

0313 














SECNO 

4 

001000 

0309 

0573 

0574 

0578 

0654 

0655 

0659 

0665 

0666 

0670 

0676 

0677 

0681 

0687 





0688 

0692 

0704 

0705 

0711 

0718 

0722 

0754 

0755 

0759 

0762 

0763 

0767 





0767 

0773 

0774 

0782 

0790 

0794 

0863 

0866 

0873 

0876 

0880 

0908 

0916 





0916 

0922 

0928 

0957 

0964 

0970 

0991 

0999 

1005 

1011 

1023 

1030 

1036 





1036 

1192 

1056 

1060 

1067 

1094 

1105 

1111 

1130 

1137 

1144 

1151 

1186 

1192 

SKORCH 

1 

001AE4 

1072 

1037 

1044 

1050 

1052 










SNSW 

4 

001004 

0310 

0502 

0507 

0511 

0515 

0647 

0796 








SOME 

1 

000004 

1230 














SRET 

3 

00105D 

0328 














SVNPSW 

8 

001060 

0329 














SVOPSW 

8 

001020 

0320 














SYSMOD 

1 

000181 

1244 

0497 

0768 












TECT 

4 

001A64 

1040 

1043 













TIC 

4 

001A6C 

1042 

1068 













TRU 

8 

0019C0 

0976 

0965 













UNC 

1 

OOOOOF 

1228 

0482 

0487 

0510 

0518 

0533 

0535 

0539 

0558 

0569 

0584 

0592 

0612 

0615 





0712 

0786 

0805 

0865 

0881 

1068 








! UNEQ 

1 

000006 

1240 

0498 

0547 

0563 

0623 

0625 

0633 

0683 

0769 






! UNEX 

8 

001958 

0939 

0923 

0942 












! UNIT1 

1 

0010E0 

0335 

0858 

1099 

1169 

1174 











U1ADDR 2 0010E2 0337 

U10P 1 0010E1 0336 

VCUCS 3 001CF6 1222 1177 

VC2CS 8 001CEE 1221 1172 

WAHT 1 00005A 1264 

WHAT 1 00005A 1246 

WHOPS 4 0017A8 0849 0849 1137 

WIERD 4 0019B8 0974 0964 0974 

WORD 4 0019D0 0978 0970 0978 

WORK 1 001568 0808 0570 0696 0704 0705 0706 0707 0732 0732 0737 0742 0742 0747 0770 

0773 0774 0775 0776 0777 0778 1061 1062 

WT 1 000198 1263 0520 0551 0603 

XF8315 1 001000 0003 

Z 1 000008 1268 

ZOT 4 001A28 1015 0999 1005 1011 1015 


NO STATEMENTS FLAGGED IN THIS ASSEMBLY 


DATE 15MAR66 15N0V66 120CT67 ID F831-5 ! DATE 15MAR66 15N0V66 120CT67 ID F831-5 

EC«S 125632 125655 131812 PAGE 13 j EC*S 125632 125655 131812 PAGE 13A 
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1403 PRINTER FUNCTION 2 


1403 PRINTER FUNCTION 2 


OBJECT DECK LIST* PERIODS CORRESPOND TO BLANK COLUMNS. 


COLS. 1 

THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 

BESD. 

• AA. 

•AAXF83 

15..AAAA.AD9. 

.840 

107.131812..83150001 

9 

YQ 

Y9 

YYQY Y8 




99 

9 

9999 99 



BTXT.AAA. 

• A8. 

•AA81CA 

AAAAAAAAAACAADAAAAQU 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAA AA83150002 

9 YQY 

Y9 

Y9 9 Y 

YYYYYYYYY9-Y99YYYY9 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 

999 

9 

9 9 

999999999 9 9999 

99999999999999999999 

999999999999 

BTXT.AA8. 

• A8. 

•AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAADAAAAAAAAAA 

AAAAAAAAAAAA83150003 

9 YQ9 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYY9YYYYYYYYYY 

YYYYYYYYYYYY 

99 

9 

9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 

RTXT- AAR. 

. AA. 

.AAAAAA 

AAAAADAAAAKI1. . ...... 


..50004 

9 YQ- 

YQ 

Y9YYYY 

YYYY99YYYY99 



990 

99 

9 9999 

9999 9999 



BTXT.AAS. 

. A8« 

•AACAAA 

AABF10BH65BH5JBF1MG0 

10BE10BE1MBT65BT5JGO 

10BD10BD1MBS83150005 

9 YQ8 

Y9 

Y90YYY 

YY-Q 0- 9~ Y-Q 8Z 

8-Q 0-Q 8- 9- YZ 

8-Q 0-Q 8- 

99 

9 

9 9 9 

99 

9 

9 

BTXT.AJQ. 

• A8. 

•AA65BS 

5JKA6MABAL6AAI5-GNAH 

PG—•EAJAG-1DPCAAAA 

AAAAGA1DA80D83150006 

9 Y99 

Y9 

Y9 9- 

Y 9 8Q9QY YQO YYZ 

90 0 -QZOZ Z 8YYYY 

-YQYZQ Q— 9 

9 

9 

9 

90 9 

Z 99 9 

09 9 9 

BTXT.AJ&. 

• A8. 

•AAGA1H 

AA0DGA1MDA&AG01DA.0D 

6A1DEACAG61DA.0DGA1D 

DASAGO1UH0AH83150007 

9 Y9 

Y9 

Y9ZY - 

-Y 9ZY ZQY-YZ R- 9 

ZY OQY-YZ- R- 9ZY 0 

QY-YZ 8R89- 

9 

9 

9 

9 9 

9 9 0 

9 9 9 

BTXT.AJH. 

• A8. 

•AAHAAC 

EAGAGA1HFA1DPA0U0UFA 

0UBX5GDACAGA1QG.1FGJ 

1FB35GG01DB283150008 

9 Y90 

Y9 

Y90QY9 

QY-YZY -ZQ Y 9 -Y 

- YQY-YZY Z ZY 

Q- YZ Q- 

9 

9 

9 99 

9 9 9 

9 9 9 

0 9 

BTXT.AJG. 

• A8. 

•AA5GG0 

1DB15GKG6B-.F.0UG01D 

B05GD70UA.AAGA2HE05G 

GA2AE15GG-2H83150009 

9 Y9- 

Y9 

Y9 YZ 

Q- Y 9 RO - Z Q 

- Y-8 - QYZQ — Y 

ZY Y- YZ - 

9 

9 

9 

9 9 

09 9 

9 

BTXT.AJ8. 

• AS. 

•AAAH6F 

GA2HFA0UHFAHHAACFA0U 

AA6CFA2MAA6DD70UG02H 

AC02G-2FD70U83150010 

9 Y9 

Y9 

Y9-9 R 

ZY —Q RQ9-0QY9-Y 

YY RZQ 9YY R-8 Z - 

8- 8Z Z-8 

9 

9 

9 

9 9 

9 0 9 0 

9 

BTXT.AKA. 

• A8. 

•AAA.OU 

GA2FKG6B0.F.0UG02AKG 

5Q0.BEACA1F2B-MC6EKB 

5F5GBK4XKB5D83150011 

9 Y9Q 

Y9 

Y9- 

ZQR9R - Z Y 9 

Z 8QY9Y89880Z8 R 9 

Q-8 9 9 Q 

9 Z 

9 

9 

9 0 

999 99 9 9 0 

0 9 9 

BTXT.AKQ. 

. A8. 

•AA5GEA 

4AFB0UG04WKG6K0.FJOU 

AAAAGA2HAH0UGA2HFH0U 

G02DABAAGA2883150012 

9 Y9Z 

Y9 

Y9 QZQ 

Q-9 Z 9 8 -Y 

-QQYZY —9 ZQ —9 

Z 9-9QYZY - 

9 

9 

9 9 

9 9 

909 9 

09 

BTXT.AKJ. 

. A8. 

•AAA.OU 

GA30AB6FGA26AJ0UGA30 

AB60GA30HFAHHAADAA6Q 

6EAHDA6AGC3M83150013 

9 Y9Y 

Y9 

Y9- 

ZY 9-9 RZQ *—Y ZY 9 

-9 8ZY 9RQ9-0QY9ZY Z 

YYZQY-YZ- Z 

9 

9 

9 

9 9 

9 

9 9 9 0 

BTXT.AKQ. 

• A8. 

•AAEA6A 

G.3AFA2QG030A.0UGA3M 

603QAJ0UGA3MG03QED-D 

GG2SFD0UNA5583150014 

9 Y9 

Y9 

Y9QY-Y 

Z YZQ Z 9- ZQ Z 

Z Z-Y ZQ ZZ Z-80Z 

Z- 8-9 Y 

9 

9 

9 9 9 

9 9 

9 9 9 

0 9 


BTXT.ALA. 

. A8. 

•AAAEG- 

3MNA5GADG-3MAHAAGA2Y 

A.0UGA3MHCAF.A34NG6B 

6BG-3MADAAGA83150015 

9 Y9Q 

Y9 

Y9Q9Z 

Z Y YQ9Z Z-9QYZY 

ZY ZZYY9 Y 8 9 R 

RZ Z-9QYZY 

9 9 

9 

9 0 

9 0 09 

9 9 

09 

BTXT.ALH. 

. A8. 

•AA24AJ 

0UGA3MAHAH.A30NG6K6K 

GA3QFA0UBM3HBC5UAA0U 

GA3HAA0DGA5H83150016 

9 Y9Z 

Y9 

Y9 -Y 

ZY ZZ0Y9 Y 8 9 8 8 

ZY Z—9 -Z-8-9 

ZQ 0-9 9ZY Z 

9 

9 

9 9 

9 

9 

9 

BTXT.ALA. 

. A8 • 

•AABU3H 

BA5UKA6MABBEABFMFMB- 

MA6PAAADLH6A5QBEACER 

EQB-SA5LACAD83150017 

9 Y9Y 

Y9 

Y9-9 - 

-Y 8 9 8Q98QY9989880 

Z8 9ZYY98- Q 08QY990 

90808Q 0ZQY9 

9 

9 

9 

9 90 999 9 99 

9 9 90 0 999 

9 9 09 

BTXT.ALH. 

. A8. 

.AAAAAA 

GA4BBEACFCEIB-SG5DED 

10G—4UCJ5HBEACEIEHB- 

SC5CKB5F5BB083150018 

9 Y9- 

Y9 

Y9-YQY 

ZQ Z8QY99—9-8088 —Q 

OZ 8 Y -8QY99—9-80 

88-9 -9 

9 0 

9 

9 09 

9 999 099 

9 0999 0 09 

9 0 

BTXT.ALO. 

. A8. 

•AA4XCJ 

8DKG5QJAEA4AA&JDGA4U 

AKAHG036BEAHEQEQKG5B 

5QKG5L5SB-SK83150019 

9 Y9 

Y9 

Y9 9 Y 

R 9 ZYYZQ Q—Y9ZY 8 

ZYY9Z 8QY99Z9Z 9 Y 

Z 9 -8088 

9 

9 

9 

9 9 9 

9 999 9 

09 9 

BTXT.AMY. 

. A8. 

•AA5EG9 

KA5EADHJ6AB-SB5AB-SB 

5BKB5F5GBK4XAHAAGA4D 

KB5D5SHCAF.A83150020 

9 Y99 

Y9 

Y9 9 

Y 0Q9RY Y8088 Y8088 

Y 9 Q-8 9-9QYZY R 

9 Q ZYY9 Y 

9 

9 

9 

9 0 9 9 9 9 

0 9 09 0 

9 9 

BTXT.AM-. 

. A8. 

•AA4WAH 

AH.A4FKG5Q5QEA4AA.0U 

GA4DKB5D5GKG5Q6BEA4A 

ADAAGA4MKB5D83150021 

9 Y9 

Y9 

Y9 8Z0 

Y9 Y Q 9 Z ZZQ Q- 

ZY Y 9 Q Q 9 Z RZQ Q 

-9QYZY 0 9 Q 

9 

9 

9 

9 9 

9 9 9 

09 9 

BTXT.AMH. 

. A8. 

•AA5SKG 

5Q5QEA4AAJ0UGA4DKB5D 

5GKG5Q6KEA4AKA5KAEAD 

0UGA4WBEAAEK83150022 

9 Y9- 

Y9 

Y9 9 

Z ZZQ Q-Y ZY Q 9 Q 

Q 9 Z 8ZQ Q Y YQ9-9 

ZY 8QY99Y 

9 

9 

9 

9 9 0 9 

9 9 9 90 

999 9 j 

BTXT.AM-. 

. A8. 

•AAEKB- 

SC5VBEAAE5E5B-SC50EA 

JAG-5SKC5QAABEADEQEQ 

KA6A5QKE6C5683150023 

9 Y90 

Y9 

Y99Y80 

88 8QY99 9 8088 -Q 

ZOZ 8 8 ZYY8QY89Z9Z 

9 Y Z 9 9 - j 

9 

9 

9 99 

9 999 99 Z 

999 9999 

9 > 

BTXT* ANH. 

. A8. 

•AAKE6B 

5BK E6J52B-SM5CAB0UGA 

5SDE0UG02DB-C26JB-JA 

5L&NAHAC0DG&83150024 1 

9 Y99 

Y9 

Y9 9 8 

R 9 9 88088 Q-9 ZY 

8-Q Z 980-9 Y80Y9 

0 YYZ— 9Z | 

9 

9 

9 9 

0 9 9 Z 

9 Z 9 99 

9 1 

BTXT.AN.. 

.AY. 

•AA1DAA 

0VGNAHAAGA5DACABACAF 

HI5-GCGAAAAAAAAA.... 


9 Y9 

Y9 

Y9 R—9 

99-9QYZY RZQY9ZQY9 

-0 9Q9YYYYYYYYY 

1 

[ 

9 

9 

9 

09 09 09 

Z 999999999 

f 

BTXT.ANA. 

. AU. 

. AA . CC . 

•X.EXP.CC..X.ACT.ADR 

•XXXXXX.XIOA•••••••• 


9 Y9Y 

Y9 

Y9 


Y 

f 

9 

9 

9 


9 

1 

• ! 

BTXT.ANL. 

. AJ. 

•AA.ADR 

•XXXXXX.LINKA. 



9 Y90 

Y9 

Y9 

Y 


■ i 

j 

9 

9 

9 

9 


1 

BTXT.ANC. 

. A8. 

• AA.CAW 

. XXXXXX.CSWCCW.CSW.X 

XXXXXXX.XXXXXXXX.EXP 

ACTEXP.SNS.X83150028 

9 Y9- 

Y9 

Y9 




9 0 

9 

9 




BTXT.ANL. 

. A8 . 

.AAX.EX 

P.SNS.XX.ACT.LOG.XX. 

XXXXXX.XXXXXX.XXXXXX 

•TST.XXXX.SS83150029 

9 Y9Y 

Y9 

Y9 




9 9 

9 

9 




BTXT.AOT. 

. A8. 

o 

• 

o 

• 

< 

< 

• 

N.FOR.LOOP.ON.XIOT.S 

S.1.0N.FGR.T10.S10.L 

OOPAAAAAAAAA83150030 

9 Y99 

Y9 

Y9 

8 


YYYYYYYYY 

9 

9 

9 



999999999 


15MAR66 

15N0V66 

120CT67 

ID 

F831-5 DATE 

15MAR66 

15N0V66 

120CT67 

ID 

F831-5 

125632 

125655 

131812 

PAGE 

14 EC'S 

125632 

125655 

131812 

PAGE 

14A 




0 0 0 O 0 


0 0 0 O O O O 


O O O O O O 
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1403 PRINTER FUNCTION 2 


BTXT.AOL. 

• A8. 

•AAAAAA 

9 Y98 

Y9 

Y9YYYY 

9 

9 

9 9999 

BTXT.AOC. 

• AE. 

•AAAOAA 

9 Y9- 

Y9 

Y9Q8YY 

9 

9 

9 999 

BTXT.APJ. 

. A8. 

•AABAPM 

9 Y9Y 

Y9 

Y99Y98 

9 

9 

9 9 9 

BTXT.APQ. 

• A8. 

•AA808N 

9 Y9 

Y9 

Y9 8 8 

9 

9 

9 

BTXT.AQA. 

• A8. 

•AAA.SE 

9 Y9Q 

Y9 

Y9Y 

9 9 

9 

9 9 

BTXT.AQH. 

• AN. 

•AAAAAA 

9 Y9Z 

Y9 

Y9YYYY 

9 

9 

9 9999 

BTXT.AQJ. 

. A8. 

•AAAGAA 

9 Y9Z 

Y9 

Y9Y9Y9 

9 

9 

9 9 9 

BTXT.AJJ. 

• A8. 

•AAAAAO 

9 Y88 

Y9 

Y9YYQ 

999 

9 

9 99Z 

BTXT.AJA. 

• A8. 

•AAAAAO 

9 Y8R 

Y9 

Y9YYY9 

99 

9 

9 999 

BTXT.AJI. 

• AS. 

•AAAA.O 

9 Y80 

Y9 

Y9YY 

99 

9 

9 99 

BTXT.AJA. 

• A8. 

•AAAQNA 

9 Y8 

Y9 

Y9Y98Y 

99 

9 

9 9 

BTXT.AJ9. 

• A8. 

•AAA1F8 

9 Y8 

Y9 

Y9Q 89 

99 

9 

9 0 9 

BTXT.AK1. 

• A8. 

•AAACHE 

9 Y89 

Y9 

Y9Y89Z 

99 

9 

9 99 

BTXT.AK/. 

• A8. 

•AAABDF 

9 Y88 

Y9 

Y9YQYZ 

99 

9 

9 Z 

BTXT.AKJ. 

. A8. 

•AAPBOF 

9 Y80 

Y9 

Y98QQ8 

99 

9 

9 9Z0 

BTXT.AKR. 

• A8. 

•AAIN.T 

9 Y8 

Y9 

Y9 

99 

9 

9 


AAAAAAAAADAN5AAAAAJ0 
YYYYYYYYY9Y9 YYY9Y90 
999999999 9 999 9 

A. 

Y 

9 

AAADAAPQDAAALEA.JFGA 
YYY0YY908YYY8Q- Z-ZY 
999 99 999999 

G4KA0C8ADF0VFA0VHL6A 
9 Y 9 Q-Q -9 -Y Y 
9 9 Z 

E.DESCRIPTION-COMMEN 


AAAAAAAAAAAAAA7G.••• 

YYYYYYYYYYYYYY8Q 

999999999999999Z 

AAHE.7AAJ9YB.9UEA1F8 
Y8RZ QZY 9- 8ZQ 89 
990 0 909 

A9GB0AAAAAACAQN.AAAC 

Y -8 YYYYYYYY98 YY98 

9 09 999999 9 99 9 

AAALAQN.AAACAQN.AAAC 
YYY0Y98 YY98Y98 YY98 
999 9 99 99 99 9 

A9HAJ9CEA1F2AAG0A9—B 

Y -ZY -ZQ 88YY Y 08 

90 0 9999 9 9 

AACAAQNAAAAAAJ-DAAAC 
YY0YY98YYY9YY808YYY9 
99 99 999 999 9999 

AAC0ABYB3BJEA1F8AAA0 
YY- YQ9-8QYZQ 89YYY 
990 Z Z9 0 9 99 

•7AAJB0EA1F6AAA0AB8A 
QZYQ ZQ 88YYQ YQ Z 

0 Z 0 9999 9Z 

AB&FSBMAABUGABBAJBOE 
YQ-Z-QZ-9Q ZYQYZYQ Z 
ZO OZ Z z z 

S5Q3/BW5WF0BYB-JDBVG 
- Z 9Q 8- Q 80Y9Q Z 
0 Z Z 8 9 Z 

5T.0110A.XXXAAAAAAAA 
Y YYYYYYY9 

9 9999999 


FA.UIO.XXXXXXAAAAAAA 
Q9 YYYYYYY 
Z 9999999 


7DQGHS0SDG8HAA0UGA7F 
Q9QR- 8R- R-Y ZQ Q 

0 9 9 9 

B-MK8UB-JJ8JE62EBA0U 
80Z8 880Y8 9Z —Y 

9 9 99 9 9 

TSGA.PREVIOUS*HANG.U 
9Y 
9 


AAA0A9.B89UEAIF6AAJ1 
YYQ 9 — 8ZQ 88YYY 

999 9 0 99999 

AQN.AAACAQNAAAAAAJ8F 
Y98 YY98Y98YYY9YY899 
9 99 99 999 999 

AQNAAAAAAJQEAAABAAQE 
Y98YYY9YY8Z9YY99Y8 Z 
9 999 999 99 99 

QAAAAAABAQNAAADAAQNA 
YYYYYY9Y98YYY0YY98Y 
999999 9 99 99 9 

ABAE.7AAJBQBLBJEA1F8 
Y8QZ QZYQ9-YQYZQ 89 
99Z 0 Z 9Z9 0 9 

ABYBOAACAQN.AAALAQNA 
YQ98 YY9Y98 YY9YY98Y 
Z 9 99 9 99 99 9 

J6HEA1F2AAA0A6ABABUA 
Y OZQ 88Y9Y Y Q-YQ Z 
0 999 99 9Z 

A5SAAAAAAB0AABUGABMF 
Q 8YYYYYY8 -9Q ZQQO- 
0 99999999 Z 9Z 

OBU.PLC.NOT.SET.PRIN 

Q8 

Z 

AQNAAA0AAK8HAAAAAAAD 
Y98YYY0YY8 9YYYYYYY9 
9 999 999 9999999 


AFA0HAAADAA083150031 
Y9Y9-YYY0YY9 
9 9 999 99 

.83150032 


B.8NKA8A0CKB83150033 
- 8 Y Q 9 0 

9 9 

D70UBA0CG07D83150034 
-8 -9 9Z 


P.DETECTEDGA83150035 

9Y 

9 

.83150036 


A9HAJ9HEA1F283 1500 37 
Y ZZY RZQ 88 
9 0 99 

AAAAAAAHAAAA83 150038 
YY9YYYY9YYYY 
99 9999 9999 

•7AAJ9QEA1F283150039 
QZY OZQ 88 
0 0 99 

AAAAAJHD.AAB83150040 
YY9YY8-8 Y99 
99 99909 9 

AA-0ABYBCBJE83150041 
YY YQ9-RQYZ 
99 Z 0Z9 

AAAAAKYBAAAD83150042 
YY9YY899YY99 
99 999 99 

EADAA7LADAAG83150043 
-YOZY 8-9YYZ 
09 9 9 

ABUB-MABCB-M83150044 
9Q 80Z8QQ80Z 
Z 9 9Z99 

TING.BLANKS.83150045 


AAAEAC6E.7AA83150046 
YYY9Y8-Z QZ 
999 990 0 


OATE 15MAR66 15N0V66 120CT67 10 F831- 

EC•S 125632 125655 131812 PAGE 15 
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1403 PRINTER FUNCTION 3 


01000 

01000 


PROGRAM LENGTH = 4079 (DECIMAL) 

2 PRINT ON,GEN,DATA 

3 XF8325 START 4096 

4 USING *,15 


£***********♦********************************************************** 

* MODIFICATIONS 

* REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS FOLLOWS- 


* 1. THE PROGRAM HAS BEEN MODIFIED TO TEST THAT THE HEX CHARACTERS 

* 80 AND CO ARE CONSIDERED VALID UNPRINTABLE CHARACTERS WHEN 

* THE UCS PRINTER IS IN FOLDING MODE. 

* 2. INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH DM-44. 

* E.C. PREREQUISITES 

* MACHINE ... 2821 MUST BE AT E.C. 125673 

* PROGRAM . . . NONE 

* REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 

* 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

* 2. TEST THE ABILITY TO SET AND SUPPRESS INCORRECT LENGTH RECORD 

* ON A UCS BUFFER LOAD COMMAND. 

* 3. TEST THE ABILITY TO LOAD THE UCS BUFFER WITH BLANKS (40). 

* 4. TEST THE ABILITY TO LOAD THE UCS BUFFER WITH A SHORT COUNT 

* AND NOT AFFECT THE REST OF THE BUFFER. 

* 5. TEST THE ABILITY TO -FOLD- CHARACTERS FROM THE FIRST QUADRANT 

* TO THE FOURTH QUADRANT. 

* 6. INCLUDE TESTING PREVIOUSLY HANDLED BY PROGRAM ID F833 WHICH 

* IS NOW OBSOLETE. 

* E.C. PREREQUISITES 

* MACHINE ... 2821 MUST BE AT E.C. 125655 

* PROGRAM . . . NONE 

* USE DESCRIPTION F830* AT EC 125655, DATED NOV 15, 1966 OR LATER. 
*************************************************** #♦♦♦*♦************** 

* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

* 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

* LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

* PROGRAM ... NONE 

-*^* Jk *^* A ^***^ aaa^^aaaa************************************************ 


*********************************************************************** 

it********************************************************************** 

* TEST NUMBER DESCRIPTION 
*********************************************************************** 

* ROUTINE 01 


♦ 

* TEST 

* 

* 


DESCRIPTION 


- OPERATION ATTEMPTED 

ISSUE A PRE-CONDITION LOAD COMMAND, COMMAND CHAINED TO ALLOW 
DATA CHECK COMMAND AND FURTHER CHAINED TO A LOAD UCS BUFFER 
COMMAND WITHOUT FOLDING. THE BUFFER IS LOADED WITH BLANKS. 

EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END. 

COND. CODE 0 ON THE SIO (COMMAND ACCEPTED) 
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129 * 0070 - OPERATION ATTEMPTED 

130 * 

131 * ISSUE DIAGNOSTIC CHECK READ. 

132 * 

133 * EXPECTEO RESPONSE 

134 * 

135 * EXPECT CHANNEL END, DEVICE END, UNIT CHECK TOGETHER. 

136 * EQUIPMENT CHECK (PRINT CHECK) IN THE SENSE BYTE. 

137 * THIS TEST WILL FAIL IF TEST 0060 ABOVE FAILED. 

138 * 

139 ♦ 

140 * 0080 - OPERATION ATTEMPTED 

141 * 

142 * TEST 0070 ABOVE READS BACK 132 CHECK PLANE POSITIONS. 

143 * THIS TEST SCANS THE CHECK PLANE POSITIONS FOR NO PRINT CHECK 

144 * SET. 

145 * 

146 * ************************************************************ 

147 * NOTE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

148 * OUT SWITCH IS SET ON, OR IF TEST 0070 ABOVE DETECTS NO ERROR. 

149 * ************************************************************ 

150 * 

151 * EXPECTED RESPONSE 

152 * 

153 * EXPECT PRINT CHECK BIT ON IN EVERY CHECK PLANE POSITION. THIS 

154 * TEST SCANS ALL CHECK PLANE POSITIONS AND PRINTS OUT POSITIONS 

155 * WHICH DO NOT HAVE PRINT CHECK BIT SET ON. IF YOU LOOP AT THIS 

156 * TIME YOU WILL LOOP ON THE PRE-LOAD, WRITE COMMANDS. 

157 * 

158 * 

159 * ROUTINE 03 

160 * 

161 * 0090 - OPERATION ATTEMPTED 

162 * 

163 * LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS, FO THRU FF* 

164 * 

165 * EXPECTEO RESPONSE 

166 * 

167 * EXPECT CHANNEL END AND THEN DEVICE END. 

168 * 

169 * 

170 * 0100 - OPERATION ATTEMPTED 

171 * 

172 * ISSUE A PRINT COMMAND. 

173 * 

174 * EXPECTED RESPONSE 

175 * 

176 * PRINT AREA IS FILLED WITH CHARACTER -A- (Cl) WHICH DOES NOT 

177 * COMPARE TO WHAT IS IN THE UCS BUFFER. 

178 * EXPECT CHANNEL END THEN DEVICE END WITH UNIT CHECK. 

179 * DATA CHECK WILL BE IN THE SENSE BYTE. 

180 * CONTINUE ON FOR FURTHER INFORMATION. 

181 * 

182 * 

183 * 0110 - OPERATION ATTEMPTED 

184 * 

185 * ISSUE A DIAGNOSTIC CHECK READ. 

186 * 

187 * EXPECTED RESPONSE 

188 * 

189 * EXPECT CHANNEL END, DEVICE END UNIT CHECK TOGETHER. 

190 * EQUIPMENT CHECK IS IN THE SENSE BYTE. 

191 * THIS TEST WILL FAIL IF TEST 0100 FAILED. CONTINUE ON FOR MORE 

192 * INFORMATION. 

193 * 


194 * 

195 * 0120 

196 * 

197 * 

198 * 

199 * 

200 * 

201 * 

202 * 

203 * 

204 * 

205 * 

206 * 

207 * 

208 * 

209 * 

210 * 

211 * 

212 * 

213 * 

214 * 

215 * 

216 * 0130 

217 * 

218 * 

219 * 

220 * 

221 * 

222 * 

223 * 

224 * 

225 * 0140 

226 * 

227 * 

228 * 

229 * 

230 * 

231 * 

232 * 

233 * 

234 * 

235 * 0150 

236 * 

237 * 

238 * 

239 * 

240 * 

241 * 

242 * 

243 * 

244 * 

245 * 

246 * 

247 * 0160 

248 ♦ 

249 * 

250 * 

251 * 

252 * 

253 * 

254 * 

255 * 

256 * 

257 * 0170 

258 * 
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OPERATION ATTEMPTED \ 

TEST 0110 ABOVE READS BACK 132 CHECK PLANE POSITIONS. 

THIS TEST SCANS ALL 132 CHECK PLANE POSITIONS FOR PRINT LINE 
COMPLETE BIT TO BE SET OFF IN ALL POSITIONS. 

************************************************************ 

NOTE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 
OUT SWITCH IS SET ON, OR IF TEST 0110 ABOVE DETECTS NO ERROR. 
************************************************************ 

EXPECTED RESPONSE 

EXPECT PRINT LINE COMPLETE BIT TO BE SET OFF IN ALL 
POSITIONS. THIS TEST WILL PRINT OUT WHICH POSITIONS THE PRINT 
LINE COMPLETE BIT IS ON. 

IF YOU LOOP AT THIS TIME, YOU WILL LOOP ON THE WRITE COMMAND. 


ROUTINE 04 

OPERATION ATTEMPTED 

LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS FO THRU TO FF. 
EXPECTED RESPONSE 

EXPECT CHANNEL END AND THEN DEVICE END. 


OPERATION ATTEMPTED 

ISSUE A BLOCK DATA CHECK COMMAND. 

EXPECTED RESPONSE 

EXPECT CHANNEL END DEVICE END TOGETHER. BLOCK DATA CHECK 
LATCH SHOULD BE SET ON. 


OPERATION ATTEMPTED 
ISSUE A PRINT COMMAND. 

EXPECTED RESPONSE 

THE PRINT AREA IS FILLED WITH CHARACTER -A- WHICH DOES NOT 
COMPARE TO WHAT IS IN THE UCS BUFFER. EXPECT CHANNEL END AND 
THEN DEVICE END WITH N 0 DATA CHECK IN THE SENSE BYTE DUE TO 
THE BLOCK DATA CHECK LATCH BEING ON FROM TEST 0140 ABOVE. 


OPERATION ATTEMPTED 

ISSUE ALLOW DATA CHECK COMMAND. 

EXPECTED RESPONSE 

EXPECT CHANNEL END DEVICE END TOGETHER AND SETTING THE BLOCK 
DATA CHECK LATCH OFF. 


OPERATION ATTEMPTED 
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259 * ISSUE A PRINT COMMAND* 

260 * 

261 * EXPECTED RESPONSE 

262 * 

263 ♦ THE PRINT AREA IS FILLED WITH CHARACTER -A- WHICH DOES NOT 

264 * COMPARE TO WHAT IS IN THE UCS BUFFER. EXPECT CHANNEL END 

265 * THEN DEVICE END WITH UNIT CHECK. EXPECT DATA CHECK IN THE 

266 * SENSE BYTE DUE TO BLOCK DATA CHECK LATCH BEING SET OFF FROM 

267 * TEST 0160 ABOVE. 

268 * 

269 * 

270 * ROUTINE 05 

271 * 

272 * 0180 - OPERATION ATTEMPTED 

273 * 

274 * LOAD UCS BUFFER WITH 15 SETS OF 16 CHARACTERS FO THRU TO FF 

275 * 

276 * EXPECTEO RESPONSE 

277 ♦ 

278 * CHANNEL END AND THEN DEVICE END. 

279 * 

280 * 

281 * 0190 - OPERATION ATTEMPTED 

282 * 

283 * ISSUE A PRINT COMMAND. 

284 * 

285 * EXPECTED RESPONSE 

286 * 

287 * POSITIONS 2 THRU 132 OF THE PRINT AREA CONTAINS BLANKS. 

288 * POSITION 1 OF THE PRINT AREA CONTAINS A -1-. 

289 * EXPECT CHANNEL END AND THEN DEVICE END, AND PRINT ONE 

290 * CHARACTER. 

291 * 

292 * 

293 * 0200 - OPERATION ATTEMPTED 

294 * 

295 * PLACE A BLANK IN POSITION ONE OF BUFFER LOAD AREA. ISSUE A 

296 * LOAD UCS BUFFER WITH A COUNT OF 1. 

297 ♦ « 

298 * EXPECTED RESPONSE 

299 * 

300 * THIS SHOULD PLACE ONLY ONE BLANK IN THE UCS BUFFER AND NOT 

301 * ALTER THE REST OF THE BUFFER. 

302 * 

303 * 

304 * 0210 - OPERATION ATTEMPTED 

305 * 

306 ♦ ISSUE A PRINT COMMAND. 

307 * 

308 * EXPECTED RESPONSE 

309 * 

310 * PRINT AREA CONTAINS A -1- AND THE REST ARE BLANKS. 

311 * IF TEST 0200 ABOVE WAS PERFORMED CORRECTLY, THAT IS ONLY ONE 

312 ♦ POSITION OF THE BUFFER IS BLANK THEN A COMPARE SHOULD OCCUR 

313 * AND THE CHARACTER IS PRINTED. EXPECT CHANNEL END AND THEN 

314 * DEVICE END. 

315 * 

316 * 

317 * ROUTINE 06 

318 * 

319 * 0220 - OPERATION ATTEMPTED 

320 * 

321 * LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. 

322 * 

323 * 


324 * EXPECTED RESPONSE 

325 ♦ 

326 * CHANNEL END AND THEN DEVICE END. 

327 * 

328 * 

329 * 0230 - OPERATION ATTEMPTED 

330 * 

331 * ISSUE A PRINT COMMAND. 

332 * 

333 * EXPECTED RESPONSE 

334 * 

335 * THE PRINT AREA CONTAINS 48 CHARACTER SETS. EXPECT CHANNEL END 

336 * AND THEN DEVICE END. 

337 * CONTINUE ON FOR FURTHER INFORMATION. 

338 ♦ 

339 * 

340 * 0240 - OPERATION ATTEMPTED 

341 * 

342 * ISSUE A DIAGNOSTIC READ COMMAND. 

343 * 

344 * 

345 * EXPECTED RESPONSE 

346 * 

347 * EXPECT CHANNEL ENO DEVICE END TOGETHER. THIS TEST WILL FAIL 

348 * IF TEST 0230 ABOVE FAILED. 

349 * CONTINUE ON FOR FURTHER INFORMATION. 

350 * 

351 * 

352 * 0250 - OPERATION ATTEMPTED 

353 * 

354 * TEST 0240 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER. 

355 * THIS TEST WILL COMPARE WHAT IS IN THE PRINT AREA TO WHAT WAS 

356 * READ BACK FROM THE DATA BUFFER. 

357 * 

358 * ************************************************************ 

359 * NOTE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

360 * OUT SWITCH IS SET ON, OR IF TEST 0240 ABOVE DETECTS NO ERROR. 

361 * ************************************************************ 

362 * 

363 * EXPECTED RESPONSE 

364 * 

365 * PRINT AREA AND DATA BUFFER POSITIONS THAT DO NOT COMPARE 

366 * ARE PRINTED OUT. IF YOU LOOP AT THIS POINT, YOU WILL LOOP 

367 * ON THE PRINT COMMAND. 

368 * NOTE——DO NOT USE TO TROUBLE SHOOT PRINT CHECK PROBLEMS, 

369 * USE ONLY TO CHECK READ BACK OF THE DATA BUFFER. 

370 * 

371 * 

372 * 0260 - OPERATION ATTEMPTED ' 

373 * 

374 * . LOAD THE UCS BUFFER WITH FOLDING. UCS BUFFER IS FILLED WITH 

375 * 5 SETS OF 48 FOURTH QUADRANT’ CHARACTERS -Cl TO F0-. 

376 * 

377 * EXPECTED RESPONSE 

378 * 

379 * EXPECT CHANNEL END AND THEN DEVICE END. 

380 * 

381 * 

382 * 0270 - OPERATION ATTEMPTED 

383 ♦ 

384 * PRINT AREA IS FILLED WITH 48 FIRST QUADRANT CHARACTERS 

385 * -30 TO 01- REPEATED TO FILL THE 132 PRINT POSITIONS. 

386 * A PRINT COMMAND IS THEN ISSUED. 

387 * 

388 * EXPECTED RESPONSE 


v 
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389 * 

390 ♦ EXPECT CHANNEL END AND THEN DEVICE END. 

391 * NOT E— IF THIS TEST (FOLDING) FAILED, CHANNEL END AND THEN 

392 * DEVICE END WITH UNIT CHECK WILL OCCUR. DATA CHECK WILL BE IN 

393 * THE SENSE BYTE. 

394 * 

395 * POSSIBLE FAILURE CAUSES 

396 * 

397 * 1. THE FOLDING LATCH FAILED TO BE SET ON. 

398 * 2. FAILED TO FORCE A COMPARE ON THE ZERO AND ONE BITS OF 

399 * THE UCS AND PRINT BUFFER DATA. 

400 * 

401 * 

402 * ROUTINE 07 

403 * 

404 *********************************************************************** 

405 * NOTE—SECTION SENSE SWITCH 24 MUST BE ON TO INDICATE DUALING 

406 *********************************************************************** 

407 * 

408 * 0280 - OPERATION ATTEMPTED 

409 * 

410 * LOAD UCS BUFFER WITH 5 SETS OF 48 CHARACTERS. EACH SET 

411 * INCLUDES THE FOUR DUALABLE CHARACTERS. 

412 * 

413 * EXPECTED RESPONSE 

414 * 

415 * CHANNEL END AND THEN DEVICE END. 

416 ♦ 

417 * 

418 * 0290 - OPERATION ATTEMPTED 

419 * 

420 * PLACE ALREADY TRANSLATED DUALING CHARACTERS INTO PRINT AREA. 

421 * ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS. 

422 * 

423 * EXPECTED RESPONSE 

424 * 

425 * EXPECT CHANNEL END AND THEN DEVICE END. 

426 * 

427 * 

428 * 0300 - OPERATION ATTEMPTED 

429 * 

430 * PLACE UNTRANSLATED DUALING CHARACTERS IN THE PRINT AREA. 

431 * ISSUE A PRINT COMMAND TO PRINT THE FOUR DUALING CHARACTERS. 

432 * 

433 * EXPECTED RESPONSE 

434 * 

435 * EXPECT CHANNEL END AND THEN DEVICE END. IF AN ERROR OCCURS 

436 * ON THIS TEST, CONTINUE THROUGH THE NEXT 2 TESTS FOR FURTHER 

437 * ERROR INFORMATION. 

438 * 

439 * 

440 * 0310 - OPERATION ATTEMPTED 

441 * 

442 * ISSUE A DIAGNOSTIC READ COMMAND. 

443 ♦ 

444 * EXPECTED RESPONSE 

445 * 

446 * EXPECT CHANNEL END DEVICE END TOGETHER. IF AN ERROR OCCURRED 

447 * ON PREVIOUS TEST, THIS TEST WILL INDICATE AN ERROR ALSO. 

448 * CONTINUE ON TO NEXT TEST FOR FURTHER ERROR INFORMATION. 

449 * 

450 ♦ 

451 ♦ 0320 - OPERATION ATTEMPTED 

452 * 

453 ♦ TEST 0290 ABOVE READS BACK THE CONTENTS OF THE DATA BUFFER. 
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454 * THIS TEST COMPARES THE DUALING CHARACTERS AFTER TRANSLATION 

455 * BY THE DATA BUFFER TO WHAT THE DUALING CHARACTERS SHOULD BE 

456 * AFTER TRANSLATION. 

457 * 

458 * ************************************************************ 

459 * NOTE...THIS TEST DOES NOT PRINT OUT IF THE CORRECT PRINT 

460 * OUT SWITCH IS SET ON, OR IF TEST 0310 ABOVE DETECTS NO ERROR. 

461 * ************************************************************ 

462 * 

463 * EXPECTED RESPONSE 

464 * 

465 * ANY INCORRECT DUALING CHARACTER FOUND IN THE BUFFER WILL 

466 * RESULT IN A PRINT OUT OF THE FOUR DUALING CHARACTERS AS THEY 

467 * APPEAR IN THE DATA BUFFER AND A PRINTOUT OF WHAT THEY SHOULD 

468 * BE. IF YOU LOOP AT THIS TIME, YOU WILL LOOP ON THE PRINT 

469 * COMMAND. 

470 * 

471 * 

472 * ^ ROUTINE 08 

473 * 

474 * ^ 5 

475 * 0330 - OPERATION ATTEMPTED . 

476 * T 7 

477 * THE UCS BUFFER IS LOADED IN FOLDING MODE, WITH A 16 CHAR. SET. 

478 * 

479 * EXPECTED RESPONSE 

480 * 

481 * EXPECT COND. CODE 0 TO BE SET ON THE START 1-0. EXPECT A 

482 * CHANNEL AND .DEVICE END INTERRUPT. THE FOLDING LATCH SHOULD 

483 * BE SET ON. 

484 * 

485 * 

486 * 0340 - OPERATION ATTEMPTED 

487 * 

488 * A PRINT COMMAND IS ISSUED, AND INTERRUPTS ARE CLEARED. 

489 * 

490 * EXPECTED RESPONSE 

491 * 

492 * THE PRINT AREA CONTAINS HEX CHARACTERS -80-, AND -C0-. THE 

493 * UCS BUFFER DOES NOT CONTAIN ANY OF THESE CHARACTERS, BUT 

494 * BECAUSE OF FOLDING MODE, THE CHARACTERS ARE CONSIDERED VALID 

495 * UNPRINTABLE CHARACTERS, AND ARE TREATED AS BLANKS OR NULLS. 

496 * EXPECT COND. CODE 0 ON THE START 1-0. EXPECT 2 SEPARATE 

497 * INTERRUPTS - CHANNEL END, THEN DEVICE END. UNIT CHECK AND 

498 * DATA CHECK SHOULD NOT OCCUR. 

499 * 

500 ******************* ******************* 

501 * SECTION PREFACE *********************************** SECTION PREFACE * 

502 ******************* ******************* 


01000 

F8325000 

503 

SECNO 

DC 

XL4*F8325000* 



01004 

00000000 

504 

SNSW 

DC 

XL4 * 00* 

SECTION SENSE SWITCHES 

* 

01008 

0000 

505 


DC 

XL2 * 00* 


* 

0100A 

0000 

506 

ICM 

DC 

XL2 * 00* 

INTERRUPTION CONDITION MASK 

* 

0100C 

00 

507 

SDMF 

DC 

XL1'00• 

SECTION DM FLAGS 

* 

0100D 

01 

508 

NIOU 

DC 

XL 1 * 01 * 

NUMBER OF UNIT TABLE ENTRYS 

* 

0100E 

CO 

509 

FLAG1 

DC 

X»CO» 

EXCLUSIVE CPU 

* 

0100F 

00 

510 

FLAG2 

DC 

X»00» 

I/O INT ARE ERR, EXT INT TO PROG 

* 

01010 

0104000000 

511 

INPSW 

DC 

X•0104000000 * 

DISABLED, SPVSR STATE, NO PGM MASK 

* 

01015 

0018F8 

512 


DC 

AL3(R0UT01) 

ADR OF 1ST ROUTINE PREFIX 

* 

01018 

0000000000000000 

513 

EXOPSW 

DC 

XL8•0* 

SECTION OLD EXTERNAL PSW 

* 

01020 

0000000000000000 

514 

SVOPSW 

DC 

XL8 * 00* 

CLEAR ALL OLD PSWS 

* 

01028 

0000000000000000 

515 

PGOPSW 

DC 

XL8•00* 

PROGRAM OLD PSW 

* 

01030 

0000000000000000 

516 

MCOPSW 

DC 

XL8 *00* 

MACHINE CHECK OLD PSW 

* 

01038 

0000000000000000 

517 

IOOPSW 

DC 

XL8 * 00* 

I/O OLD PSW 

* 

01040 

0000000000000000 

518 

CSW 

DC 

XL8•00* 

CHANNEL STATUS WORD 

* 
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583 * THIS POSITION. 

584 * 

585 * OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 

586 ************************************* 4 * 4 ******************************* 

587 * PARAMETERS USED TO ENTER 

588 * THE 1-0 HANDLER ROUTINE 

589 *********************************************************************** 


590 

* 

BAL 

R1!,ISI0 

LINK TO 

1-0 HANDLER 

591 

* 

DC 

XL2 * 0000• 

CONTROL 

SWITCHES 

592 

* 

DC 

X•0014• 

TEST NO. 

IN DEC EXPRESSED IN HEX 

593 

* 

DC 

X * FO • 

EXPECTED 

COND. CODE 

594 

* 

DC 

X'OO' 

EXPECTED 

SENSE DATA 

595 

* 

DC 

AL2(ADR—BASE+REG) 

ADDR. OF 

EXPECTED CSW IF NEEDED 


596 *********************************************************************** 

597 *********************************************************************** 

598 * & 1-0 HANDLER CONTROL SWITCHES 

599 * 2 BYTE PARAMETER FOLLOWING BAL 

600 *********************************************************************** 

601 * SWITCH DESCRIPTION 

602 * 0 - OFF - ISSUE AN 1-0 COMMAND 

603 * ON - DO NOT ISSUE AN 1-0 COMMAND 

604 * I —— OFF - ENABLE 

605 * ON - DO NOT ENABLE 

606 * 2 —— OFF - EXPECT NO INTERRUPT 

607 * ON - EXPECT AN INTERRUPT 

608 * 3 - OFF - DO NOT EXPECT 2 INTERRUPTS 

609 * ON - EXPECT 2 INTERRUPTS 

610 * 4 - OFF - EXPECT NO CSWS 

611 * ON - EXPECT A CSW 

612 * 5 -— OFF - DO NOT EXPECT 2 CSWS 

613 * ON - EXPECT 2 CSWS 

614 * 6 - OFF - ALWAYS TRY TO ISSUE SENSE 

615 * ON - SENSE ON UNIT CHECK ONLY 

616 *********************************************************************** 

617 *********************************************************************** 

618 * SWITCHES USED BY 1-0 HANDLER 

619 *********************************************************************** 

620 * SWITCH DESCRIPTION 

621 * 0 —- OFF - NO HANGUP ON INTERFACE 

622 * ON - HANGUP OCCURRED 

623 * 1 - OFF - NO CSWS STORED 

624 * ON - ONE CSW STORED 

625 * 2 - OFF - SECOND CSW NOT RECIEVED 

626 * ON - SECOND CSW RECIEVED 

627 * 3 - OFF - DID NOT ENABLE 

628 * ON - ENABLED ONCE 

629 * 4 - OFF - DID NOT ENABLE TWICE 

630 * ON - ENABLED TWICE 

631 * 5 - OFF - NO SENSE DATA RECIEVED 

632 * ON - SENSE DATA RECIEVED 

633 * 6 -- OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

634 * ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

6 35 * 7 - OFF - NO ERROR DETECTED 

636 * ON - AN ERROR WAS DETECTED 

637 *********************************************************************** 

638 * REGISTERS USED IN 1-0 HANDLER 

639 *********************************************************************** 

640 * REG COMMENTS 

641 * 5 USED AS LINK TO ERROR OUTPUT FROM INITIALIZE ROUTINE IF 

642 * PREVIOUS HANGUP ON INTERFACE DETECTED. 

643 * 

644 * 8 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

645 * 

646 * 9 USED AS WORK REGISTER. WILL BE RESTORED UPON RETURN. 

647 * 
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648 

* 

10 

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

011B8 

88 

90 

0 

003 



713 


SRL 

R9,3 

ADJUST 








649 

* 




011BC 

96 

80 

F 

0E4 



714 


01 

ISW,X'80* 

TURN ON HANG UP SW 








650 

* 

11 

MUST BE USED AS LINK 

REG TO THIS ROUTINE 

011C0 

80 

00 

F 

5F3 



715 


SSM 

MSK1 

ENABLE 








651 

* 




011C4 

46 

90 

F 

1C4 



716 


BCT 

R9, * 

WAIT 








652 

* 

12 

MUST CONTAIN DEVICE ADDRESS 

011C8 

80 

00 

F 

5F4 



717 


SSM 

MSK2 

DISABLE 








653 

♦ 




once 

94 

7F 

F 

0E4 



718 


NI 

ISW,X * 7F' 

TURN OFF HANG SW 








654 

*****************************************************************4***** 

01 IDO 

47 

FO 

F 

210 



719 


BC 

UNC,ISEN 

BR. UNCONDITIONAL 

010E4 

0000 





655 

ISW 

DC 

XL2 * 0• 









720 

*********************************************************************** 








656 

*********************************************************************** 








721 

♦ 


ALL 1-0 

INTERRUPTS RETURN HERE 








657 

4 


* 1-0 HANDLER SUB-ROUTINE * 








722 

*********************************************************************** 








658 

*********************************************************************** 

011D4 

94 

7F 

F 

0E4 



723 

IRETRN 

NI 

ISW,X•7F' 

RESET HANG UP SW 

010E6 

D2 

01 

F 

59C 

B 

002 

659 

ISIO 

M VC 

ITSTNQ+5!2),2<RU) 

SAVE TEST NUMBER 

011D8 

91 

40 

F 

0E4 



724 


TM 

ISW,X•40• 


010EC 

90 

AB 

F 

4F8 



660 


STM 

R10*R11*ISLAVE 

SAVE REG 10 AND REG 11 

011 DC 

47 

10 

F 

1 EE 



725 


BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STORED 

010F0 

90 

89 

F 

4F0 



661 


STM 

R8,R9 yI SAVE 

SAVE REGS 8 AND 9 

011E0 

D2 

07 

F 

5D2 

F 

040 

726 


MVC 

ICSW1(8),HC$W(R15) 

SAVE CSW 1 

010F4 

50 

AO 

0 

048 



662 


ST 

R10,HCAW!R13) 

STORE COMMAND ADDRESS 

011E6 

96 

40 

F 

0E4 



727 


01 

ISW,X'40' 

INDICATE 1 CSW STORED 

O1OF0 

D7 

07 

0 

040 

D 

o 

* 

o 

663 


XC 

HCSW(8,R13),HCSW!R13) 


011E A 

47 

FO 

F 

1F8 



728 


BC 

UNC,INT3 

BR. UNCONDITIONAL 

010FE 

95 

30 

E 

181 



664 


CLI 

SYSM0DCR14),X'30' 

CHECK FOR MODEL 30 

011EE 

D2 

07 

F 

5 DA 

F 

040 

729 

ISV2 

MVC 

ICSW2C8),HCSW(R15) 

SAVE CSW 2 

01102 

47 

60 

F 

IOC 



665 


BC 

UNEO» M0D44 

BR. IF NOT 

011F4 

96 

20 

F 

0E4 



730 


01 

* ISW,X'20 * 

INDICATE 2 CSWS STORED 

01106 

D7 

OB 

0 

080 

0 

080 

666 


XC 

L0G0UTC12),LOGOUT 

CLEAR MOD 30 LOGOUT AREA 

011F8 

91 

10 

B 

000 



731 

INT3 

TM 

0(R11),X'10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

0110C 

91 

80 

8 

000 



667 

M0D44 

TM 

0(R11)* X *80 * 

CHECK CONTROL SWITCH FOR NO 1-0 

011FC 

47 

80 

F 

210 



732 


BC 

NONE,ISEN 

BR. IF NOT 

OHIO 

47 

10 

F 

1A4 



668 


BC 

ALL,INOW 

BR. IF ON 

01200 

91 

08 

F 

0L4 



733 


TM 

ISW,X•08' 


01114 

91 

CO 

F 

004 



669 


TM 

SNSW,X'CO• 


01204 

47 

10 

F 

210 



734 


BC 

ALL,ISEN 

BR. IF ALREADY ENABLED TWICE 

01110 

47 

80 

F 

160 



670 


BC 

NONE,JOHN 


! 01208 

96 

08 

F 

0E4 



735 


01 

ISW,X'08• 

INDICATE ENABLED TWICE 








671 

*********************************************************************** 

! 0120C 

47 

FO 

F 

1B4 



736 


BC 

UNC,IWAIT 









672 

* 


SENSE SWITCH LOOPS 

01210 

91 

02 

B 

000 



737 

ISEN 

TM 

0(R11),X'02» 

CHECK CONTROL SWITCH FOR SNS ON UC 








673 

*********************************************************************** 

01214 

47 

80 

F 

238 



738 


BC 

NONE,IDOSNS 

BR. IF OFF TO ISSUE SENSE 

0111C 

91 

80 

F 

004 



674 

ITRY1 

TM 

SNSW,X'80• 

CHECK SECTION SENSE SWITCH 0 

01218 

91 

40 

F 

0E4 



739 


TM 

ISW,X'40* 


01120 

47 

80 

F 

12C 



675 


BC 

NONE,ITRY2 

BR. IF OFF 

0121C 

47 

80 

F 

28E 



740 


BC 

NONE,IBSN 

BR. IF NO CSW STORED TO BYPASS SENSE 

01124 

9C 

00 

C 

000 



676 

ILOOP 

SIO 

0CR12) 

SIO, TIO, OR HI0 

! 01220 

91 

02 

F 

5D6 



741 


TM 

ICSW1+4,X »02' 

CHECK FOR UNIT CHECK 

01128 

47 

FO 

F 

11C 



677 


BC 

UNCtITRYl 

BR. UNCONDITIONAL 

01224 

47 

10 

F 

238 



742 


BC 

ALL,IDOSNS 

IF YES BR. TO ISSUE SENSE 

G112C 

91 

40 

F 

004 



678 

ITRY2 

TM 

SNSW,X *40 * 

CHECK SECTION SENSE SWITCH 1 

01228 

91 

20 

F 

0E4 



743 


TM 

ISW,X'20» 

CHECK FOR SECOND CSW 

01130 

47 

80 

F 

14C 



679 


BC 

NONE,IHI 

BR. IF OFF 

0122C 

47 

80 

F 

28E 



744 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

01134 

9D 

00 

C 

000 



680 

I HANG 

TIO 

0 ( R12 ) 

TEST 1-0 

01230 

91 

02 

F 

5DE 



745 


TM 

ICSW2+4,X'02' 

CHECK FOR UNIT CHECK 

01138 

47 

70 

F 

lie 



681 


BC 

NCCO,ITRY1 

BR. IF NOT COND. CODE 0 

: 01234 

47 

80 

F 

28E 



746 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

0113C 

91 

40 

F 

004 



682 


TM 

SNSW,X'40* 

CHECK SECTION SENSE SWITCH 1 

01234 

47 

80 

F 

28E 



746 


BC 

NONE,IBSN 

BR. IF NOT TO BYPASS SENSE 

01140 

47 

80 

F 

14C 



683 


BC 

NONE,IHI 

BR. IF OFF 

01238 

58 

9E 

0 

198 



747 

IDOSNS 

L 

R9,WT!R14) 

LOAD DM WAIT FACTOR 

01144 

9C 

00 

C 

000 



684 


SIO 

0 (R12 ) 

START 1-0 

0123C 

88 

90 

0 

004 



748 


SRL 

R9,4 

ADJUST 

01148 

47 

FO 

F 

134 



685 


BC 

UNC,IHANG 

BR. UNCONDITIONAL 

01240 

41 

80 

F 

5E8 



749 


LA 

R8,I SENSE 

LOAD SENSE COMMAND ADDRESS 








686 

* ■ 




01244 

50 

8D 

0 

048 



750 


ST 

R8,HCAW(R13) 

STORE IN CAW 

0114C 

58 

IE 

0 

198 



687 

IHI 

L 

R1 * WT(14) 


01248 

9C 

00 

C 

000 



751 


SIO 

0(R12) 

ISSUE SENSE 

01150 

88 

10 

0 

003 



688 


SRL 

R1,3 


0124C 

47 

70 

F 

2 DC 



752 


BC 

NCCO,INDER 

BR. IF NOT ACCEPTED 

01154 

90 

00 

c 

000 



689 

GREG 

TIO 

0(R12) 


01250 

9D 

00 

C 

000 



753 

ITIOLP 

TIO 

0(R12) 

TEST 1-0 

01158 

47 

80 

F 

160 



690 


BC 

CCO,JOHN 


01254 

47 

40 

F 

278 



754 


BC 

CC1,ILOKE 

BR. IF CSW STORED 

0115C 

46 

10 

F 

154 



691 


BCT 

R1,GREG 


01258 

46 

90 

F 

250 



755 

ITIC 

BCT 

R9,ITIOLP 


01160 

D7 

01 

F 

0E4 

F 

0E4 

692 

JOHN 

XC 

ISW(2),ISW 


0125C 

47 

FO 

F 

28E 



756 


BC 

UNC,IBSN 

BR. UNCONDITIONAL 

01166 

96 

80 

F 

0E4 



693 


01 

ISW,X'80* 


j 01260 

91 

40 

F 

0E4 



757 

IN0EX1 

TM 

ISW,X'40' 


0116A 

92 

67 

F 

50F 



694 


MVI 

IACTCC+5,C * X• 

MOVE IN A -X- 

01264 

47 

10 

F 

2 DC 



758 


BC 

ALL,INDER 

BR. IF CSW STORED 

0116E 

9C 

00 

C 

000 



695 

ISSUE 

SIO 

0(R12 ) 

1-0 COMMAND- SIO, TIO, OR HIO 

01268 

47 

FO 

F 

2E0 



759 


BC 

UNC♦IDUNCK 

BR. UNCONDITIONAL 

01172 

47 

80 

F 

1 AO 



696 


BC 

CCO,IZERO 

BR. IF COND. CODE 0 

0126C 

91 

20 

F 

0E4 



760 

IN0EX2 

TM 

ISW,X *20' 


01176 

47 

40 

F 

18E 



697 


BC 

CC1,IONE 

BR. IF COND. CODE 1 

01270 

47 

10 

F 

2 DC 



761 


BC 

ALL,INDER 

BR. IF CSW 2 STORED 

0117A 

47 

20 

F 

186 



698 


BC 

CC2,1 TWO 

BR. IF COND. CODE 2 

01274 

47 

FO 

F 

2E0 



762 


BC 

UNC,IDUNCK 

BR. UNCONDITIONAL 

0117E 

92 

F3 

F 

50F 



699 


MVI 

IACTCC+5*X'F3' 

INDICATE COND. CODE 3 

01278 

95 

OC 

D 

044 



763 

ILOKE 

CLI 

HCSW+4IR13),X'OC' 

CHECK FOR CE DE ONLY 

01182 

47 

FO 

F 

1A4 



700 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

0127C 

47 

70 

F 

258 



764 


BC 

NCCO,ITIC 

BR. IF NOT 

01186 

92 

F 2 

F 

50F 



701 

ITWO 

MVI 

IACTCC+5,X*F2 # 

INDICATE COND. CODE 2 

01280 

96 

04 

F 

0E4 



765 


01 . 

ISW,X*04' 

INDICATE SENSE DATA RECIEVED 

0118A 

47 

FO 

F 

1A4 



702 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

01284 

D5 

00 

F 

575 

B 

005 

766 


CLC 

IACSNS+5C1) ,51Rll) 

COMPARE FOR EXPECTED SENSE 

0118E 

92 

Fi 

F 

50F 



703 

IONE 

MVI 

I ACTCC+5,X'Fl• 

INDICATE COND. CODE 1 

0128A 

47 

60 

F 

2 DC 



767 


BC 

UNEO,INDER 

BR. IF UNEQUAL 

01192 

D2 

07 

F 

5D2 

D 

040 

704 


MVC 

ICSW1(8),HCSW(R13) 

SAVE CSW 

0128E 

D5 

00 

F 

50F 

B 

004 

768 

IBSN 

CLC 

IACTCC+5!1),4(R11) 

COMPARE FOR EXPECTED COND. CODE 

01198 

96 

40 

F 

0E4 



705 


01 

ISW,X'40 * 

INDICATE 1 CSW 

01294 

47 

60 

F 

2 DC 



769 


BC 

UNEQ,INDER 

BR. IF UNEQUAL 

0119C 

47 

FO 

F 

1A4 



706 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

01298 

91 

08 

B 

000 



770 


TM 

0(R11),X'08* 


011 AO 

92 

FO 

F 

50F 



707 

IZERO 

MVI 

I ACTCC+5,X'FO• 

INDICATE COND. CODE 0 

0129C 

47 

80 

F 

260 



771 


BC 

NONE,IN0EX1 

BR. IF NO CSW EXPECTED 

Oil A4 

94 

7F 

F 

0E4 



708 

INOW 

NI 

ISW,X•7F• 

TURN OFF HANG UP SWITCH 

012A0 

91 

40 

F 

0E4 



772 


TM 

ISW,X'40' 


011A8 

91 

40 

8 

000 



709 


TM 

0(R11 ) * X *40' 

CHECK CONTROL SWITCH FOR NO ENABLE 

012A4 

47 

60 

F 

2 DC 



773 


BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

011 AC 

47 

10 

F 

210 



710 


BC 

ALL,I SEN 

BR. IF ON 

012A8 

48 

8B 

0 

006 



774 


LH 

R8,6(R11) 

LOAD CSW ADDR 

01180 

96 

10 

F 

0E4 



711 


01 

ISW,X'10' 

INDICATE ENABLED ONCE 

012AC 

40 

80 

F 

2B4 



775 


STH 

R8,ICCSW1+4 

STORE IN COMPARE INSTR. 

01184 

58 

9E 

0 

198 



712 

IWAIT 

L 

R9,WT!R14) 

LOAD DM WAIT FACTOR 

012B0 

D5 

07 

F 

5D2 

F 

5D2 

776 

ICCSW1 

CLC 

ICSW1(8),ICSW1 

COMPARE FOR EXPECTED CSW 

DATE 

15MAR66 

15N0V66 120CT67 
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012B6 

47 

60 

F 

2 DC 

777 

BC 

UNEQ,INDER 

BR. IF 

UNEQUAL 


012BA 

91 

04 

B 

000 

778 

TM 

0(R11),X*04* 





012BE 

47 

80 

F 

26C 

779 

BC 

NONE,IN0EX2 

BR. IF 

NO 

CSW 2 

EXPECTED 

012C2 

91 

20 

F 

0E4 

780 

TM 

ISW,X'20' 





0I2C6 

47 

80 

F 

2 DC 

781 

BC 

NONE,INDER 

BR. IF 

NO 

CSW 2 

RECIEVED 

012CA 

41 

88 

0 

008 

782 

LA 

R8,8(R8) 

UPDATE 

TO 

SECOND 

CSW 

012CE 

40 

80 

F 

2D6 

783 

STH 

R8,ICCSW2+4 






012D2 D5 07 F 5DA F 5DA 784 ICCSW2 CLC ICSW2(8)»IC5W2 COMPARE FOR EXPECTED CSW 2 

012D8 47 80 F 2E0 785 BC EQ,IDUNCK BR. IF EQUAL 

012DC 96 01 F 0E4 786 INDER 01 ISW,X*01* INDICATE AN ERROR 

012E0 92 64 F 310 787 IDUNCK MVI IFL.AGl,X*64* SET UP FOR ERROR PRINTOUT 

012E4 92 CO F 4A4 788 MVI IFLAG2,X*C0* 

012E8 91 01 F 0E4 789 TM ISW,X*01* CHECK FOR A DETECTED ERROR 

012EC 47 10 F 300 790 BC ALL,IOUTIT BR. IF ERROR DETECTED 

012F0 91 01 F 004 791 TM SNSW,X*01' CHECK SECTION SENSE SWITCH 7 

012F4 47 80 F 4C0 792 BC NONE, HEAVE BR. IF OFF 

012F8 92 24 F 310 793 MVI IFLAG1,X*24* SET UP FOR CORRECT PRINTOUT 

012FC 92 80 F 4A4 794 MVI IFLAG2,X*80* 

01300 D2 01 F 59C B 002 795 IOUTIT MVC ITSTN0+5C 21 ,2(R11) MOVE TEST NUMBER TO PRINT 

01306 OA DD 796 SVC X*DD* CONVERT TEST NUMBER 

01308 0002 797 DC AL2(2J 

0130A 059C 798 DC AL2(1TSTN0+5-SECN0 ) 

0130C 059C 799 DC AL2(ITSTNG+5-SECN0i 

0130E OA DO 800 SVC X*DO* PRINT TEST NUMBER 


01310 

64 





801 

IFLAG1 

DC 

01311 

09 





802 


DC 

01312 

F597 





803 


DC 

01314 

41 80 

0 

004 



804 


LA 

01318 

IB 88 





805 


SR 

0131A 

50 BO 

F 

528 



806 


ST 

0131E 

OA DD 





807 


SVC 

01320 

0003 





808 


DC 

01322 

0529 





809 


DC 

01324 

0528 





810 


DC 

01326 

OA DO 





811 


SVC 

01328 

EO 





812 


DC 

01329 

10 





813 


DC 

0132 A 

F523 





814 


DC 

0132C 

41 BB 

0 

004 



815 


LA 

01330 

91 80 

8 

000 



816 


TM 

01334 

47 10 

F 

3BA 



817 


BC 

01338 

OA DD 





818 


SVC 

0133A 

0003 





819 


DC 

0133C 

05F0 





820 


DC 

0133E 

0519 





821 


DC 

01340 

OA DO 





822 


SVC 

01342 

EO 





823 


DC 

01343 

OF 





824 


DC 

01344 

F514 





825 


DC 

01346 

95 9C 

F 

16E 



826 


CLI 

0134A 

47 60 

F 

3A4 



827 


BC 

0134E 

50 AO 

F 

538 



828 


ST 

01352 

OA DD 





829 


SVC 

01354 

0003 





830 


DC 

01356 

0539 





831 


DC 

01358 

0538 





832 


DC 

0135A 

OA DO 





833 


SVC 

0135C 

EO 





834 


DC 

0135D 

OB 





835 


DC 

0135E 

F533 





836 


DC 

01360 

D2 02 

F 

546 

F 

542 

837 


MVC 

01366 

92 16 

F 

39F 



838 


MVI 

0136A 

50 AO 

F 

818 



839 


ST 

0136E 

D2 07 

F 

408 

A 

000 

840 

ICWOUT 

MVC 

01374 

45 90 

F 

388 



841 


BAL 


X • 64 * 

X * 09 9 

AL2< ITSTNO-SECNO*REG> 

R8,4 ADJUST LINK ADDRESS FOR PRINTOUT 

R11,R8 
Rll,ILINK+5 

X * DD * CONVERT LINK ADDRESS 

AL2(3) 

AL2ULINK+6~SECN0i 
AL2(IL1NK+5—SEGNO) 

X * DO * PRINT LINK ADDRESS 

X ' EO' 

X*10* 

AL2(I LINK-SECNO+REG) 

R11,4(R11) 

OlRll)tX•80* 

ALL* IOCSW BR. IF NO I-G COMMAND ISSUED 

X'DD' CONVERT 1-0 ADDRESS 

AL2(35 

AL2(IOADR—SECNO) 

AL2U0ADDR+5-SECN0) 

X * DO' PRINT 1-0 ADDRESS 

X • EO* 

X * OF * 

AL2( IOADDR—SECNO+REG > 

ISSUE,X*9C* COMPARE FOR SIO COMMAND 

UNEQ,ICCOUT BR. IF NOT 

R10,ICAW+5 STORE CCW ADDR* 

X * DD• CONVERT CAW 

AL2(3) 

AL2(ICAW+6-SECN0) 

AL2(ICAW+5-SECN0) 

X•DO* PRINT CAW 

X*EO* 

X * OB • 

AL2(ICAW—SECNQ+REG) 

IBLAH+1(3),ICCW MOVE -CCW- TO MESSAGE 

ICNT,X*16* ADJUST COUNT 

RIO,SAV10 MOVE CONTENTS OF REG 10 TO SAVE 

WORK!8)t0(R10) MOVE CCW TO WORK AREA 

R9,1C0UT BR. TO OUTPUT CCW 
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01378 

91 

CO 

A 

004 



842 


TM 

4(R10),X*CO* 

CHECK FOR ANY CHAIN FLAGS 

0137C 

47 

80 

F 

3A4 



843 


BC 

NONE,ICCOUT 

BR. IF NONE 

01380 

41 

AA 

0 

008 



844 


LA 

RIO,8(RIO) 

UPDATE TO NEXT CCW 

01384 

47 

FO 

F 

36E 



845 


BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

01388 

OA 

DD 





846 

ICOUT 

SVC 

X * DD • 

CONVERT 

0138A 

0006 





847 


DC 

AL2(8) 


0138C 

04D8 





848 


DC 

AL2(WORK-SECNO) 


0138E 

04D8 





849 


DC 

AL2(WORK—SECNO) 


01390 

D2 

07 

F 

54A 

F 

408 

850 


MVC 

IBLAH+518),WORK 

MOVE TO MESSAGE 

01396 

D2 

07 

F 

553 

F 

4E0 

851 


MVC 

IBLAH+14I8),W0RK+8 


0139C 

OA 

00 





852 


SVC 

X' DO • 

PRINT 

0139E 

EO 






853 


DC 

X'EO* 


01 3 9 F 

1A 






854 

ICNT 

DC 

X ' 1A * 


013 AO 

F545 





855 


DC 

AL2(IBLAH-SECNO+REGI 


013A2 

07 

F9 





856 


BCR 

UNC,R9 

RETURN VIA REG 9 

013A4 

D2 

00 

F 

505 

B 

004 

857 

ICCOUT 

MVC 

IEXPCC+5(1),4(R11) 

MOVE EXP CC TO MESSAGE 

013AA 

58 

AO 

F 

4F8 



858 


L 

RIO,I SLAVE 

RESTORE REG 10 

013 AE 

OA 

DO 





859 


SVC 

X * DO • 

PRINT EXPECTED COND. CODE 

013B0 

EO 






860 


DC 

X'EO* 


013B1 

OA 






861 


DC 

X' OA * 


013B2 

F500 





862 


DC 

AL2UEXPCC-SECN0+REGI 


013B4 

OA 

DO 





863 


SVC. 

X® DO* 

PRINT ACTUAL COND. CODE 

013B6 

EO 






864 


DC 

X'EO* 


013B7 

OA 






865 


DC 

X »0A* 


013B8 

F50 A 





866 


DC 

AL2CIACTCC-SECNO+REG) 


013BA 

D2 

02 

F 

546 

F 

53F 

867 

IOCSW 

MVC 

IBLAH+H3) , ICSW 

MOVE -CSW- TO MESSAGE 

013C0 

92 

1A 

F 

39F 



868 


MVI 

ICNT,X *1A * 

ADJUST COUNT 

013C4 

91 

08 

B 

000 



869 


TM 

0(R11),X*08* 


013C8 

47 

80 

F 

3 EC 



870 


BC 

NONE,XDIDI 

BR. IF NO CSW EXPECTED 

013CC 

D2 

02 

F 

55C 

F 

562 

871 


MVC 

IBLAH+23C3I,IEXP 

MOVE -EXP- TO MESSAGE 

013D2 

48 

88 

0 

006 



872 


LH 

R8,6fRll) 


013D6 

40 

80 

F 

3E6 



873 


STH 

R8,ICHNG1+4 


013DA 

41 

88 

0 

008 



874 


LA 

R8,8(R8) 


013DE 

40 

80 

F 

4 16 



875 


STH 

R8,ICHNG2+4 


013E2 

D2 

07 

F 

4D8 

F 

4D8 

876 

ICHNG1 

MVC 

WORK ( 8) »WORK 

MOVE EXPECTED CSW TO WORK AREA 

013E8 

45 

90 

F 

388 



877 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

013EC 

91 

40 

F 

0E4 



878 

10101 

TM 

ISW,X•40 * 


013F0 

47 

80 

F 

404 



879 


BC 

NONE,IMORST 

BR. IF NO CSW STORED 

013F4 

D2 

02 

F 

55C 

F 

55F 

880 


MVC 

IBLAH+23I3),IACT 

MOVE -ACT- TO MESSAGE 

013FA 

D2 

07 

F 

4D8 

F 

5D2 

881 


MVC 

WORK(8),X CSWl 

MOVE ACTUAL CSW TO WORK AREA 

01400 

45 

90 

F 

388 



882 


BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

01404 

91 

04 

B 

000 



883 

IMORST 

TM 

OIRllI,X * 04' 


01408 

47 

80 

F 

41C 



884 


BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

0140C 

D2 

02 

F 

55C 

F 

562 

885 


MVC 

IBLAH+23I3),IEXP 

MOVE -EXP- TO MESSAGE 

01412 

D2 

07 

F 

4D8 

F 

4D8 

886 

ICHNG2 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

01418 

45 

90 

F 

388 



887 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

0141C 

91 

20 

F 

0E4 



888 

1010 

TM 

ISW,X•20 * 


01420 

47 

80 

F 

434 



889 


BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

01424 

D2 

02 

F 

55C 

F 

55F 

890 


MVC 

IBLAH+23(3),IACT 

MOVE -ACT- TO MESSAGE 

0142 A 

D2 

07 

F 

4D8 

F 

5 DA 

891 


MVC 

WORK(8),1CSW2 

MOVE CSW TO WORK AREA 

01430 

45 

90 

F 

388 



892 


BAL 

R9,ICOUT 


01434 

D2 

00 

F 

56A 

8 

005 

893 

IPAS 

MVC 

IEXSNS+5(lf,5(Rll) 

MOVE EXP SENSE TO MESSAGE 

0143 A 

91 

04 

F 

0E4 



894 


TM 

ISW,X•04 * 


0143E 

47 

80 

F 

45E 



895 


BC 

NONE,IPASS 

BR« IF NO SENSE DATA RECIEVED 

01442 

OA 

DO 





896 


SVC 

X* DD* 

CONVERT EXPECTED SENSE 

01444 

0001 





897 


DC 

AL2 (1) 


01446 

056A 





898 


DC 

AL2IIEXSNS+5-SECN0J 


01448 

056A 





899 


DC 

AL2UEXSNS+5-SECN0) 


0144A 

OA 

DO 





900 


SVC 

X' DO* 

PRINT EXPECTED SENSE 

0144C 

EO 






901 


DC 

X'EO* 


0144D 

OB 






902 


DC 

X*OB' 


0144E 

F565 





903 


DC 

AL2UEXSNS-SECN0+REG) 


01450 

OA 

DO 





904 


SVC 

X*DD* 


01452 

0001 





905 


DC 

AL2(1) 


01454 

0575 





906 


DC 

AL2UACSNS+5-SECNOI 
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01456 

0575 

907 


DC 

AL2(IACSNS+5-SECN0) 


01545 

40C3E2E640E7E7E7 

967 

IBLAH 

DC 

C' CSW XXXXXXXX XX' 

- ! 

Q1458 

OA PO 

908 


SVC 

X * DO' 

PRINT ACTUAL SENSE DATA 

0154D 

E7E7E7 E7E740E7E7 





t 

0145A 

EO 

909 


DC 

X' EO' 


01555 

E7E7E7 E7E7E740C5 

968 


DC 

C'XXXXXX EXP' 

i 

0145B 

OB 

910 


DC 

X' OB * 


0155D 

E7D7 





! 

0145C 

F570 

911 


DC 

AL2(IACSNS—SECNO+REG) 


0155F 

C1C3E3 

969 

I ACT 

DC 

C'ACT• 


0145E 

95 30 E 181 

912 

IPASS 

CLI 

SYSMOD(R14),X•30• 

CHECK FOR MODEL 30 

01562 

C5E707 

970 

IEXP 

DC 

C•EXP' 

j 

01462 

47 60 F 4A2 

913 


BC 

UNEQ,IOPOUT 

BR. IF NOT 

01565 

40E2D5 E240E7E740 

971 

IEXSNS 

DC 

C' SNS XX EXP* 


01466 

D2 OB F 4D8 0 080 

914 


MVC 

WORK(12)* LOGOUT 

MOVE LOGOUT TO WORK AREA 

0156D 

C5E7D7 






0146C 

OA DD 

915 


SVC 

X • DD • 

CONVERT 

01570 

40E2D5E240E7E740 

972 

IACSNS 

DC 

C' SNS XX ACT' 


0146E 

OOOC 

916 


DC 

AL2 < 12) 


01578 

C1C3E3 






01470 

04D8 

917 


DC 

AL2(WQRK-SECNO) 


0157B 

40D3D6C740E7E740 

973 

IOLOG 

DC 

C' LOG XX XXXXXX X' 


01472 

04D8 

918 


DC 

AL2IW0RK-SECN0) 


01583 

E7E7E7 E7E7E740E7 






01474 

D2 01 F 580 F 4D8 

919 


MVC 

IOL0G+5(2)fWORK 

MOVE LOG OUT TO MESSAGE 

0158B 

E7E7E7E7E740E7E7 

974 


DC 

C'XXXXX XXXXXX' 


0147A 

D2 05 F 583 F 4DA 

920 


MVC 

I0L0G+8(6),WORK+2 


01593 

E7E7E7E7 






01480 

D2 05 F 58A F 4E2 

921 


MVC 

I0L0G+15C 6),W0RK+10 


01597 

40E3E2E340E7E7E7 

975 

ITSTNO 

DC 

C' TST XXXX* 


01486 

D2 05 F 591 F 4EA 

922 


MVC 

I0L0G+22(6),WORK+18 


0159F 

E7 






0148C 

OA DO 

923 


SVC 

X'DO' 

PRINT LOG OUT 

015 AO 

40E2E240F040D6D5 

976 

I0PT1 

DC 

C' SS 0 ON FOR LOO' 

| 

0148E 

EO 

924 


DC 

X' EO' 


015A8 

40C6D6D940D3D6D6 






0148F 

1C 

925 


DC 

X'lC' 


015B0 

D740D6 D540E2C9D6 

977 


DC 

C'P ON SIO, SS 1 O' 


01490 

F57B 

926 


DC 

AL2 <IOLOG-SECNO+REG) 


015B8 

6B40E2 E240F140D6 






01492 

91 02 F 0E4 

927 


TM 

ISW,X'02' 


015C0 

D540C6D6D940E3C9 

978 


DC 

C'N FOR TIO SIO LO' 


01496 

47 80 F 4A2 

928 


BC 

NONE,IOPOUT 

BR. IF NOT UIO 

015C8 

D640E2 C9D640D3D6 






0149A 

94 FD F 0E4 

929 


NI 

ISW,X'FD' 

RESET UIO SWITCH 

015D0 

D6D7 

979 


DC 

C'OP' 


01496 

47 FO F 1B4 

930 


BC 

UNC,IWAIT 

BR. UNCONDITIONAL 

015D2 

0000000000000000 

980 

ICSW1 

DC 

XL8'0' 


014A2 

OA DO 

931 

IOPOUT 

SVC 

X'DO' 

PRINT LOOP OPTIONS THEN HALT 

015DA 

0000000000000000 

981 

ICSW2 

DC 

XL8•O' 

! 

014A4 

CO 

932 

IFLAG2 

DC 

X'CO' 


015E2 

000000000000 





| 

014A5 

32 

933 


DC 

X • 32' 


015E8 

0400157500000001 

982 

ISENSE 

CCW 

X•04•,IAC SNS+5,X•00• 

,1 j 

014A6 

F5A0 

934 


DC 

AL2(I0PT1-SECN0+REG) 


015F0 

00116E 

983 

IOADR 

DC 

AL3<ISSUE) 


014A8 

OA DO 

935 


SVC 

X'DO' 

SPACE A LINE 

015F3 

FE 

984 

MSK1 

DC 

X'FE' 


014AA 

AO 

936 


DC 

X • AO' 


015F4 

01 

985 

MSK2 

DC 

X'Ol' 


014AB 

01 

937 


OC 

X'Ol' 


015F5 

40E2C5C540C4C5E2 

986 

CLUIN 

DC 

C' SEE DESCRIPTION' 

j 

014AC 

F523 

938 


DC 

AL2(ILINK-SECNO+REG) 


015FD 

C3D9C9D7E3C9D6D5 






014AE 

50 AD 0 048 

939 


ST 

RIO»HCAW(R13) 

STORE CAW 

01605 

60C3D6D4D4C5D5E3 

987 


DC 

C'-COMMENTS* 


014B2 

91 CO F 004 

940 


TM 

SNSW,X'CO • 

CHECK SECTION SENSE SWITCH 0 AND 1 

0160D 

E2 





1 

014B6 

47 50 F 11C 

941 


BC 

ANY,ITRY1 

BR. IF ANY ON 

0160E 


988 

CKAR 

DS 

132C 

j 

014BA 

91 01 F 0E5 

942 


TM 

ISW+1,X*01' 


01692 


989 

DRAR 

DS 

132C 


014BE 

07 15 

943 


BCR 

ALL,R5 

RETURN VIA REG 5 IF HANG UP 

01716 

00 00 





j 

014C0 

91 08 B 000 

944 

ILEAVE 

TM 

0(R11),X* 08' 


01718 

0200169200000084 

990 

RDCCW 

CCW 

X'02»,DRAR,X'OO',132 


014C4 

47 80 F 4CC 

945 


BC 

NONE,IUP 

BR. IF NO CSW EXPECTED 



991 

*********************************************************************** 

014C8 

41 BB 0 002 

946 


LA 

R11,2(R11) 

UPDATE LINK ADDRESS FOR RETURN 



992 

* 


INITIALIZE ROUTINE ! 

014CC 

41 BB 0 006 

947 

IUP 

LA 

R11,6(RU) 




993 

*********************************************************************** 

014D0 

98 89 F 4F0 

948 


LM 

R8,R9,I SAVE 

RESTORE REGS 8 AND 9 

01720 

IB DD 

994 

INIT 

SR 

R13,R13 

ZERO REG 13 j 

014D4 

07 FB 

949 


BCR 

UNCtRll 

RETURN VIA REG 11 

01722 

91 40 E 196 

995 


TM 

406(R14),X•40• 

CHECK FOR FORCED PROBLEM STATE j 

014D6 

07 00 

950 


CNOP 

0,8 


01726 

47 80 F 730 

996 


BC 

NONE,NITWIT 

BR. IF NOT ! 

014D8 


951 

WORK 

DS 

24C 


0172A 

18 DF 

997 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

014F0 

0000000000000000 

952 

ISAVE 

DC 

XL8'0' 


0172C 

92 FB F 8E0 

998 


MVI 

LOAD,X'FB * 

INSURE LOAD NO FOLD ! 

014F8 

0000000000000000 

953 

ISLAVE 

DC 

XL8'0' 

REGISTER SAVE AREA 

01730 

58 CO F OEO 

999 

NITWIT 

L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY f 

01500 

40C3C34040E740C5 

954 

IEXPCC 

DC 

C' CC X EXP' 


01734 

54 CO F 81C 

1000 


N 

R12,M0D50 

AND OUT UNUSED BITS j 

01508 

E7D7 






01738 

49 CO F 7FC 

1001 


CH 

R12,SAVDEV 

COMPARE FOR CURRENT DEVICE ADDRESS 

0150A 

40C3C34040E740C1 

955 

IACTCC 

DC 

C' CC X ACT' 


0173C 

47 80 F 780 

1002 


BC 

EQ,BL00P 

BR. IF EQUAL 1 

01512 

C3E3 






01740 

40 CO F 7FC 

1003 


STH 

R12,SAVDEV 

SAVE CURRENT DEVICE ADDRESS 

01514 

40C1C4D940E7E7E7 

956 

IOAODR 

DC 

C' ADR XXXXXX SIO' 


01744 

91 10 F 0E1 

1004 


TM 

UNITl+lfX'10* 

CHECK FOR UCS FEATURE 

0151C 

E7E7E740E2C9D6 






01748 

47 80 F 702 

1005 


BC 

NONE,SCAT 

t 

01523 

00 

957 


DC 

X'OO' 


0174C 

D2 02 F FB9 F 5A6 

1006 


MVC 

FERR0+14I3),IOPT1+6 

MOVE WORD -ON - TO MSG 

01524 


958 


CNOP 

0,4 


01752 

D2 02 F FC4 F FD6 

1007 


MVC 

FERRO+25 C 3),OFF 

MOVE WORD -OFF- TO MSG 

01523 


959 


ORG 

*-l 


01758 

D2 02 F FCB F F83 

1008 


MVC 

FERR0+32C3),NOT 

MOVE WORD -NOT- TO MSG 

01523 

40C1C4D940E7E7E7 

960 

ILINK 

DC 

C' ADR XXXXXX LINK' 


0175E 

91 80 F 007 

1009 


TM 

SNSW+3,X'80 # 

TEST FOR DUALING MODE i 

0152B 

E7E7E740D3C9D5D2 






01762 

47 10 F 778 

1010 


BC 

ALL,DARIO 

BR. IF DUALING MODE j 

01533 

00 

961 


DC 

X'OO' 


01766 

D2 02 F FB9 F FD6 

1011 


MVC 

FERR0+14I3),OFF 

MOVE WORD -OFF- TO MSG 1 

01534 


962 


CNOP 

0,4 


0176C 

D2 02 F FC4 F 5A6 

1012 


MVC 

FERRO+25(3),IOPT1+6 

MOVE WORD -ON - TO MSG ! 

01533 


963 


ORG 

*-l 


01772 

D2 02 F FCB F FCA 

1013 


MVC 

FERR0+32(3),FERR0+31 

BLANK OUT WORD -NOT- 

01533 

40C3C1E64GE7E7E7 

964 

ICAW 

DC 

C' CAW XXXXXX • 


01778 

OA DO 

1014 

DARIO 

SVC 

X'DO' 

PRINT SS 24 MSG 

0153B 

E7E7E740 






0177A 

04 

1015 


DC 

X'04' 


0153F 

C3E2E6 

965 

ICSW 

DC 

C'CSW' 


0177B 

2B 

1016 


DC 

X'2B* 

; 

01542 

C3C3E6 

966 

ICCW 

DC 

C'CCW' 


0177C 

FFAB 

1017 


DC 

AL2IFERRO-SECNO+REG) 
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0177E 

OA DA 

1018 

STAY 

SVC 

X 1 DA' 

HALT FOR SS ALTERATION 

01780 

91 80 F 0E4 

1019 

BLOOP 

TM 

ISW,X•80 * 

CHECK FOR HANG UP 

01784 

47 10 F 7AO 

1020 


BC 

ALLtHANGUP 

BR. IF DETECTED 

01788 

D2 00 F 8A5 F 003 

1021 


MVC 

RTSAV(1),SECNO+3 

SAVE ROUTINE NUMBER 

0178E 

92 40 F 9FB 

1022 


MV I 

LDAR , X •40’ 

CLEAR LOAD AREA 

01792 

D2 EF F 9FC F 9FB 

1023 


MVC 

LDAR+K240) , LDAR 


01798 

D2 83 F 821 F 9FB 

1024 


MVC 

PRARt132),LDAR 

CLEAR PRINT AREA 

0179E 

07 F4 

1025 


BCR 

UNC,R4 

RETURN VIA REG 4 

017AO 

D2 00 F 003 F 8A5 

1026 

HANGUP 

MVC 

SECN0+3I1)*RTSAV 

MOVE RTN NO. THAT HANG WAS FOUND 

017A6 

94 7F F 0E4 

1027 


N I 

ISW,X *7F • 


017AA 

96 01 F 0E5 

1028 


01 

ISW+1,X’Ol’ 


017AE 

98 AB F 4F8 

1029 


LM 

RIO,Rll,ISLAVE 

RESTORE REGS 10 AND 11 

017B2 

OA DO 

1030 


SVC 

X • DO • 

PRINT 

017B4 

64 

1031 


DC 

X * 64 * 

-PREVIOUS HANGUP DETECTED- 

017B5 

1A 

1032 


DC 

X * 1A ' 


017B6 

F7FE 

1033 


DC 

AL2(HUNG-SECNO+REG) 


017B8 

OA DO 

1034 


SVC 

X' DO * 


017BA 

A019 

1035 


DC 

X*A019* 


017BC 

F5F5 

1036 


DC 

AL2(CLUIN-SECNO+REG) 


017BE 

45 50 F 238 

1037 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

017C2 

92 01 F 003 

1038 


MV I 

SECNQ+3, X *01 * 

RESTORE TO ROUTINE 01 

017C6 

94 FE F 0E5 

1039 


NI 

ISW+ltX’FE’ 


017CA 

92 00 F 0E4 

1040 


MV I 

ISWtX’OO' 

RESET HANGUP SWITCH 

017CE 

47 FO F 780 

1041 


BC 

UNC,BLOOP 


017D2 

OA DO 

1042 

SCAT 

SVC 

X • DO * 


017D4 

04 

1043 


DC 

X *04 • 


017D5 

IF 

1044 


DC 

X • IF • 


017D6 

F7DA 

1045 


DC 

AL2(SCATEL-SECNO+REG) 


017D8 

OA D5 

1046 


SVC 

X • D5 ’ 


017DA 

40C4C5 E5C9C3C540 

1047 

SCATEL 

DC 

C* DEVICE BYPASSED* 


017E2 

C2E8D7C1E2E2C5C4 






017EA 

60D5D640E4C3E240 

1048 


DC 

C’-NO UCS DEFINED’ 


017F2 

C4C5C6C9D5C5C4 






017F9 

00 






017FA 

07 00 

1049 


CNOP 

0,4 


017FC 

FFFF 

1050 

SAVDEV 

DC 

X•FFFF' 


017FE 

40D7D9C5E5C9D6E4 

1051 

HUNG 

DC 

C* PREVIOUS HANG U’ 


01806 

E240C8C1D5C740E4 






0180E 

D740C4C5E3C5C3E3 

1052 


DC 

C’P DETECTED’ 


01816 

C5C4 






01818 


1053 


CNOP 

0,4 


01818 

00000000 

1054 

SAV10 

DC 

XL4'0• 


0181C 

00003FFF 

1055 

M0D50 

DC 

X•00003FFF• 


01820 

40 

1056 


DC 

X *40* 


01821 


1057 

PRAR 

DS 

132C 


018A5 

00 

1058 

RTSAV 

DC 

X*00* 




1059 

*********************************************************************** 



1060 

* 


LOAD UCS 

SUB-ROUTINE 



1061 

*********************************************************** 

018A6 

D2 OF F 9FB F C15 

1062 

ECONMY 

MVC 

LDAR(16),CHAR16 

LOAD CHARACTERS INTO BUFFER 

018 AC 

D2 OF F AOB F 9FB 

1063 


MVC 

LDAR+16(224) ,LDAR 

FILL BUFFER WITH 16 CHAR SETS 

018B2 

D2 01 F 8C6 5 000 

1064 

LOADIT 

MVC 

MUMB(2),0(R5) 

MOVE TEST NUMBER 

018B8 

41 55 0 002 

1065 


LA 

R5,2(R5) 

UPDATE RETURN REG 

018BC 

41 AO F 8 DO 

1066 


LA 

RIO,PRELD 

LOAD CCW ADDRESS 

018C0 

45 BO F 0E6 

1067 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 

018C4 

3E00 

1068 


DC 

X•3E00• 

CTRL SWITCHES 

018C6 

0000 

1069 

MUMB 

DC 

X*0000’ 

TEST NUMBER 

018C8 

FOOO 

1070 


DC 

X•FOOO• 

EXP COND CODE AND SENSE 

018CA 

F8E8 

1071 


DC 

AL2(LDCSW—SECNO+REG) 

EXP CSW ADDRESS 

018CC 

07 F5 

1072 


BCR 

UNC,R5 

RETURN VIA R5 

018CE 

00 00 






01800 

EBOO182140000001 

1073 

PRELD 

CCW 

X*EB’,PRAR,X*40*,1 


018D8 

7BOO182140000001 

1074 


CCW 

X’7B*,PRAR,X’40’,1 


018E0 

FB0019FB000000F0 

1075 

LOAD 

CCW 

X*FB’,LDAR,X’OO’,240 


018E8 

000018E8 

1076 

LDCSW 

DC 

A(LDCSW) 
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018EC 

08000000 


1077 



DC 

X•08000000• 



018F0 

00000000 


1078 



DC 

XL4 * 0 * 



018F4 

04000000 


1079 



DC 

X•04000000' 



018F8 




1080 



CNOP 

0,4 







1081 

*********************************************************************** 





1082 

* 

ROUTINE 01 

- THIS ROUTINE RUNS ON UCS PRINTERS ONLY. ISSUE A 

PRE - 





1083 

* 



CONDITION LOAD COMMAND -EB-, COMMAND CHAINED TO 

A LOAD 





1084 

* 



THE UCS BUFFER -FB- 

COMMAND. REPEAT WITH LOAD WITH 





1085 

* 



FOLDING -F3-. ISSUE 

LOAD WITH SHORT COUNT. ISSUE 

LOAD 





1086 

* 



WITH LONG COUNT. 







1087 

*********************************************************************** | 

018F8 

01 



1088 

R0UT01 

DC 

X*01* 

ROUTINE NUMBER 


018F9 

000968 



1089 



DC 

AL3(ROUT02-SECN0) 

ADDRESS OF NEXT ROUTINE 


018FC 

45 40 

F 

720 

1090 



BAL 

R4,INIT 

BR. TO INITIALIZE 


01900 

45 50 

F 

8B2 

1091 



BAL 

R5,LOADIT 

BR. TO LOAD UCS 


01904 

0010 



1092 



DC 

X’0010* 

TEST NUMBE 

R 

01906 

92 F3 

F 

8E0 

1093 



MV I 

LOAD,X•F3• 

SET UP FOR FOLDING COMMAND 


0190 A 

45 50 

F 

8B2 

1094 



BAL 

R5,LOADIT 

BR. TO LOAD UCS 


0190E 

0020 



1095 



DC 

X•0020» 

TEST NUMBE 

R 

01910 

92 FB 

F 

8E0 

1096 



MVI 

LOAD,X•FB• 

RESTORE LOAD COMMAND 


01914 

92 EF 

F 

957 

1097 



MVI 

LDINC+7,X’EF• 

SET UP SHORT COUNT 


01918 

92 00 

F 

95F 

1098 



MVI 

INCCSW+7,X*00* 

SET UP 0 RESIDUAL COUNT 


0191C 

41 AO 

F 

948 

1099 



LA 

R10*PREINC 

LOAD CCW ADDRESS 


01920 

45 BO 

F 

0E6 

1100 



BAL 

Rll, ISIO 

BR. TO ISSUE SIO 


01924 

3E00 



1101 



DC 

X *3E00’ 

CTRL SWITCHES 


01926 

0030 



1102 



DC 

X•0030* 

TEST NUMBE 

R 

01928 

FOOO 



1103 



DC 

X * F OOO * 

EXP COND. CODE AND SENSE 


0192 A 

F958 



1104 



DC 

AL2(INCCSW—SECNO+REG) 

EXP CSW ADDR 


0192C 

92 FI 

F 

957 

1105 



MVI 

LDINC+7,X *F1* 

SET UP LONG COUNT 

j 

01930 

92 01 

F 

95F 

1106 



MVI 

INCCSW+7,X’01’ 

SET UP 1 RESIDUAL COUNT 

j 

01934 

41 AO 

F 

948 

1107 



LA 

RIO,PREINC 

PLACE ADDR OF CCW IN REG 10 

j 

01938 

45 BO 

F 

0E6 

1108 



BAL 

Rll,1SIO 

BR. TO ISSUE SIO 

I 

0193C 

3E00 



1109 



DC 

X•3E00 * 

CONTROL SWITCHES 

i 

\ 

0193E 

0040 



1110 



DC 

X'0040• 

TEST NUMBE 

R 

01940 

FOOO 



1111 



DC 

X * FOOO * 

EXP COND CODE AND SENSE 

. 1 

01942 

F958 



1112 



DC 

AL2(INCCSW—SECN0+RE6) 

EXP CSW ADDRESS 


01944 

OA D6 



1113 

EXIT01 

SVC 

X * D6 * 

ROUTINE EXIT 


01946 

00 00 










01948 

EB0019 FB40000001 

1114 

PREINC 

CCW 

X*EB*,LDAR,X’40’,1 


f 

01950 

FB0019FB000000F0 

1115 

LDINC 

CCW 

X•FB•,LDAR,X*00*,240 


l. 

! 

01958 

00001958 


1116 

INCCSW 

DC 

A( INCCSW) 



0195C 

08400000 


1117 



DC 

X *08400000 * 



01960 

00000000 


1118 



DC 

XL4 * 0 * 



01964 

04000000 


1119 



DC 

X•04000000' 



01968 




1120 



CNOP 

0,4 







1121 

*********************************************************************** 





1122 

* 

ROUTINE 02 

- LOAD UCS BUFFER WITH BLANKS. COMMAND CHAIN A PRE - 





1123 

♦ 



CONDITION LOAD -EB- 

, TO A WRITE NO SPACE -01- COMMAND. 





1124 

♦ 



EXPECT UNIT CHECK AND EQUIPMENT CHECK. ISSUE DIAGNOSTIC 





1125 

* 



CHECK READ. EXPECT 

PRINT CHECK IN EVERY POSITION. 





1126 

*********************************************************************** 

01968 

02 



1127 

R0UT02 

DC 

X *02 • 

ROUTINE NUMBER 


01969 

000B48 



1128 



DC 

AL3(R0UT03—SECNO) 

ADDRESS OF NEXT ROUTINE 


0196C 

45 40 

P 

720 

1129 



BAL 

R4 , IN IT 

BR. TO INITIALIZE 

I 

01970 

45 50 

F 

8B2 

1130 



BAL 

R5,L0ADIT 

GO TO UCS LOAD ROUTINE 

f 

01974 

0050 



1131 



DC 

X ' 0050 * 

T EST NUMBE 

R | 

01976 

41 AO 

F 

AFO 

1132 



LA 

R10,PCL0AD 

PLACE CCW ADDRESS IN REG 10 


0197 A 

45 BO 

F 

0E6 

1133 



BAL 

R11 , ISIO 

GO DO SIO 


0197E 

3C00 



1134 



DC 

XL2 • 3C00’ 

CONTROL SWITCHES 


01980 

0060 



1135 



DC 

X * 0060 * 

TEST NUMBE 

R 

01982 

F010 



1136 



DC 

X'FOIO’ 

EXP COND CODE - EXP SENSE 


01984 

FBOO 



1137 



DC 

AL2(PCLCSW-SECNO+REG) 

ADDRESS OF CSW 


01986 

41 AO 

F 

BIO 

1138 



LA 

R10,D0CKR0 

LOAD ADDRESS OF CCW 


0198A 

45 BO 

F 

0E6 

1139 



BAL 

Rll,ISIO 

GO DO SIO 


0198E 

3800 



1140 



DC 

X* 3800’ 

CONTROL SWITCHES 



DATE 15MAR66 15N0V66 120CT67 

EC’S 125632 125655 131812 


ID F832-5 
PAGE 9A ! 

1 
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01990 

0070 


1141 


DC 

X* 0070* 

01992 

F010 


1142 


DC 

X* F010* 

01994 



1143 


DC 

AL2(CHKRD-SECNO+REGI 

01996 

92 00 

F CIO 

1144 


MVI 

SKORCH,X*00* 

0199A 

41 70 

0 084 

1145 


LA 

R7,132 

0199E 

41 50 

F 691 

1146 


LA 

R5,CKAR+131 

019A2 

91 02 

5 000 

1147 

AGAIN 

TM 

0(R5),X *02 * 

019A6 

47 80 

F 9CA 

1148 


BC 

NONE,NOPTCK 

019AA 

46 50 

F 9AE 

1149 

CYCLE 

BCT 

R5,*+4 

019AE 

46 70 

F 9A2 

1150 


BCT 

R7,AGAIN 

019B2 

91 01 

F CIO 

1151 


TM 

SKORCH,X*01* 

019B6 

47 80 

F 9C8 

1152 


BC 

NONE,EXIT02 

019BA 

41 AO 

F A FO 

1153 


LA 

R10,PCLOAD 

019BE 

45 60 

F 4A2 

1154 


BAL 

Rll,IOPOUT 

019C2 

000000000000 

1155 


DC 

XL6•0 * 

019C8 

OA D6 


1156 

EXIT02 

SVC 

X * D6 • 

019CA 

91 01 

F CIO 

1157 

NOPTCK 

TM 

SKORCH,X*01* 

019CE 

47 10 

F 9E2 

1158 


BC 

ALL,DIDTLE 

019D2 

96 01 

F CIO 

1159 


01 

SKORCH,X•01 * 

019D6 

OA DO 


1160 


SVC 

X*DO* 

019D8 

64 


1161 


DC 

X * 64 * 

019D9 

09 


1162 


DC 

X* 09* 

019DA 

FB20 


1163 


DC 

AL2(BLAB-SECNO+REG) 

019DC 

OA DO 


1164 


SVC 

X *00* 

019DE 

AO 


1165 


DC 

X 'AO* 

019DF 

IF 


1166 


DC 

X * IF • 

019E0 

FB29 


1167 


DC 

AL2(BLAB1-SECN0+REG) 

019E2 

4E 70 

F 4D8 

1168 

DIDTLE 

CVD 

R7yWORK 

019E6 

F3 21 

F C12 F 4DE 

1169 


UNPK 

POS+1(3),WORK+6(21 

019EC 

96 FO 

F C14 

1170 


01 

P0S+3yX*F0* 

019F0 

OA DO 


1171 


SVC 

X *D0* 

019F2 

AO 


1172 


DC 

X'AO* 

019F3 

04 


1173 


DC 

X • 04 • 

019F4 

FCli 


1174 


DC 

AL2CPOS-SECNO+REG) 

019F6 

47 FO 

F 9AA 

1175 


BC 

UNCyCYCLE 

019FA 

40 


1176 

BLANK 

DC 

X* 40* 

019FB 



1177 

LDAR 

DS 

240C 

01AEB 

0000000000 





01AF0 

E80019 FB40000001 

1178 

PCLOAD 

CCW 

X'EB * yLDAR y X *40* y1 

01AF8 

0100182100000084 

1179 

PRINTA 

CCW 

X*01*yPRARyX*00'yl32 

01B00 

OOOOIBOO 

1180 

PCLCSW 

DC 

A(PCLCSW) 

01B04 

08000000 

1181 


DC 

X*08000000* 

01B08 

00000000 

1182 


DC 

XL4 *0* 

01B0C 

06000000 

1183 


DC 

X*06000000* 

01B10 

0600160E20000084 

1184 

DOCKRD 

CCW 

X*06* yCKARyX'20* yl32 

01B18 

0000IB18 

1185 

CHKRD 

DC 

A(CHKRD) 

01B1C 

OEOOOO00 

1186 


DC 

X'OEOOOOOO* 

01B20 

40E3E2E340F0F0F8 

1187 

BLAB 

DC 

C' TST 0080* 

01B28 

FO 






01829 

40C6C1C9D3C5C440 

1188 

BLAB1 

DC 

C* FAILED TO SET P* 

01831 

E3D640E2C5E340D7 





01B39 

D9E340C3C8C5C3D2 

1189 


DC 

C*RT CHECK IN POS* 

01B41 

40C9D540D7D6E2 





01B48 



1190 


CNOP 

0,4 


P/N 840108 
PAGE 10 


TEST NUMB ER 

EXP COND CODE - EXP SENSE 

ADDRESS OF CSW 

TURN OFF TITLE SW 

INITIALIZE COUNT OF PRT POS 

INSERT ADDR OF CHECK READ AREA 

TEST FOR PRINT CHECK 

BR. IF NO PRINT CHECK 

DECREMENT CHECK READ POSITION 

DECREMENT POSITION COUNTER 

SEE IF TITLE PRINTED 

BR. IF NO TITLE PRINTED 

SET UP TO REPEAT WRITE CCW 

BR. TO PRINT LOOP OPTION AND HALT 

EXIT 

CHECK FOR TITLE PRINTED 
BR. IF TITLE PRINTED 
TURN ON TITLE SW 


CONVERT TO DECIMAL 
UNPACK 


BR. FOR MORE 
BLANK 

UCS BUFFER LOAD AREA 

PRE-CONDITION LOAD 
WRITE 

ADDRESS OF CSW 
CSW 


DIAG CHECK READ CCW 

TEST N U M 


E R 


01B48 

01B49 

01B4C 

01B50 

01B54 


03 

000C28 

45 40 F 720 
45 50 F 8A6 
0090 


1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 


*************4^****************:M************************************** 
♦ ROUTINE 03 - LOAD UCS BUFFER WITH 16 CHARACTER SETS. PRINT 132 


CHARACTERS WHICH ARE NOT IN THE UCS BUFFER. EXPECT 
UNIT CHECK AND DATA CHECK. ISSUE CHECK READ. EXPECT NO 
PLC BITS TO BE SET ON. 


* 4 ********************************************************************** 


R0UT03 DC 
DC 
BAL 
BAL 
DC 


X *03 • 

AL3(R0UT04-SECN0) 
R4fINIT 
R5,EC0NMY 
X* 0090* 


ROUTINE NUMBER 
ADDRESS OF NEXT ROUTINE 
BR. TO INITIALIZE 
GO TO LOAD UCS ROUTINE 
TEST N U B 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
1403 PRINTER FUNCTION 3 


P/N 840108 
PAGE 10A 


01B56 

92 Cl F 821 

1202 


MVI 

01B5A 

D2 82 F 822 F 821 

1203 


MVC 

01B60 

41 AO F AF8 

1204 


LA 

01B64 

45 BO F 0E6 

1205 


BAL 

01B68 

3C00 

1206 


DC 

01B6A 

0100 

1207 


DC 

01B6C 

F008 

1208 


DC 

01B6E 

FBOO 

1209 


DC 

01B70 

41 AO F BIO 

1210 


LA 

01B74 

45 BO F 0E6 

1211 


BAL 

01B78 

3800 

1212 


DC 

01B7A 

0110 

1213 


DC 

01B7C 

F010 

1214 


DC 

01B7E 

FBI 8 

1215 


DC 

01B80 

92 00 F CIO 

1216 


MVI 

01B84 

41 70 0 084 

1217 


LA 

01B88 

41 80 F 691 

1218 


LA 

01B8C 

91 04 8 000 

1219 

TECT 

TM 

01B90 

47 10 F BB4 

1220 


BC 

01B94 

46 80 F B98 

1221 

TIC 

BCT 

01B98 

46 70 F B8C 

1222 


BCT 

01B9C 

91 01 F CIO 

1223 


TM 

OIBAO 

47 80 F BB2 

1224 


BC 

01BA4 

41 AO F AF8 

1225 


LA 

01BA8 

45 BO F 4A2 

1226 


BAL 

01BAC 

000000000000 

1227 


DC 

01BB2 

OA 06 

1228 

EXIT03 

SVC 

01BB4 

91 01 F CIO 

1229 

ERED 

TM 

01BB8 

47 10 F BCC 

1230 


BC 

01BBC 

96 01 F CIO 

1231 


01 

01BC0 

OA DO 

1232 


SVC 

01BC2 

64 

1233 


DC 

01BC3 

09 

1234 


DC 

01BC4 

FC07 

1235 


DC 

01BC6 

OA DO 

1236 


SVC 

01BC8 

AO 

1237 


DC 

01BC9 

23 

1238 


DC 

01BCA 

FBE4 

1239 


DC 

01BCC 

4£ 70 F 4D8 

1240 

NOHDR 

CVD 

01BD0 

F3 21 F C12 F 4DE 

1241 


UNPK 

01BD6 

96 FO F C14 

1242 


01 

01BDA 

OA DO 

1243 


SVC 

01BDC 

AO 

1244 


DC 

01BDD 

04 

1245 


DC 

01BDE 

FCll 

1246 


DC 

01BE0 

47 FO F B94 

1247 


BC 

01BE4 

40D7D3C340C2C9E3 

1248 

MITHED 

DC 

01BEC 

40C5D9D9D6D5C5D6 




01BF4 

E4E2D3E840D6D540 

1249 


DC 

01BFC 

C9D540D7D6E2C9E3 




01C04 

C9D6D5 

1250 


DC 

01C07 

40E3E2 E340F0F1F2 

1251 

TSTELL 

DC 

01C0F 

FO 




01C10 

00 

1252 

SKORCH 

DC 

01C11 

40E7E7E7 

1253 

POS 

DC 

01C15 

F0F1F2F3F4F5F6F7 

1254 

CHAR16 

DC 

01C1D 

F8F9FAFBFCFDFEFF 




01C25 

00 




Q1C26 

07 00 

1255 


CNOP 


PRAR,X*C1* 

PRAR+1(131)yPRAR 
RIO,PRINTA 
R11 y I SI0 
XL2•3C00* 

X'0100* 

X•F008 * 

AL2(PCLCSW-SECN0+REG) 
RlOyDOCKRD 
RlltlSIO 
X * 3800* 

X'0110* * 

X'FOIO* 

AL2(CHKRD—SECNO+REG) 
SKORCHyX'OO* 

R7,132 
R8,CKAR+131 
0(R8)yX*04* 

ALLyERED 
R8,*+4 
R7,TECT 
SKORCHy X *01• 

NONE,EXIT03 
RlOyPRINTA 
RllyIOPOUT 
XL6'0* 

X *06* 

SKORCHy X*01• 

ALL yNOHDR 
SKORCHyX*01* 

X' DO* 

X *64* 

X • 09* 

AL2CTSTELL-SECNO+REG) 
X*DO* 

X • AO* 

X • 23* 

AL2(MITHED-SECNO+REGI 
R7,WORK 

P0S+1C3),W0RK+6C2) 

P0S+3yX*F0* 

X'DO* 

X*AO* 

X*04* 

AL2IPOS-SECNO+REG) 
UNCyTIC 

C* PLC BIT ERRONEO* 
C*USLY ON IN POSIT* 

C • I ON • 

C* TST 0120* 


MOVE -A- INTO PRINT AREA 

LOAD PRINT AREA WITH -A- 

SET ADDRESS OF CCW IN REG 10 

GO DO SIO 

CONTROL SWITCHES 

TEST NUMBER 

EXP COND CODE - EXP SENSE 

ADDRESS OF EXP CSW 

LOAD ADDRESS OF CCW 

GO DO SIO 

CONTROL SWITCHES 

TEST NUMBER 

EXP COND CODE - EXP SENSE 

ADDRESS OF CSW 

RESET SWITCH 

SETUP TO CHECK 132 POS 

LOAD ADDR POS 132 

CHECK FOR PLC BIT 

BR. IF IF ON 

DECREMENT ADDRESS 

BR UNTIL 132 CHECKED 

SEE IF PRINTED HEADING 

SET UP LOOP CCW 
GO PRINT LOOP MESSAGE 

ROUTINE EXIT 

CHECK FOR HEADING PRINTED 
BR IF HEADING WAS PRINTED 
INDICATE HEADING PRINTED 


CORRECT PRINT POS TO DECIMAL 


TEST 


N U 


8 E R 


X*00* 

C* XXX* 

X*F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF* 


0,4 


1256 *********************************************************************** 

1257 * ROUTINE 04 - LOAD UCS BUFFER WITH A 16 CHARACTER SET. ISSUE BLOCK 

1258 * DATA CHECK COMMAND -73-. PRINT A LINE OF CHARACTERS 

1259 * WHICH WILL NOT COMPARE. EXPECT NO DATA CHECK. ISSUE 

1260 ♦ ALLOW DATA CHECK COMMAND -7B-. PRINT LINE AGAIN. EXPECT 

1261 ♦ DATA CHECK. 


DATE 
EC *S 


15MAR66 15N0V66 120CT67 
125632 125655 131812 


ID 

PAGE 


F832-5 

10 


DATE 

EC'S 


15MAR66 15N0V66 120CT67 
125632 125655 131812 


ID 

PAGE 


F832-5 

10A 


O O o 


o o o 


0.0 0-0 0 0.0 0 0 0 0 


O' 

o 




ccCCCCC0 ccocccc 
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1262 

ft********************************************************************** 

01C28 

04 



1263 

R0UT04 

DC 

X • 04 • 

ROUTINE NUMBER 



01C29 

OOOCBO 



1264 


DC 

AL3(R0UT05-SECN0) 

ADDRESS OF NEXT ROUTINE 



01C2C 

45 40 

F 

720 

1265 


BAL 

R4*INIT 

BR. TO INITIALIZE 



01C30 

45 50 

F 

8A6 

1266 


BAL 

R5,ECONMY 

GO TO LOAD UCS ROUTINE 



01C34 

0130 



1267 


DC 

X»0130» 

TEST NUMB 

E 

R 

01C36 

41 AO 

F 

C88 

1268 


LA 

RIO,BLOCK 

LOAD CCW ADDRESS 



01C3A 

45 BO 

F 

0E6 

1269 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 



01C3E 

4 AOO 



1270 


DC 

XL2•4A00 1 

CONTROL SWITCHES 



01C40 

0140 



1271 


DC 

X'0140* 

TEST NUMB 

E 

R 

01C42 

F100 



1272 


DC 

X'FIOO* 

EXP COND CODE AND SENSE 



01C44 

FCA8 



1273 


DC 

AL2(NORM-SECNO+REG) 

EXP CSW ADDRESS 



01C46 

92 Cl 

F 

821 

1274 


MVI 

PRAR,C•A • 

FILL PRINT AREA WITH -A- 



01C4A 

D2 82 

F 

822 F 821 

1275 


MVC 

PRAR+H131) ,PRAR 




01C50 

41 AO 

F 

AF8 

1276 


LA 

R10»PRINTA 

LOAD PRINT CCW ADDRESS 



01C54 

45 BO 

F 

0E6 

1277 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 



01C58 

3C00 



1278 


DC 

XL2'3C00* 

CONTROL SWITCHES 



01C5A 

0150 



1279 


DC 

X'0150* 

TEST NUMB 

E 

R 

01C5C 

FOOO 



1280 


DC 

X • FOOO• 

EXP COND. CODE AND SENSE 



01C5E 

FC98 



1281 


DC 

AL2(ZEIDER-SECNO+REG) 

EXP CSW ADDRESS 



01C60 

41 AO 

F 

C90 

1282 


LA 

RIO,ALLOW 

LOAD CCW ADDR. 



01C64 

45 BO 

F 

0E6 

1283 


BAL 

Rll,1SIO 

BR. TO ISSUE SIO 



01C68 

4A00 



1284 


DC 

XL2 *4A00• 

CONTROL SWITCHES 



01C6A 

0160 



1285 


DC 

X•0160* 

TEST NUMB 

E 

R 

01C6C 

F100 



1286 


DC 

X'FIOO* 

EXP COND. CODE AND SENSE 



01C6E 

FCA8 



1287 


DC 

AL2(N0RM-5ECN0+REG) 

EXP CSW ADDRESS 



01C70 

41 AO 

F 

AF8 

1288 


LA 

R10,PRINTA 

LOAD CCW ADDRESS 



01C74 

45 BO 

F 

0E6 

1289 


BAL 

R11,ISIO 

BR. TO ISSUE SIO 



01C78 

3C00 



1290 


DC 

XL2 *3000* 

CONTROL SWITCHES 



01C7A 

0170 



1291 


DC 

X * 0170 * 

TEST NUMB 

E 

R 

01C7C 

F008 



1292 


DC 

X•F008 * 

EXP COND CODE AND SENSE 



01C7E 

FBOO 



1293 


DC 

AL2(PCLCSW-SECNO+REGI 

EXP ADDR OF CSW 



01C80 

OA D6 



1294 

EXIT04 

SVC 

X *D6 • 

ROUTINE EXIT 



01C82 

000000000000 








01C88 

7300182100000001 

1295 

BLOCK 

CCW 

X , 73',PRAR,X , 00*»1 




01C90 

7BOO182100000001 

1296 

ALLOW 

CCW 

X * 7B', PRAR ,X•00 * , 1 




01C98 

00001800 


1297 

ZEIOER 

DC 

A(PCLCSW) 




01C9C 

08000000 


1298 


DC 

X *08000000• 




01CA0 

00000000 


1299 


DC 

XL4•0• 




01CA4 

04000000 


1300 


DC 

X • 04000000' 




01CA8 

00000000 


1301 

NORM 

DC 

XL4»0» 




01CAC 

ocoooooo 


1302 


DC 

X'OCOOOOOO* 




01CB0 




1303 


CNOP 

0,4 








1304 

**4^*4^*********************^************^*************************** 





1305 

* ROUTINE 05 

- LOAD ENTIRE UCS BUFFER WITH A 16 CHARACTER SET 


PRINT 





1306 

♦ 


ONE OF THESE CHARACTERS. ISSUE A LOAD WITH COUNT OF 1. 





1307 

♦ 


PRINT CHARACTER AGAIN. 







1308 

ft********************************************************************** 

01CB0 

05 



1309 

ROUT05 

DC 

X'OS* 

ROUTINE NUMBER 



01CB1 

000D04 



1310 


DC 

AL3(RGUT06-SECN0) 

ADDRESS OF NEXT ROUTINE 



01CB4 

45 40 

F 

720 

1311 


BAL 

R4,INIT 

BR. TO INITIALIZE 



01CB8 

92 FO 

F 

8E7 

1312 


MVI 

L0A0+7,X'FO* 

INSURE COUNT OF 240 



01CBC 

45 50 

F 

8A6 

1313 


BAL 

R5,ECONMY 

GO TO LOAD UCS ROUTINE 



01CC0 

0180 



1314 


DC 

X*0180» 

TEST NUMB 

E 

R 

01CC2 

92 FI 

F 

821 

1315 


MVI 

PRAR,X *F1• 

PUT -1- IN POSITION ONE OF 


PRT BFR 

01CC6 

41 AO 

F 

AF8 

1316 


LA 

R10,PRINTA 

PLACE ADDR OF PRINT CCW IN 


REG. 10 

01CCA 

45 BO 

F 

0E6 

1317 


BAL 

Rll,ISIO 

BR. TO PRINT ONE POSITION 

- 

1- 

01CCE 

3E00 



1318 


DC 

XL2 *3E00• 

CONTROL SWITCHES 



01CD0 

0190 



1319 


DC 

X•0190 * 

TEST NUMB 

E 

R 

01CD2 

FOOO 



1320 


DC 

X•FOOO• 

EXP COND CODE - EXP SENSE 



01CD4 

FC98 



1321 


DC 

AL2(ZEIDER-SECNO+REG) 

ADDRESS OF EXPECTED CSW 



01CD6 

92 40 

F 

9FB 

1322 


MVI 

LDAR,X•40• 

PLACE BLANK IN 1ST PCS OF 

BUFFER LDR 

01CDA 

92 01 

F 

8E7 

1323 


MVI 

LOAD+7,X•01• 

SET LOADER CCW FOR COUNT OF 

-1- 

01CDE 

92 20 

F 

8E4 

1324 


MVI 

L0A0+4,X•20• 

SUPPRESS INCORRECT LENGTH 

RECORD 

01CE2 

45 50 

F 

8B2 

1325 


BAL 

R5»L0ADIT 

BR. TO LOAD UCS 




DATE 

EC'S 


15MAR66 15NOV66 120CT6T 
125632 125655 131812 


ID 

PAGE 


F832-5 
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01DA0 

43 85 

F 

691 

1391 


IC 

R8»DRAR—1(R5) 


01DA4 

19 78 



139? 


CR 

R7,R8 


Q1DA6 

4? 60 

F 

DCO 

1393 


BC 

UNEQ,INFRM 


01DAA 

46 50 

F 

D9C 

1394 

CKMORE 

BCT 

R5» ANYMOR 


01DAE 

41 AO 

F 

AF8 

1395 


LA 

R 10* PRINTA 

SET UP TO LOOP 

01DB2 

45 BO 

F 

4A2 

1396 


BAL 

R11 *IOPOUT 

tt 

01DB6 

000000000000 

1397 


DC 

XL6 * 0 * 

v , 

01DBC 

47 FO 

F 

D92 

1398 


BC 

UNCtEXIT06 


01DC0 

91 01 

F 

CIO 

1399 

INFRM 

TM 

SKORCH * X•01• 


01DC4 

47 10 

F 

DD8 

1400 


BC 

ALLtDIDDO 


01DC8 

96 01 

F 

CIO 

1401 


01 

SKORCH,X*01* 


01DCC 

OA 00 



1402 


SVC 

X *D0* 


01DCE 

64 



1403 


DC 

X * 64 • 


01DCF 

09 



1404 


DC 

X ' 09 • 


01DD0 

FE2 A 



1405 


DC 

AL2(BLAB2-SECN0+REG) 


01DD2 

OA DO 



1406 


SVC 

X * DO • 


01DD4 

AO 



1407 


DC 

X * AO' 


01DD5 

32 



1408 


DC 

X * 32 * 


01DD6 

FDF8 



1409 


DC 

AL2ISAYIT-SECN0+REG) 


01DD8 

4E 50 

F 

4D8 

1410 

DIDDO 

CVD 

R5.W0RK 


01DDC 

F3 21 

F 

C12 F 4DE 

1411 


UNPK 

POS+1(3)» WGRK+6(2) 


01DE2 

96 FO 

F 

C14 

1412 


01 

POS+3, X *F0• 


01DE6 

OA DO 



1413 


SVC 

X 1 DO * 


01DE8 

AO 



1414 


DC 

X' AO * 


01DE9 

04 



1415 


DC 

X * 04 • 


01DEA 

FC11 



1416 


DC 

AL2<P0S-$ECN0+REG> 


01DEC 

47 FO 

F 

DAA 

1417 


BC 

UNC vCKMORE 


01DF0 




1418 


CNOP 

0,4 


01DF0 

00001720 


1419 

DIDRED 

DC 

A(INIT) 


01DF4 

OCOOOOOO 


1420 


DC 

X*0C000000' 


01DF8 

40E3D9C1D5E2D3C1 

1421 

SAYIT 

DC 

C* TRANSLATOR OR B* 


01E00 

E3D6D940D6D940C2 






01E08 

E4C6D940D6D7C5D9 

1422 


DC 

C *UFR OPERATED INC* 


01E10 

C1E3C5C440C9D5C3 






01E18 

D6D9D9C5C3E340C9 

1423 


DC 

CORRECT IN POSITI* 


01E20 

D540D7 D6E2C9E3C9 






01E28 

D6D5 



1424 


DC 

C *0N * 


01E2A 

40E3E2E340F0F2F5 

1425 

BLAB2 

DC 

C* TST 0250* 

TEST NUMBER 

01E32 

FO 








01E33 

00 








01E34 




1426 


CNOP 

0,4 






1427 

*********************************************************************** 





1428 

* ROUTINE 07 

- SECTION SENSE SWITCH 24 MUST BE ON TO INDICATE DUALING 





1429 

♦ 


MODE, OR THIS ROUTINE WILL BE BYPASSED. THE UCS BUFFER 





1430 

♦ 


IS LOADED WITH 5 SETS OF CHARACTERS. EACH SET CONSISTS 





1431 

* 


OF 4 DUALING CHARACTERS AND 44 BLANKS. PRINT THE FOUR 





1432 

♦ 


DUALING CHARACTERS 

TO CHECK PRINT BUFFER TRANSLATE. THEN 





1433 

* 


PRINT 4 DUALING CHARACTERS TO CHECK DATA BUFFER 





1434 

♦ 


TRANSLATE. ISSUE DIAGNOSTIC READ TO CHECK RESULTS 





1435 

*********************************************************************** 

01E34 

07 



1436 

R0UT07 

DC 

X *07 • 

ROUTINE NUMBERS 

01E35 

OOOEFO 



1437 


DC 

AL3(R0UT08-SECN0) 

ADDRESS OF NEXT ROUTINE 

01E38 

45 40 

F 

720 

1438 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01E3C 

91 80 

F 

007 

1439 


TM 

SNSW+3*X*80* 

TEST FOR NO DUALING MODE 

01E40 

47 10 

F 

E4E 

1440 


BC 

ALL,GOMAN 

HAVE DUALING, GO TEST IT 

01E44 

OA DO 



1441 


SVC 

X * DO 1 

PRINT OUT BYPASS MESSAGE 

01E46 

04 



1442 


DC 

X *04 • 

* , 

01E47 

OD 



1443 


DC 

X*OD* 


01E48 

FFE2 



1444 


DC 

AL2(BYPS—SECNO+REG) 

9 9 

01E4A 

47 FO 

F 

EA6 

1445 


BC 

UNC,EXIT07 

GO TO NEXT DEVICE 

01E4E 

D2 03 

F 

9FB F FA4 

1446 

GOMAN 

MVC 

LDAR14),REGDUL 

PUT DUAL CHARS INTO 1ST BUFFER SET 

01E54 

D2 BF 

F 

A2B F 9FB 

1447 


MVC 

LDAR+48I1921,LDAR 

FILL BUFFER 9 4 DUAL ♦ BLANKS, 5 SETS 

01E5A 

45 50 

F 

8B2 

1448 


BAL 

R5,LOADIT 

BR. TO LOAD BUFFER 

01E5E 

0280 



1449 


DC 

X•0280* 

TEST NUMBER 

01E60 

D2 03 

F 

821 F FAO 

1450 


MVC 

PRARC4)tXLTDUL 

PLACE TRANSLATED DUAL CHARS IN PRT 
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01E66 

41 AO 

F 

F88 



1451 


LA 

R10»PRINTB 

ADDR OF CCW INTO REG 10 

01E6A 

45 BO 

F 

0E6 



1452 


BAL 

R11,ISI0 

BR. TO ISSUE SIO 

01E6E 

3C00 





1453 


DC 

XL2 * 3C00 * 

CONTROL SWITCHES 

01E70 

0290 





1454 


DC 

X * 0290• 

T EST NUMBER 

01E72 

FOOO 





1455 


DC 

X * FOOO 

EXP COND CODE - EXP SENSE 

01E74 

FF90 





1456 


DC 

AL2(SAME-SECNO+REG) 

ADDR OF EXP CSW 

01E76 

D2 03 

F 

821 

F 

FA4 

1457 


MVC 

PRAR(4),REGDUL 

PLACE UNTRANSLATED DUAL CHARS IN PRT 

01E7C 

41 AO 

F 

F88 



1458 


LA 

RIO,PRINTS 

ADDR OF CCW INTO REG 10 

01E80 

45 BO 

F 

0E6 



1459 


BAL 

Rll,ISIO 

BR. TO ISSUE SIO 

01E84 

3C00 





1460 


DC 

XL2•3C00 * 

CONTROL SWITCHES 

01E86 

0300 





1461 


DC 

X * 0300 • 

TEST N UMBER 

01E88 

FOOO 





1462 


DC 

X * FOOO * 

EXP COND CODE - EXP SENSE 

01E8A 

FF90 





1463 


DC 

AL2(SAME-SECNO+REG) 

ADDR OF EXP CSW 

01E8C 

41 AO 

F 

718 



1464 


LA 

R 10,RDCCW 

ADDR OF DIAG READ INTO REG 10 

01E90 

45 BO 

F 

0E6 



1465 


BAL 

R11,1SIO 

BR. TO ISSUE SIO 

01E94 

3800 





1466 


DC 

X’3800* 

CONTROL SWITCHES 

01E96 

0310 





1467 


DC 

X * 0310 • 

TEST NUMBER 

01E98 

FOOO 





1468 


DC 

X * FOOO* 

EXP COND CODE - EXP SENSE 

01E9A 

FDFO 





1469 


DC 

AL2(DIDRED-SECNO+REG) 

ADDR OF EXP CSW 

01E9C 

D5 03 

F 

692 

F 

FAO 

1470 


CLC 

DRAM 4),XLTDUL 

COMPARE FOR XLATED DUALING CHARACTER 

01EA2 

47 60 

F 

EA8 



1471 


BC 

UNEO,XLTERR 

BR. IF NO COMPARE 

01EA6 

OA D6 





1472 

EXIT07 

SVC 

X * D6 * 

ROUTINE EXIT 

01EA8 

OA DO 





1473 

XLTERR 

SVC 

X • DO * 


01EAA 

64 





1474 


DC 

X* 64 • 


01EAB 

09 





1475 


DC 

X * 09 * 


01E AC 

FFD9 





1476 


DC 

AL2(BLAB3-SECN0+REG) 


01EAE 

OA DO 





1477 


SVC 

X * DO * 


01EB0 

AO 





1478 


DC 

X' AO * 


01EB1 

OF 





1479 


DC 

X * OF * 

i 

! 01EB2 

FF2C 





1480 


DC 

AL2 C SAYITl-SECNO+REG) 

l 

01EB4 

OA DD 





1481 


SVC 

X * DD • 


01EB6 

0004 





1482 


DC 

AL2(4) 


01EB8 

OFAO 





1483 


DC 

AL2(XLTDUL~SECNO) 

i 

01EBA 

0F7B 





1484 


DC 

AL2(SHUDRD+5-SECN0) 

\ 

01EBC 

D2 02 

F 

F6F 

F 

FA8 

1485 


MVC 

SAYIT2+25C3),INSERT 

t 

01EC2 

OA DO 





1486 


SVC 

X * DO • 


01EC4 

AO 





1487 


DC 

X* AO* 


01EC5 

2D 





1488 


DC 

X * 2D * 

1 

f 

01EC6 

FF56 





1489 


DC 

AL2 C SAYIT2-SECN0+REG) 

f 

01EC8 

OA DD 





1490 


SVC 

X * DD * 


01 EC A 

0004 





1491 


DC 

AL2<4) 


01ECC 

0692 





1492 


DC 

AL2(DRAR-SECNO) 


01ECE 

0F7B 





1493 


DC 

AL2(SHUDRD+5-SECN0) 

1 

01 EDO 

D2 02 

F 

F6F 

F 

F6E 

1494 


MVC 

SAYIT2+25(3),SAYIT2+24 

01ED6 

OA DO 





1495 


SVC 

X * DO* 


01ED8 

AO 





1496 


DC 

X • AO * 


01ED9 

2D 





1497 


DC 

X * 2D * 


01EDA 

FF56 





1498 


DC 

AL2(SAYIT2—SECN0+REG) 


01EDC 

41 AO 

F 

F88 



1499 


LA 

R10,PRINTB 

SET UP TO LOOP 

01EE0 

45 BO 

F 

4A2 



1500 


BAL 

Rll,IOPOUT 

* * 

01EE4 

000000000000 



1501 


DC 

XL6'0• 

9 9 

01EEA 

47 FO 

F 

EA6 



1502 


BC 

UNC,EXIT07 


; 01EEE 

07 00 





1503 


CNOP 

0,4 








1504 

*********************************************************************** 







1505 

* ROUTINE 08 

- LOAD THE UCS BUFFER 

WITH A 16 CHAR. SET WITH FOLDING. 







1506 

* 


PRINT A LINE OF HEX 

CHARACTERS -80-, AND -C0-. THESE 







1507 

* 


CHARACTERS SHOULD BE 

! CONSIDERED VALID UNPRINTABLES IN 







1508 

* 


FOLDING MODE. NO DATA CHECK SHOULD BE SET. 







1509 

*********************************************************************** 

01EF0 

08 





1510 

R0UT08 

DC 

X *08 * 

ROUTINE NUMBER 

01EF1 

OOFFFF 





1511 


DC 

X*OOFFFF* 

ADDRESS OF NEXT ROUTINE 

01EF4 

45 40 

F 

720 



1512 


BAL 

R4,IN IT 

BR. TO INITIALIZE. 

01EF8 

92 F3 

F 

8E0 



1513 


MVI 

L0AD,X*F3* 

SET UP FOR FOLDING MODE 

01EFC 

45 50 

F 

8A6 



1514 


BAL 

R5,ECGNMY 

GO TO LOAD UCS ROUTINE 

01F00 

0330 





1515 


DC 

X*0330* 

TEST NUMB ER 
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001BC 

1605 

DM 10 

EQU 

444 

DMIO TABLE 

001 AO 

1606 

DMSSW 

EQU 

416 



1607 


END 
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POST ASSEMBLY DATA 


RELOCATION DICTIONARY 

LOCATION LENGTH 

01015 3 

0107C 4 

015E9 3 

015F0 3 

01719 3 

01801 3 

01809 3 

018E1 3 

01868 4 

01949 3 

01951 3 

01958 4 

01AF1 3 

01AF9 3 

01B00 4 

01B11 3 

01B18 4 

01C89 3 

01C91 3 

01C98 4 

01DF0 4 

01F89 3 

01F90 4 
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LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 
LABEL LEN VALUE DEFN REFERENCES 

AGAIN 4 0019A2 1147 1150 

ALL 1 000001 1559 0668 0710 0725 0734 0742 0758 0761 0790 0817 0943 1010 1020 1158 

1220 1230 1400 1440 

ALLOW 8 001C90 1296 1282 

ANY 1 000005 1560 0941 

ANYMOR 4 001D9C 1390 1394 

BADONE 2 001D94 1387 1372 

BASHED 27 001F3B 1532 1529 

BLAB 9 001B20 1187 1163 

BLAB1 16 001B29 1188 1167 

BLAB2 9 001E2A 1425 1405 

BLAB3 9 001FD9 1549 1476 

BLANK 1 0019FA 1176 

BLOCK 8 001C88 1295 1268 

BLOOP 4 001780 1019 1002 1041 

BYPS 13 001FE2 1550 1444 

CAW 4 001048 0519 

CCO 1 000008 1561 0690 0696 

CC1 1 000004 1562 0697 0754 

CC2 1 000002 1563 0698 

CC3 1 000001 1564 

CHAR16 16 001C15 1254 1062 

CHKRD 4 001B18 1185 1143 1185 1215 

CKAR 1 00166E 0988 1146 1184 1218 

CKMORE 4 001DAA 1394 1417 

CLUIN 16 0015F5 0986 1036 

CSW 8 001040 0518 

CYCLE 4 0019AA 1149 1175 

DARIO 2 001778 1014 1010 

DIDDO 4 001DD8 1410 1400 

DIDRED 4 001DF0 1419 1369 1469 

DIDTLE 4 0019£2 1168 1158 

DMI0 1 0001BC 1605 

DMSSW 1 0001AO 1606 

DOCKRD 8 001B10 1184 1138 1210 

DRAR 1 001692 0989 0990 1371 1391 1470 1492 

ECONMY 6 0018A6 1062 1200 1266 1313 1514 

EQ 1 000008 1565 0785 1002 

EQHI 1 OOOOOA 1570 

EQLO 1 OOOOOC 1569 

ERED 4 001BB4 1229 1220 

EXIT01 2 001944 1113 

EXIT02 2 0019C8 1156 1152 

EXIT03 2 001BB2 1228 1224 

EXIT04 2 001C80 1294 

EXIT05 2 001D00 1335 

EXIT06 2 001092 1386 1398 

EXIT07 2 001EA6 1472 1445 1502 

EXNPSW 5 001058 0521 

EXOPSW 8 001018 0513 

FERRO 16 001FAB 1545 1006 1007 1008 1011 1012 1013 1013 1017 

FLAG1 1 00100E 0509 

FLAG2 1 00100F 0510 

FOLDES 4 001D74 1377 1378 

GOMAN 6 001E4E 1446 1440 

GREG 4 001154 0689 0691 

HANGUP 6 0017AO 1026 1020 

HCAW 1 000048 1594 0662 0750 0939 

HCSW 1 000040 1593 0663 0663 0704 0726 0729 0763 

HI 1 000002 1567 

HION 1 000078 1604 
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HUNG 

16 

0017FE 

1051 

1033 







IACSNS 

11 

001570 

0972 

0766 

0906 

0907 

0911 

Q982 



I ACT 

3 

00155F 

0969 

0880 

0890 






IACTCC 

10 

00 150A 

0955 

0694 

0699 

0701 

0703 

0707 

0768 

0866 

IBLAH 

16 

001545 

0967 

0837 

0850 

0851 

0855 

0867 

0871 

0880 

IBSN 

6 

00128E 

0768 

0740 

0744 

0746 

0756 




ICAW 

12 

001533 

0964 

0828 

0831 

0832 

0836 




ICCOUT 

6 

0013A4 

0857 

0827 

0843 






ICCSW1 

6 

0012B0 

0776 

0775 







ICCSW2 

6 

0012D2 

0784 

0783 







ICCW 

3 

001542 

0966 

0837 







ICHNG1 

6 

0013E2 

0876 

0873 







ICHNG2 

6 

001412 

0886 

0875 







ICM 

2 

00 100A 

0506 








ICNT 

1 

00139F 

0854 

0838 

0868 






ICOUT 

2 

001388 

0846 

0841 

0877 

0882 

0887 

0892 



ICSW 

3 

00153F 

0965 

0867 







ICSW1 

8 

0015D2 

0980 

0704 

0726 

0741 

0776 

0776 

0881 


ICSW2 

8 

0015DA 

0981 

0729 

0745 

0784 

0784 

0891 



ICWOUT 

6 

00136E 

0840 

0845 







IDID 

4 

00141C 

0888 

0884 







IDIDI 

4 

0013EC 

0878 

0870 







IDOSNS 

4 

001238 

0747 

0738 

0742 

1037 





IDUNCK 

4 

0012E0 

0787 

0759 

0762 

0785 





IEXP 

3 

001562 

0970 

0871 

0885 






IEXPCC 

10 

001500 

0954 

0857 

0862 






IEXSNS 

11 

001565 

0971 

0893 

0898 

0899 

0903 




IFLAG1 

1 

001310 

0801 

0787 

0793 






IFLAG2 

1 

0014A4 

0932 

0788 

0794 






IHANG 

4 

001134 

0680 

0685 







IHI 

4 

00114C 

0687 

0679 

0683 






ILEAVE 

4 

0014C0 

0944 

0792 







ILINK 

16 

001523 

0960 

0806 

0809 

0810 

0814 

0938 



ILOKE 

4 

001278 

0763 

0754 







ILOOP 

4 

001124 

0676 








IMORST 

4 

001404 

0883 

0879 







INCCSW 

4 

001958 

1116 

1098 

1104 

1106 

1112 

1116 



INDER 

4 

0012DC 

0786 

0752 

0758 

0761 

0767 

0769 

0773 

0777 

INFRM 

4 

001DC0 

1399 

1393 







INIT 

2 

001720 

0994 

1090 

1129 

1199 

1265 

1311 

1347 

1419 

INDEX 1 

4 

001260 

0757 

0771 







IN0EX2 

4 

00126C 

0760 

0779 







INOW 

4 

0011A4 

0708 

0668 

0700 

0702 

0706 




INPSW 

5 

001010 

0511 








INSERT 

3 

001FA8 

1544 

1485 







INT3 

4 

0011F8 

0731 

0728 







IOADDR 

15 

001514 

0956 

0821 

0825 






IQ ADR 

3 

0015FD 

0983 

0820 







IOCSW 

6 

0013BA 

0867 

0817 







IOLOG 

16 

00157B 

0973 

0919 

0920 

0921 

0922 

0926 



I ONE 

4 

00118E 

0703 

0697 







IONPSW 

4 

001078 

0526 








IOOPSW 

8 

001038 

0517 








IOPOUT 

2 

0014A2 

0931 

0913 

0928 

1154 

1226 

1396 

1500 


I OPT 1 

16 

0015A0 

0976 

0934 

1006 

1012 





IOUTIT 

6 

001300 

0795 

0790 







IPAS 

6 

001434 

0893 

0889 







IPASS 

4 

00145E 

0912 

0895 







IRETRN 

4 

0011D4 

0723 

0527 







ISAVE 

8 

0014F0 

0952 

0661 

0948 






I SEN 

4 

001210 

0737 

0710 

0719 

0732 

0734 




I SENSE 

8 

0015E8 

0982 

0749 







ISIO 

6 

0010E6 

0659 

1067 

1100 

1108 

1133 

1139 

1205 

1211 





1359 

1365 

1381 

1452 

1459 

1465 

1520 

ISLAVE 

8 

0014F8 

0953 

0660 

0858 

1029 
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ISSUE 

4 

00116E 

0695 

0826 

0983 



ISV2 

6 

0011EE 

0729 

0725 




ISW 

2 

0010E4 

0655 

0692 

0692 

0693 

0705 





0735 

0739 

0743 

0757 





0894 

0927 

0929 

0942 

IT IC 

4 

001258 

0755 

0764 




ITIOLP 

4 

001250 

0753 

0755 




ITRY1 

4 

00111C 

0674 

0677 

0681 

0941 


1TRY2 

4 

00112C 

0678 

0675 




ITSTNO 

9 

001597 

0975 

0659 

0795 

0798 

0799 

ITWO 

4 

001186 

0701 

0698 




IUP 

4 

0014CC 

0947 

0945 




1WAIT 

4 

0011B4 

0712 

0736 

0930 



1ZER0 

4 

0011AO 

0707 

0696 




JOHN 

6 

001160 

0692 

0670 

0690 



LDAR 

1 

0019FB 

1177 

1022 

1023 

1023 

1024 





1353 

1353 

1356 

1446 

LDCSW 

4 

0018E8 

1076 

1071 

1076 



LDINC 

8 

001950 

1115 

1097 

1105 



LO 

1 

000004 

1566 





LOAD 

8 

001860 

1075 

0998 

1093 

1096 

1312 

LOADIT 

6 

0018B2 

1064 

1091 

1094 

1130 

1325 

LOGOUT 

1 

000080 

1571 

0666 

0666 

0914 


MCNPSW 

8 

001070 

0525 





MCOPSW 

8 

001030 

0516 





MITHED 

16 

001BE4 

1248 

1239 




MIXNON 

1 

OOOOOC 

1599 





M0D44 

4 

00110C 

0667 

0665 




M0D50 

4 

00181C 

1055 

1000 




MORGEN 

4 

001D14 

1350 

1352 




MSK1 

1 

0015F3 

09 84 

0715 




MSK2 

1 

0015F4 

0985 

0717 




MUMB 

2 

0018C6 

1069 

1064 




NCCO 

1 

000007 

1555 

0681 

0752 

0764 


NCC1 

1 

OOOOOB 

1600 





NCC2 

1 

OOOOOD 

1597 





NEVER 

1 

000000 

1554 





NIOU 

1 

00100D 

0508 





NITWIT 

4 

001730 

0999 

0996 




NMIXED 

1 

000009 

1595 





NOHDR 

4 

001BCC 

1240 

1230 




NONE 

1 

000008 

1557 

0670 

0675 

0679 

0683 





0792 

0843 

0870 

0879 





1152 

1224 



NOPTCK 

4 

0019CA 

1157 

1148 




NORM 

4 

001CA8 

1301 

1273 

1287 



NOT 

3 

001F83 

1536 

1008 




NOTZRO 

1 

000004 

1598 





OFF 

3 

001FD6 

1548 

1007 

1011 



PCLCSW 

4 

001B00 

1180 

1137 

1180 

1209 

1293 

PCLOAD 

8 

001AF0 

1178 

1132 

1153 



PGNPSW 

8 

001068 

0524 





PGOPSW 

8 

001028 

0515 





POS 

4 

001C11 

1253 

1169 

1170 

1174 

1241 

PRAR 

1 

001821 

1057 

1024 

1073 

1074 

1179 





1356 

1357 

1357 

1371 





1518 

1518 

1537 


PRE1NC 

8 

001948 

1114 

1099 

1107 



PRELD 

8 

0018D0 

1073 

1066 




PRINTA 

8 

001AF8 

1179 

1204 

1225 

1276 

1288 

PRINTS 

8 

001F88 

1537 

1451 

1458 

1499 


RDCCW 

8 

001718 

0990 

1364 

1464 



REG 

1 

OOFOOO 

1573 

0803 

0814 

0825 

0836 





1033 

1036 

1045 

1071 





1215 

1235 

1239 

1246 
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0708 

0711 

0714 

0718 

0723 

0724 

0727 

0730 

0733 

0760 

0765 

0772 

0780 

0786 

0789 

0878 

0888 

0894 

1019 

1027 

1028 

1039 

1040 






0803 


1062 1063 1063 1075 1114 1115 1178 1322 1350 

1447 1447 


1323 1324 1333 1334 1373 1513 1525 

1354 1374 1448 


0732 0738 0740 0744 0746 0771 0773 0779 0781 

0884 0889 0895 0928 0945 0996 1005 1148 1152 


1297 


1242 

1246 

1411 

1412 

1416 





1202 

1203 

1203 

1274 

1275 

1275 

1295 

1296 

1315 

1377 

1379 

1379 

1390 

1450 

1457 

1516 

1517 

1518 


1316 

1327 

1358 

1380 

1395 

1519 




0855 

0862 

0866 

0903 

0911 

0926 

0934 

0938 

1017 

1104 

1112 

1137 

1143 

1163 

1167 

1174 

1209 

1215 

1273 

1281 

1287 

1293 

1321 

1332 

1363 

1369 

1385 
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1385 

1405 

1409 

1416 





1524 

1529 



REGDUL 

4 

001FA4 

1543 

1446 

1457 



R0UT01 

1 

0018F8 

1088 

0512 




R0UT02 

1 

001968 

1127 

1089 




RGUT03 

1 

001B48 

1197 

1128 




R0UT04 

1 

001C28 

1263 

1198 




R0UT05 

1 

001CB0 

1309 

1264 




R0UT06 

1 

001D04 

1345 

1310 




R0UT07 

1 

001E34 

1436 

1346 




R0UT08 

1 

OOIEFO 

1510 

1437 




RTSAV 

1 

0018A5 

1058 

1021 

1026 



RO 

1 

000000 

1575 





R1 

1 

000001 

1576 

0687 

0688 

0691 


RIO 

1 

00000A 

1585 

0660 

0662 

0828 

0839 





1107 

1132 

1138 

1153 





1327 

1358 

1364 

1380 

Rll 

1 

OOOOOB 

1586 

0659 

0660 

0667 

0709 





0806 

0815 

0815 

0816 





0947 

0947 

0949 

1029 





1226 

1269 

1277 

1283 





1459 

1465 

1500 

1520 

R12 

1 

OOOOOC 

1587 

0676 

0680 

0684 

0689 

R13 

1 

OOOOOD 

1588 

0662 

0663 

0663 

0704 

R14 

1 

OOOOOE 

1589 

0664 

0712 

0747 

0912 

R15 

1 

OOOOOF 

1590 

0726 

0729 

0997 


R2 

1 

000002 

1577 





R3 

1 

000003 

1578 





R4 

1 

000004 

1579 

1025 

1090 

1129 

1199 

R5 

1 

000005 

1580 

0943 

1037 

1064 

1065 





1266 

1313 

1325 

1354 

R6 

1 

000006 

1581 





R7 

1 

000007 

1582 

1145 

1150 

1168 

1217 

R8 

1 

000008 

1583 

0661 

0749 

0750 

0774 





0874 

0875 

0948 

1218 





1378 

1387 

1387 

1391 

R9 

1 

000009 

1584 

0661 

0712 

0713 

0716 





0948 




SAME 

4 

001F90 

1538 

1456 

1463 

1538 


SAVDEV 

2 

0017FC 

1050 

1001 

1003 



SAV10 

4 

001818 

1054 

0839 




SAY IT 

16 

001DF8 

1421 

1409 




SAY IT1 

15 

001F2C 

1531 

1480 




SAYIT2 

16 

001F56 

1533 

1485 

1489 

1494 

1494 

SCAT 

2 

0017D2 

1042 

1005 




SCATEL 

16 

0017DA 

1047 

1045 




SDMF 

1 

00100C 

0507 





SECNO 

4 

001000 

0503 

0798 

0799 

0803 

0809 





0849 

0855 

0862 

0866 





0926 

0934 

0938 

1017 





1104 

1112 

1128 

1137 


■ * 



1239 

1246 

1264 

1273 





1369 

1385 

1405 

1409 

SHUDRD 

13 

001F76 

1535 

1484 

1493 



SKORCH 

1 

001C10 

1252 

1144 

1151 

1157 

1159 

SNSW 

4 

001004 

0504 

0669 

0674 

0678 

0682 

SOME 

1 

000004 

1558 





SRET 

3 

00105D 

0522 





STAY 

2 

00177E 

1018 





SVNPSW 

8 

001060 

0523 





SVOPSW 

8 

001020 

0514 





SYSMOD 

1 

000181 

1572 

0664 

0912 



TECT 

4 

001B8C 

1219 

1222 




TIC 

4 

001B94 

1221 

1247 




TSTELL 

9 

001C07 

1251 

1235 
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16A 

1444 

1456 

1463 

1469 

1476 

1480 

1489 

1498 

1524 

0840 

0842 

0844 

0844 

0858 

0939 

1029 

1066 

1099 

1204 

1210 

1225 

1268 

1276 

1282 

1288 

1316 

1327 

1395 

1451 

1458 

1464 

1499 

1519 




0731 

0737 

0766 

0768 

0770 

0774 

0778 

0795 

0805 

0857 

0869 

0872 

0883 

0893 

0944 

0946 

0946 

0947 

1067 

1100 

1108 

1133 

1139 

1154 

1205 

1211 

1226 

1289 

1317 

1328 

1359 

1365 

1381 

1396 

1452 

1459 

0695 

0751 

0753 

0999 

1000 

1001 

1003 



0750 

0763 

0939 

0994 

0994 

0997 




0995 









1265 

1311 

1347 

1438 

1512 





1065 

1072 

1091 

1094 

1130 

1146 

1147 

1149 

1200 

1374 

1389 

1390 

1391 

1394 

1410 

1448 

1514 


1222 

1240 

1349 

1350 

1351 

1388 

1388 

1390 

1392 

0775 

0782 

0782 

0783 

0804 

0805 

0872 

0873 

0874 

1219 

1221 

1348 

1350 

1352 

1376 

1377 

1377 

1378 

1392 









0747 

0748 

0755 

0841 

0856 

0877 

0882 

0887 

0892 

1498 









0810 

0814 

0820 

0821 

0825 

0831 

0832 

0836 

0848 

0898 

0899 

0903 

0906 

0907 

0911 

0917 

0918 

0926 

1021 

1026 

1033 

1036 

1038 

1045 

1071 

1089 

1104 

1143 

1163 

1167 

1174 

1198 

1209 

1215 

1235 

1239 

1281 

1287 

1293 

1310 

1321 

1332 

1346 

1363 

1369 

1416 

1437 

1444 

1456 

1463 

1469 

1476 

1480 

1483 

1216 

1223 

1229 

1231 
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1399 

1401 
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UNC 

1 

OOOOOF 

1556 

0677 

0685 

0700 

0702 

0706 

0719 

0728 

0736 

0756 

0759 

0762 

0845 

0856 





0930 

0949 

1025 

1041 

1072 

1175 

1247 

1398 

1417 

1445 

1502 



UNEQ 

1 

000006 

1568 

0665 

0767 

0769 

0777 

0827 

0913 

1372 

1393 

1471 





UNIT1 

1 

0010E0 

0529 

0999 

1004 












U1ADDR 

2 

0010E2 

0531 














U10P 

1 

0010E1 

0530 














WANT 

1 

00005A 

1592 


» 












WHAT 

1 

00005A 

1574 














WORK 

1 

0014D8 

0951 

0840 

0848 

0849 

0850 

0851 

0876 

0876 

0881 

0886 

0886 

0891 

0914 

0917 





0918 

0919 

0920 

0921 

0922 

1168 

1169 

1240 

1241 

1410 

1411 



WT 

1 

000198 

1591 

0687 

0712 

0747 











XF8325 

1 

001000 

0003 














XLTDUL 

4 

001FA0 

1542 

1450 

1470 

1483 











XLTERR 

2 

001EA8 

1473 

1471 













Z 

1 

000008 

1596 














ZE1DER 

4 

001C98 

1297 

1281 

1321 

1332 

1363 

1385 

1524 
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OBJECT DECK LIST. PERIODS CORRESPOND TO BLANK COLUMNS. 


COLS. 1 

THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 f 

BESD. 

9 

• AA. 
YQ 
99 

•AAXF83 

Y9 

9 

25.•AAAA.AGP. 

YYQY Y8Y 

9999 999 

.840 

109.131812..83250001 

BTXT.AAA. 

• A8. 

•AA82&A 

AAAAAAAAAACAADAAAAQ8 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA83250002 

9 YQY 

Y9 

Y9 9 Y 

YYYYYYYYY9-Y99YYYY9 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 

i 999 

9 

9 9 

999999999 9 9999 

99999999999999999999 

999999999999 

BTXT.AA8. 

• A8. 

• AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

aaaaaaaaadaaaaaaaaaa 

AAAAAAAAAAAA83250003 

9 YQ9 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYY9YYYYYYYYYY 

YYYYYYYYYYYY 

99 

9 

9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 

BTXT.AA8. 
9 YQ- 

990 

. AA. 

YQ 

99 

.AAAAAA 
Y9YYYY 

9 9999 

AAAAADAAAAJM. 

YYYY99YYYY9 

9999 9999 



BTXT•AAS• 

• A3. 

•AACAAA 

AAKA5DABAL48AI40CNAH 

PG-.-.EAJAG-1DPCAAAA 

AAAAGA1MACOD83250005 

9 YQ8 

Y9 

Y90YYY 

YY 9 QQ9QY QO YYZ 

90 0 -QZOZ 8 8YYYY 

-YQYZQ 0— 9 

99 

9 

9 9 9 

99 0 9 

Z 9 99 9 

09 9 

BTXT.AJQ. 

• A8. 

•AAGA1- 

AAODGAIUDACAGOIMA.OD 

GA1DEACAGG1MA.0DGA1D 

DACAG014H0AH83250006 

9 Y99 

Y9 

Y9ZY 

-Y 9ZY 8QY-YZ 8- 9 

ZY 8QY-YZ- 8- 9ZY 8 

QY-YZ 9R89- 

9 

9 

9 

9 9 9 9 

9 9 0 9 

9 9 9 

BTXT.AJC. 

• A8. 

.AAHAAC 

EA8AGA1-FA1DPA0U0UFA 

0UBX5GDACAGA1JG.1FGJ 

1FB35GG01MB283250007 

9 Y9 

Y9 

Y90QY9 

QY-YZY ZQ R 9 -Y 

- 8QY-YZY YZ YZY 

0- 8Z 0- 

9 

9 

9 99 

9 9 9 

9 9 9 9 

9 

BTXT.AJH. 

• A8. 

•AA5GG0 

1MB15GKG5K-.F.0UG01M 

B05GD70UA.AAGA2AFA0U 

HFAHHAACFA0U83250008 

9 Y90 

Y9 

Y9 8Z 

0- 8 9 0 - Z 0 

- 8-8 - QYZQ Q-Q 

RQ9-0QY9-Y ; 

9 

9 

9 9 

9 

9 09 9 9 9 

9 ■ 1 

! BTXT.AJ&. 

. A8. 

•AAAA53 

FA1DAA54D70UG02AD70U 

A•0UGA10KG5K0.F.OUGO 

18KG5BO•FJ0U83250009 

9 Y9- 

Y9 

Y9YY 

ZQ YY -8 Z Q-8 

ZQ Y 9 - Z 

9 Q -Y 

* 9 

9 

9 9 

9 9 

9 9 

9 9 

BTXT.AJ8. 

• A8. 

.AAAAAA 

GA2AAHOUGA2AFHOUGOID 

ABAAGA28A.0UGA2FAB50 

GA28AJ0UGA2F83250010 

9 Y9 

Y9 

Y9-QQY 

ZY Q-9 ZQ Q-9 Z - 

-9QYZY 9- ZY Y-9 

ZQ 9—Y ZY Y 

9 

9 

9 909 

9 9 9 0 

09 

9 9 

BTXT.AKA. 

• A8. 

•AAAB5F 

GA2FHFAHHAADAA5YGEAH 

DACAGC2DEA&AG.2HFA2C 

G02FA.0UGA2D83250011 

9 Y9Q 

Y9 

Y9-9 Q 

ZY YRQ9-0QY9ZY YYZ 

QY-YZ- QQY-YZ RZQ 

Z Y- ZQ Q 

9 Z 

| 

9 

9 9 

9 9 

9 9 0 9 9 9 0 

9 9 

1 BTXT.AKQ. 

• A8. 

•AAG02S 

AJ0UGA2DG02SED-DG&2H 

FD0UNA5EAEG-2DNA5GAD 

G-2DAHAAGA2-83250012 | 

9 Y9Z 

Y9 

Y9Z 8 

-Y ZQ QZ 8-80ZZ- R 

-9 Y RQ9Z Q Y 8Q9 

Z Q-9QYZY 

i 9 

9 

9 

9 9 9 9 0 

9 00 99 90 

9 09 

BTXT.AKJ. 

• A8. 

•AAA.OU 

GA2DHCAF.A2DNG5K5KG- 

2DADAAGA2UAJ0UGA2DAH 

AH.A20NG5B5B83250013 

9 Y9Y 

Y9 

Y9- 

ZY QZYY9 Y - 9 Z 

Q-9QYZY 8-Y ZY QZO 

Y9 Y 9 Q Q 

9 

9 

9 

9 9 0 

9 09 9 9 

9 9 9 

BTXT.AKQ. 

• A8. 

•AAGA2S 

FA0UBM3AB84MAA0UGA3A 

AA0DGA4CBU3ABA4MKA5D 

ABBEABEDEDB-83250014 

9 Y9 

Y9 

Y9ZY 8 

-9 -Z Q— 0—9 ZQ Y 

-9 9ZY —9 Q-Y 0 9 Q 

Q98QY99Q9Q80 

9 

9 

9 

9 9 9 

9 

0 999 9 
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BTXT.ALA., 

»A8. 

•AAMA5G 

9 Y9Q 

Y9 

Y9Z8 - 

9 9 

9 

9 9 

BTXT.ALH. 

• A8. 

• AA1WG- 

9 Y9Z 

Y9 

Y9 8Z 

9 

9 

9 

BTXT.ALA. 

• A8. 

•AAAKAH 

9 Y9Y 

Y9 

Y9ZYY9 

9 

9 

9 9 

BTXT.ALH. 

• A8. 

•AA5BKB 

9 Y9- 

Y9 

Y9 8 9 

9 0 

9 

9 9 

BTXT.ALO. 

• A8. 

•AAGA4D 

9 Y9 

Y9 

Y9ZY 9 

9 

9 

9 

BTXT.AMY. 

• A8. 

•AA5PKG 

9 Y99 

Y9 

Y9 8 9 

9 

9 

9 

BTXT.AM-. 

• A8. 

•AAJAG- 

9 Y9 

Y9 

Y9Z0Z 

9 

9 

9 

BTXT.AMH. 

• A8. 

•AA4KDE 

9 Y9- 

Y9 

Y9 0-Q 

9 

9 

9 Z 

BTXT.AM-. 

• AH. 

•AAH140 

9 Y90 

Y9 

Y9-0 

9 

9 

9 

BTXT.AMO. 

• A4. 

•AAAAAA 

9 Y9 

Y9 

Y9YYYY 

9 

9 

9 9999 

BTXT.ANT. 

• AJ. 

•AA.ADR 

9 Y99 

Y9 

Y9 

9 

9 

9 

BTXT.AN3. 

• A8. 

.AA.CAW 

9 Y99 

Y9 

Y9 

9 

9 

9 

BTXT.ANT. 

• A8. 

•AAX.EX 

9 Y98 

Y9 

Y9 

9 

9 

9 

BTXT.ANL. 

« A8« 

o 

• 

o 

• 

< 

< 

• 

9 Y90 

Y9 

Y9 

9 

9 

9 

BTXT.ANC. 

• A3. 

•AAAAAA 

9 Y9Q 

Y9 

Y9YYYY 

9 9 

9 

9 9999 

BTXT.APO. 

. A8. 

•AAAABA 

9 Y99 

Y9 

Y9YY9Y 

9 

9 

9 99 9 


AAADLHGA5YBEACE/EYB- 
ZYY98- Q 98QY9989980 
9 90 0 999 9 9 

3M6J58BEACE1E8B-SC53 
0 Y 98QY998998088 9 
999 999 

G03WBEAHDQDQKG5B4QKG 
Z 88QY99 998 9 

999 

5F57BK3GAHAAGA3MKB5M 
Z 8-8 Q-9QYZY Y 9 8 
9 9 09 9 

KB5M5PKG4Q5KEA3HADAA 
9889 ZQ 0-9QY 

09 

4Q5BEA3HKA5EAEAD0UGA 
QZQ 0 Y —Q9-9 ZY 
9 9 0 

4KKC4QAABEADDQDQKA5A 
0 8 YY8QY89 9 9 Y 

9 9 9999 

0UG01DB-G25JB-JA5TGN 
Z -80—9 Y80Y9 9 Y 
09 9 

GCGA. 

9Q9Y 
Z 9 

AAAAAAAAAAAA.CC..X.E 

YYYYYYYYYYYY 

999999999999 

•XXXXXX.LINKA. 

Y 

9 


N.FOR.LOOP.ON.SIOT.S 
8 


AAAAAAAAADANEAAAAAJW 
YYYYYYYYY9Y9RYYY9Y98 
999999999 9 0999 9 

QBAAADLEA.JFGA7AQGBC 
9—YYY08Q— Z-ZY Q9Q-Q 
999 99 Z 9 Z 


SA5TACADAAAAGA3BBEAC 
8Q 9ZQY9-YQYZQ Q8QY9 
9 09 09 9 0999 

KB5F5BB03GGJ8QKG4QJA 
9 Z Z-9 Q Y 9 9 YY 
9 

5C4SB-SK5EG9KA5EADHJ 
R 88088 Z9 Y 9Q9RY 
9 9 9 0 

5KHCAF.A3WAHAH.A40KG 
ZZYY9 Y Z0Y9 Y 9 9 
9 9 

GA4MKB5M5KKG4Q4QEA3H 
ZY 8 9 8 Z 9 ZQ 0 
9 

40BEAAEGEEB-SC5NBEAA 
88QY99-9—8088 Z8QY9 
999 9 9 999 

4QKE5C4BKE5B4SKE5A4K 
90Q9Y 9 - Y 

9 9 

AHA&0DG&1MAA0VGNAHAA 
YZ— 9Z 8-9 99-9QY 

9 9 09 


XP.eC. .X.ACT.ADR.XXX 


S.l.ON.FOR.TIO.SIO.L 


FA.SEE.DESCRIPTION-C 

Q9 

Z 

8SH60SD68MA67DGA7A.G 
8R- 8R— 88- QZY Y - 
9 Z 


EOEJB-SG5MED83250015 
9 988088 9-Q 
99 9 

EA3HAGJDGA3M83250016 
ZQ 0—Y9ZY 0 


48B-SB5AB-SB83250017 
8088 Y8088 
9 9 99 9 

4Q4QEA3HA.0U83250018 
ZQ 0- 


AJ0UGA44KB5M83250019 
-Y ZY 9 9 8 
9 

EEEEB-SC5GEA83250020 
9R9R8088 —Q 
0 09 9 0 Z 

B-SM53AB0UGA83250021 
8088 8-9 ZY 
9 9 

GA4DACABACAF83250022 
ZY YZQY9ZQY9 
9 09 09 

.83250023 


XXX.SIOA....83250024 
Y 
9 

.83250025 


00PAAAAAAAAA83250028 

YYYYYYYYY 

999999999 

OMMENTS.83250029 


7DAA0JGA7KKB83250030 
Q-Q ZZY 9 
Z 9 


.XXXXXX.CSWCCW.CSW.X XXXXXXX.XXXXXXXX.EXP ACTEXP.SNS.X83250026 

P.SNS.XX.ACT.LOG.XX. XXXXXX.XXXXXX.XXXXXX •TST.XXXX•SS83250027 
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BTXT.APF. 

. A8. 

• AAGI50 

9 Y98 

Y9 

Y9Q— 0 

9 

9 

9 ZO 

BTXT.APF. 

• A8. 

•AA7JKA 

9 Y90 

Y9 

Y9 Y Y 

9 

9 

9 9 

BTXT.APF. 

. A8. 

•AAEG28 

9 Y9Q 

Y9 

Y9Z 9 

9 0 

9 

9 

BTXT.AP6. 

.AT. 

•AANEDA 

9 Y9 

Y8 

Y9 Y 

9 

99 

9 9 

BTXT.AQN. 

. A8. 

•AAAKG9 

9 Y90 

Y9 

Y9Y 8 

9 

9 

9 9 9 

BTXT.AQE. 

• A8. 

•AAAAAC 

9 Y9Q 

Y9 

Y9YY9Q 

9 9 

9 

9 99 Z 

BTXT.AJN. 

• A8. 

.AAP9GB 

9 Y89 

Y9 

Y9Y R- 

99 

9 

9 9 

BTXT.AJE. 

• A8. 

.AAAAAC 

9 Y 88 

Y9 

Y9YY9Q 

99 

9 

9 99 Z 

BTXT.AJE. 

• A8. 

•AAAAJC 

9 Y80 

Y9 

Y9YZYQ 

99 

9 

9 9 Z 

BTXT.AJE. 

. A8. 

•AA0EA4 

9 Y8Q 

Y9 

Y9 ZQ 

990 

9 

9 0 

BTXT.AJ5. 

. AF. 

•AAJG09 

9 Y8 

Y9 

Y99Z 

99 

9 

9 

BTXT.AKL. 

• A8. 

•AAAAAA 

9 Y8Y 

Y9 

Y9YYYY 

999 

9 

9 9999 

BTXT.ALT. 

. A8. 

.AAT.00 

9 Y89 

Y9 

Y9 

99 

9 

9 

BTXT.ALL. 

. A8. 

•AAB8S8 

9 Y88 

Y9 

Y90 9 

99 

9 

9 

BTXT.ALC. 

. A8. 

•AADFAC 

9 Y8- 

Y9 

Y9-ZYQ 

99 

9 

9 0 Z 

BTXT.ALC. 

• A8. 

•AAUFG4 

9 Y8Y 

Y9 

Y9 8- 

999 

9 

9 0 


KBGDG0KBGCGCAA0GGA7H 
9Q Q 9QYQ0-Y 9ZQ R 
Z Z Z9Z 9 0 

8N0CB.9CKP9D9CKC8/9C 
0 9- QYQQ09Q 
Z 9 Z Z Z 

BA0CDF0VBA0UG07AB-DP 
-9 9-Q -Y Z Y8098 
Z 9 9 9 

GAGG.PREVIOUS.HANG.U 
9YQQ 


CDNKGBC9CKA8FGAAEABA 
QQ9 QQ8 Q 9 YZRY9Z 
ZZ 9Z9 Z 99 

AJCAAAOAAQYHAAAAAAAD 
Y8QYYY YY9 9YYYYYYY9 
99Z999 99 9999999 

A9PAJ9HEA0W6AAA0A9HB 

Y 8ZY ZZQ 8YYQ Y R- 

9 0 999Z 9 

AJCAAAOAAJHH.AAAAAAD 
Y8QYYY YY8R9 YYYYYY9 
99Z999 999 999999 

AEA0W8AAG0ACQBADAAGA 
QZQ 9YY- QQ9-YQQZ-Y 
9 0 990 9Z 9Z9 09 

KAAAAAAB0AADAGA9SFAD 
0YYYYYY8 -9QQZQ -9Q 
9999999 Z9 9 Z 

K.. 

Y 


ALAJC.AAAAAQ/AAADAAL 
YYY8Q YY99Y99YYY0YY8 
9999Z 99 9 999 999 

80.FAILED.TO.SET.PRT 


/AJB8EA0W4AAA0HCAAJC 
9ZYQ ZQ 8Y9Y 9QYZYQ 

Z 0 99 9 Z9 Z 

HFGCDAADAGACBAJB8EA4 
-Z-QY-9QQZYQ-ZYQ ZQ 
OZ Z9 ZO Z 0 

Q3/DK4FF0DMB-JDDJG0C 
9Q9 Q- Q980Y9Q9Z Q 

Z 9 Z 9 Z Z 


KBGIG0KBGD50KBGCGBB- 
9Q-Q 9Q 0 9QYQY80 
ZOZ Z Z9Z99 

G4KA0C8ND70UFA0VHL48 
9 Y 9 0-8 -9 -Y 

9 

7BBN.DEVICE.BYPASSED 
Q8 
99 

P.DETECTEDAAAAAA7G.. 

YYYYYY8Q 

9999999Z 

J8-EA0W6AAA0A8YG5AAL 
Y OZQ 8YYY Y 9 YYY 

0 9999 9 999 

AAAAAAQE.7JEG8BAAB38 
YYY9Y8ZZ YZ -YQ- 
999 99 9 099 

19GBA9PAJ9HEA0W6AA.0 
R—9 8ZY ZZQ 8YY 
0 999 

AAABACHE.7JEG8BAGAJ8 
YYY9Y8ZZ YZ -Y ZYQ 
999 99 9 09 Z 

DAG6AABGAGA9BFG90FG9 
OZ —9 YZY YZ YZ- 

9 9 0 

AB-MACJB-JPC/FG4Q3/D 
Q80Z8QY80Y8Q88- 9Q 
99 9Z99 9Z9 0 Z 


AHAAAAAAAFAAAFAOFJAA 
Y9YYYYYYY9YYY9Y98YYY 
9 9999999 999 9 9999 

•CHECK.IN.POSCADYE.7 
9Y89Z 
99 

AEA0W8AAA0ACQBADAAGA 
QZQ 9Y9Q QQ9-YQQZ-Y 
90 9 9 9Z 9Z9 09 

KAAAAAABOAADAGACDFAD 
0YYYYYY8 -9QQZQQY-9Q 
9999999 Z9 9Z9 Z 

D.PLC.BIT.ERRONEOUSL 


DTGLBBAA0UGA83250031 
98QY8Q-Y ZQ 
9Z 99 9 

B-MK7FB-JJ5583250032 
80Z8 Q80Y8 
9 9 Z9 9 

-NO.UCS.DEFI83250033 


83250034 


AQ/.AAA3AQ/.83250035 
Y99 YY98Y99 
9 99 9 

SEG8BAJBC8SB83250036 
8Z -YY-Q 8- 
099 Z 

A9HB0AALAJC.83250037 
Y R8 YYYY8Q 
9 9 99999Z 

0EA0W4AA-0AC83250038 
ZQ 8YY CQ 
0 999 9Z 

KAADAGA9HAJB83250039 
0-9QQZY ZYQ 
Z9 Z 

K4FF0DMB-JDD83250040 
9 Q- Q980Y9Q 
9 Z 9 Z 

.83250041 


DAALQFAAA.TS83250042 
0YY898YYY 
999 9999 

JEG80AABA8/K83250043 
YZ OYQ- 9 
9 9 

DAA6AADAAGAC83250044 
OZY —9YYZQQ 
9 9Z 

AB-MADGB-JTC83250045 
Q80Z8Q980Y9Q 
99 9Z 9 Z 

Y.ON.IN.POSI83250046 
















© c 
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BTXT.AMC..A8..AATI0N .TST.0120A.XXX012345 6789BCDEFGAGAQADAE.7 JEG80AAAJDHE83250047 

9 Y89 Y9 Y9 Y QQQQQQY9Y9Y8QZ YZ 09QZYQ0Z 

99 9 9 9 ZZZZZZ9 9 990 9 Z Z 

BTXT.AM3.•A8.•AAAOWB AA.1ADQBA8/KB8S8/AJB 8EA0W4AACOADHAJDAEAO WBAA-1ADQAJB83250048 

9 Y88 Y9 Y9Q 8 Y9 YQO- 909 9ZYQ ZQ 8Y9 YQ-ZYQCZQ 8Y9 YQOZYQ 

999 9 9 0 9 9Z Z 0 99 9Z Z 0 9 9Z Z 

BTXT.AMC..A8..AA8EA0 W4AA60HCAB0AAAAAACAQ /AAAA3AQ/AAAAAALAHAA AAAAADAAAAAA83250049 

9 Y8R Y9 Y9 ZQ 8Y9- 9QY8 YYYYYYRY9 9YYY98Y99YYY9YY8Y9YY YYYYY9YYYYYY 

990 990 99 0 Z99 99999909 999 9 999 9999 99 99999 999999 

BTXT.AML..A8..AAADAA AEAEDE.7JB08XE680AAB 18/AJB8EA0W6AAA0ADHB .9CBA8XBJ8UE83250050 

9 Y8Y Y9 Y9Y8YY Y9Y89Z Y- Z 09Y- 9ZYQ ZQ 8Y9Q YQ— Q-9 -Y Z 

99 9 9 9999 9 99 9 Z 0 99 9Z Z 9 

BTXT.AMT..A8..AAG8BB AAJB8EA0W6ABA0ADHB08 XBA8UBQGAFAF4E.7JAAA AA6A0BH9BF8E83250051 

9 Y8 Y9 Y9 -9 YZYQ ZQ 8Y9Q YQ— -Y 8 9Y9Y89Z YZYY QZ-Y ZR QZ-Q 

99 9 9 0 9 Z 0 99 9 9Z 9 9 9 99 9 9 Z 09 0 Z OZ 

BTXT.ANL..A8..AAMFAE MKGBT9CEC8BBJKX8/9CK C8A8/AJB8EAOW6ABAOAD HAJ7QEA0W2AB83250052 

9 Y88 Y9 Y98ZYQ 9 QQ8 QZ -9Y 8 9 Q R R 9ZYQ ZQ 8Y9Q YQ -ZY 9ZQ 8Y9 

999 9 9 9 Z 0Z9 Z099Z Z0 99 Z9Z 0 99 

BTXT.ANC..A8..AA.OAE 0BADANC8/6BG-EDB38SE G8BB-AAAABH8JFAEDKC8 A8/AJB8EA0W683250053 

9 Y8R Y9 Y9 YQ -YQQ 0 9 -Z Q— 8Z -9 ZYYQZO YZYQR R R 9ZYQ ZQ 8 

99 9 9 9Z 9Z9 Z 0 9Z 9 ZO Z 0 9 

BTXT.ANC».A8.•AAABCO ADHBOLHLGAGADCE8JCE6 AJHG-ECFCEDAJB8EA4KA AAAAAGOEBAAD83250054 

9 Y8Y Y9 Y9Y9- YQ-8 808RZ YOZR YZO -8RZ Q-Z QQZYQ ZQ OY YYYYYZ Q—9Q 

99 9 990 9Z 99 90 909 90 Z Z Z09 99999 Z Z 

BTXT.ANC..A8..AAAGAE QFADAB-MAFSB-J2E8FC4 Q3/DK4FF0DMB-JDDJGOE KAAPJDAAA.TR83250055 

9 Y8 Y9 Y9QZQQ -9QQ80Z8Q880Y9Q 8 9Q9 Q- Q980Y9Q9Z Q YYY9Y8YYY 

99 9 9 9 9Z Z99 9Z99 Z Z9Z9ZZ 99 99999 

BTXT.ANC..A8..AAANSL ATOR.OR.BUFR.OPERATE D.INCORRECT.IN.POSIT I ON.TST.025083250056 

9 Y8Q Y9 Y9 

99Z 9 9 

BTXT.A03..A8.•AAAGAF 0E.7JAA0GGAFFB-DEGSG 0F0KC9CGMKGBT9CEC8BB AKC8/GJAJGHE83250057 

9 Y89 Y9 Y9Y9Y8 Z Y-Y 9ZQQ88098Q Z QO 9 QQO QQ8 QZ -9 Y 9 9QYZYQ0Z 

99 9 9 9 99 9 9Z 9 9Z 1 11 0Z9 Z 0 Z Z 

BTXT.AOT.•A8..AAA0W4 ABA0AGAKC8/GMAJGHEAO W4ACA0AGAAJ7QEA0W8AC A0AE0NC6BGJG83250058 

9 Y88 Y9 Y9Q 8 Y9Q YQQ 9 9Q0ZYQ0ZQ 8Y9Y YQQZY 9ZQ 9Y9 Q YQ 9 -QYZ 

99 9909 9 9Z ZZO 99 9 9Z 09 9 9Z Z 

BTXT.AOL..A8.•AA-FQB QB-MAGRB-JGGUBEADGJG 3KBGXGQB-JVGFBEADFBG 3KBGXGWB-JVG83250059 

9 Y80 Y9 Y9 Q08 80Z8Q 80Y8Q88QY98Y8 8 9Q8Q080Y8QR8QY99-8 8 9Q8Q880Y8Q 

99 9 9 Z 9 9 9Z 9 9Z9999 99 Z 1 9 9Z 999 9 Z Z 9 9Z 

BTXT.ADC..A8..AAFAJG HEA4KAAAAAAG0F0GAHAG GE.7JB38SEC80CABA8/B C8SK.8T8/AJB83250060 

9 Y8Q Y9 Y9RZYQ OZQ OYYYYYYZ Q09Y9YQ QZ Y- 8Z 09Q-Y 9- - 9 9 9ZYQ 

999 9 9 Z 0 999999 Z 9 9Z Z 9 Z Z 

BTXT.APL*.A8.•AA8EA0 W4AC.0ADHBC8SB-DLG3B 0.DUALING.FAILED.RES TORE.UCS.BUF83250061 

9 Y89 Y9 Y9 ZQ 8Y9 YQ—Q 88098Q88 

99 9 9 0 99 9Z Z 9 9Z99 

BTXT.APC..A8..AAR.WI TH.F837.DATA.BUFR.PO SITIONS.1-4.CONT AIN.XXXXXXXX83250062 

9 Y88 Y9 Y9 

99 9 9 
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BTXT.APC..A8..AAN0TA AAAQ/JAADAAPAHAAAAAA ADAAAUD34EN65SHD.SEC .SS.24.IS.0F83250063 

9 Y80 Y9 Y9 Y Y9Y99YYY9YY8Q9YYYYYY Y9YYY88888888 

99 9 9 9 99 999 999 999999 9 999 

BTXT.APC..A4..AAF.SE T.IT.OFF.IF.NOT.DUAL INGOFF.TST.0320.RTN. BYPASSED....83250064 

9 Y8Q Y9 Y9 

990 9 9 

BRLD.A4....AAAA AAANEAA4AANZAANOAAPJ AAQJAAQRAAQJEAQYAAJA AAJADAJH....83250065 

9 Y9 Y9Y9 8YQ98YQ88Y9 8Y9 8Y98 8Y9 8Y9 8Y9Z8Y9 8Y88 8Y8R8Y8R 

9 99 999 999 99 99 99 9 99 99 99 99 999 999 999 


BRLD.AA....AAAA AAK1AAK9EALAAALJEALQ AAMIAAMAEAMHEANOAAPI DAPA.83250066 

9 YQ Y9Y9 8Y8 8Y8 8Y8Y8Y898Y89 8Y808Y8-8Y8-8Y8 8Y80 BY8Q 

9Z 99 999 999 9999999 999 999 999 999 999 999 999 

BEND. . . .83250067 

9 

BLDT. . . .83250068 

9 
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1403 RIPPLE PRINT TEST 


1403 RIPPLE PRINT TEST 
DESCRIPTION 

TABLE OF CONTENTS 

1. PURPOSE.. 

2. REQUIREMENTS . 

3. OPERATING PROCEDURE . 

4. PRINTOUTS ... 

5 COMMENTS ....... . 

1. PURPOSE 

1.1 INTENT. 

TO PRINT ALL CHARACTERS IN EVERY PRINT POSITION BY MEANS OF A RIPPLE 
PATIERN. TO INDICATE BY PRINT POSITION, ALL DETECTED FAILURES. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS. 

THE SECTION IS RELOCATABLE. 

THE EXCLUSIVE CPU FLAG IS ON. 

A DIAGNOSTIC MONITOR MUST BE USED TO CONTROL THIS PROGRAM. 

THE UNIT DEFINITION TABLE-UOT-ENTRY MUST BE PUNCHED AS FOLLOWS. 


* UNIT CODE * * * 

----—— * OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * * * 


* UNIT *ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 

—---.*—*-*—--*--*-*—-*----—--— * —-* 

* 1403 PRINTER*83*ASCII*SEL * *UNIV. * HI- * 120 * * 2821 * 

* OR * * *TAPE * *CHAR. *SP£ED *PRINT * *2 CHNL * 

* 1404 PRINTER* * *LI$T£R* *BUFF. *PTR. *P0$. * +SWITCH * 

* CONTINUOUS ********* * 

* FORMS * * * * * * * * * * 


2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE FOR PROGRAM LOADING* 
OUTPUT DEVICE OTHER THAN TEST DEVICE . 
4K OF STORAGE FOR THIS PROGRAM. 

CPU 

CHANNEL 

OPERATING PROCEDURE 

3.1 PROGRAM LOADING* 

STANDARD AS DESCRIBED IN USERS GUIDE. 

3.2 PROGRAM OPERATE. 


********^*,s : * + #* +J (, +J{t *4:*«^ ++ * NOTE ***************************** 

* IF 2 CHANNEL SWITCH FEATURE INSTALLED, DISABLE THE UNUSED * 

* INTERFACE TO PREVENT NOT READY TO READY STATUS FROM BEING * 

* PRESENTED TO THE OTHER CHANNEL. * 

**********#$********** 3 ***************************************** 
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4.2 STATUS MESSAGES j 

4.2.1 SAMPLE ERROR PRINTOUT FOR UCS PRINTER 1 

LINE MESSAGE j 

! 

01 -*$D0 F8363 01 001400 0QE- j 

02 - TST 0020- | 

03 - ADR 001D52 LINK- | 

04 - ADR 001142 SIO- { 

05 - CAW OOl£10- | 

06 - CCW E8001A5D 00000001- 

07 - CCW 09001A5D 00000084- 

08 - CC 0 EXP- ? 

09 - CC 0 ACT- I 

10 - CSW 00001E20 08000000 EXP- J 

11 - CSW 0OOO1E2O 08000000 ACT- i 

12 - CSW 00000000 04000000 EXP- ; 

13 - CSW 00000000 06000000 ACT- f 

14 - SNS OO EXP- ; 

15 - SNS 10 ACT- | 

16 - LOG 00 O0OO0O 000000 000000- j 

17 - UCS ADDR 001 TO 016 CONTAIN 00 THRU OF REST BLANKS- { 

18 - PRINT SHD PRT PAR- | 

19 - POS WR RD RD PLC CHK CHK- j 

20 - 132 03 03 03 1 1 0 - j 

21 - 131 02 02 02 1 1 0 - | 

22 - 130 01 01 01 1 1 0 - t 

23 - SS 0 ON FOR LOOP ON SIO- \ 

24 - HLT j 

- IN FOLDING MODE- . I 

| 

THE ABOVE MESSAGE WILL OCCUR IF THE UCS BUFFER WAS LOADED WITH 
FOLDING, AND a PRINT ERROR IS DETECTED. THE MESSAGE WILL APPEAR 

BETWEEN LINES 17 AND 18 OF THE SAMPLE PRINTOUT. j 
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04 THIS LINE SHOWS THE ADDRESS OF THE START 1-0, TEST 1-0, 

OR HALT 1-0 THAT WAS ISSUED IN THE 1-0 HANDLER SUB-ROUTINE* 

05 THIS LINE SHOWS THE AODRESS OF THE CCW TO BE ISSUED BY 

A START 1-0 COMMAND. IF CCWS ARE CHAINED, THE AODRESS 
GIVEN REFERS TO THE FIRST CCW IN THE CHAIN. 

06 THIS LINE DISPLAYS THE FIRST CCW. THE FIRST BYTE CONTAINS 

THE COMMAND CODE. THE NEXT 3 BYTES CONTAIN AN ADDRESS IN 
STORAGE, WHICH WILL BE USED IF DATA TRANSFER IS PERFORMED. 
THE NEXT BYTE CONTAINS FLAGS USED BY THE CHANNEL. THE LAST 
3 BYTES ARE THE COUNT FIELD. IF CHAINING IS INDICATED IN 
BYTE 4, ADDITIONAL CCWS WILL BE SHOWN BELOW THIS LINE. 

07 THIS LINE SHOWS THE CONDITION CQOE EXPECTED, BY THE 

PROGRAM, IN RESPONSE TO ISSUING THE 1-0 COMMAND. 

08 THIS LINE SHOWS THE ACTUAL CONDITION CODE SET IN RESPONSE 

TO THE 1-0 COMMAND. 

09 THIS LINE DISPLAYS THE FIRST CSW EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE OEVICE STATUS BYTE PORTION 
OF THE CSW, APPEARS IN THE PROGRAM LISTING, FOLLOWING 
THE TEST NUMBER DESCRIPTIONS. 

10 THIS LINE DISPLAYS THE ACTUAL CSW RECIEVED BY THE PROGRAM. 
NOTE...FOR EVERY EXPECTED -EXP- CSW PRINTED OUT THERE 

SHOULD BE A CORRESPONDING ACTUAL -ACT- CSW 
PRINTED OUT ON THE NEXT LINE. THE ABSENCE 
OF A -ACT- CSW PRINTOUT INDICATES A MACHINE 
FAILURE. A MACHINE FAILURE IS ALSO INDICATED 
IF THERE ARE -ACT- CSW PRINTOUTS WHEN THERE 
ARE NONE EXPECTED. 

11 THIS LINE WILL APPEAR IF THE PROGRAM EXPECTS MORE THAN 
ONE CSW. 


4.2.2 ANALYSIS OF SAMPLE PRINTOUT 
LINE EXPLANATION 

01 THIS IS THE HEADER LINE PRINTED BY DM. IF AN ASTERISK 

PRECEEDS THE -SDO- AN ERROR HAS CAUSED THE MESSAGE 
PRINTOUT. IF NO ASTERISK IS PRINTED, THE MESSAGE 
IS A RESULT OF EITHER HAVING THE CORRECT PRINTOUT 
SWITCH ON OR AN OPERATOR MESSAGE IS TO FOLLOW. 

ALL LINES THAT FOLLOW THE -SDO- ARE PART OF THAT SAME 
MESSAGE. THE START OF A NEW MESSAGE IS INDICATED 
BY ANOTHER -SDO- PRINTOUT. THE -F830R- IS THE SECTION 
ID NUMBER WHERE -R- REPRESENTS THE REVISION LEVEL OF 
THE PROGRAM. THE -08- IS THE PROGRAM ROUTINE NUMBER 
WHILE THE -0OE- IS THE ADDRESS OF THE OEVICE UNDER 
TEST. 

02 THIS IS THE TEST NUMBER ASSOCIATED WITH THE MESSAGE. AT THE 

BEGINNING OF THE PROGRAM LISTING, THERE IS A LIST OF TEST 
NUMBERS. WITH THE TEST NUMBER IS A SHORT EXPLANATION OF 
WHAT WAS BEING DONE, AND WHAT SHOULD OCCUR. 

03 THIS LINE SHOWS THE ADDRESS FROM WHICH THE 1-0 HANDLER 

SUB-ROUTINE WAS ENTERED. ALL 1-0 COMMANDS ARE ISSUED 
FROM THIS SUB-ROUTINE, SO IT IS ENTERED MANY TIMES FROM 
MANY PLACES. TO INSURE THE SPECIFIC 1-0 OPERATION 
WILL BE THE NEXT ONE PERFORMED, RESTART THE PROGRAM WITH A 
SYSTEM RESET, PSW RESTART, AND AODRESS STOP AT THE GIVEN 




ADDRESS. 


DATE 

15MAR66 

15N0V66 

120CT67 

EC 

125632 

125655 

131812 


12 THIS LINE WILL APPEAR IF THE PROGRAM RECIEVED A SECOND CSW. 

13 THIS LINE SHOWS THE SENSE BYTE EXPECTED BY THE PROGRAM. 

A BIT BY BIT DESCRIPTION OF THE 1403 SENSE BYTE APPEARS 
IN THE PROGRAM LISTING, AFTER THE SECTION PREFACE. 

14 THIS LINE SHOWS THE ACTUAL SENSE BYTE RECIEVED BY THE PROGRAM. 

15 THIS LINE DISPLAYS THE CPU AND CHANNEL LOGOUT AREA ON 

MODEL 30 SYSTEMS. IT WILL NOT APPEAR ON ANY OTHER SYSTEM. 

16 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

IF AN ERROR HAD OCCURRED, AND DM SENSE SWITCH 25 WAS ON, 

A HALT WOULD NOW OCCUR, TO ALLOW SETTING OF THE SECTION 
SENSE SWITCHES. TO INSURE THAT YOU WILL LOOP ON THE 
COMMAND THAT FAILED, YOU SHOULD REQUEST A HALT ON ERROR. 

SET THE PROPER SENSE SWITCH ON, AND PRESS THE EXTERNAL 
INTERRUPT KEY TO LOOP. 

17 THIS LINE DESCRIBES THE PATTERN OF CHARACTERS IN THE UCS 
BUFFER. 

18 COLUMN HEADINGS READ VERTICALLY. THE FIRST COLUMN IS THE 

AND PRINT POSITION, NEXT DATA WRITTEN, DATA SHOULD READ BACK, 

19 DATA READ BACK, THEN THE STATE OF THE PRINT LINE COMPLETE 

BIT, THE PRINT CHECK BIT AND PARITY CHECK BIT. 


ID F836-* j DATE 15MAR66 
PAGE 2 I EC 125632 
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20 THESE LINES INDICATE IN WHICH PRINT POSITIONS AN ERROR WAS 

21 DETECTED* WHAT WAS WRITTEN IN THAT POSITION, WHAT SHOULD BE 

AND READ BACK, WHAT WAS READ BACK, AND IF THE PRINT LINE COMPLETE 

22 8IT, THE PRINT CHECK BIT, OR PARITY CHECK BIT WAS SET ON* 

A 1 INDICATES THE BIT IS ON, A ZERO, THAT IT IS OFF. 

23 THIS LINE SHOWS THE SECTION SENSE SWITCH LOOP OPTIONS. 

FURTHER ANALYSIS OF THE ABOVE PRINTOUT INDICATES A PRINT 
CHECK PROBLEM IN POSITIONS 130, 131, AND 132. A 
LOOK AT THE LOGIC, SHOWS ONE COMMON INPUT TO THE INDICATED 
HAMMER DRIVERS — TENS DRIVE 13 IN THE HAMMER FIRE SELECT 
MATRIX. THIS COULD BE THE FAILING AREA. 


- PREVIOUS HANGUP DETECTED- 

- SEE DESCRIPTION-COMMENTS - 


COMMENTS 

THE ABOVE MESSAGE WILL APPEAR IF A SYSTEM RESET PSW RESTART IS 
PERFORMED AFTER A HANGUP CONDITION ON AN 1-0 COMMAND. FOLLOWING 
THIS LINE WILL BE A PRINTOUT SIMILAR TO THE ABOVE SAMPLE MESSAGE 
ALL THE INFORMATION THAT CAN BE COLLECTED ABOUT THE ERROR, WILL BE 
PRINTED. NOTE - SYSTEM RESET WILL RESET THE SENSE INFORMATION. 


A FALSE HANG UP MESSAGE PRINTOUT CAN OCCUR IF THE OPERATOR PERFORMS 
A SYSTEM RESET-PSW RESTART WHILE THE PROGRAM IS RUNNING. THE PROGRAM 
WILL RESTART AFTER PRINTING THE MULTI-LINE ERROR MESSAGE, OR ANOTHER 
SYSTEM RESET PSW RESTART MAY BE PERFORMED TO BYPASS THE ERROR MESSAGE. 
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PAGE 1 

1403 RIPPLE PRINT 


PROGRAM LENGTH * 4073 (DECIMAL) 

2 PRINT ON,GEN,DATA 

3 XF0364 START 4096 

4 USING * * 15 

5 ♦ 

6 *********************************************************************** 

7 * REVISION LEVEL 4. THIS REVISION DIFFERS FROM VERSION 3 AS FOLLOWS... 

8 * 1. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE RIPPLE OF ALL 

9 * CHARACTERS IN FOLDING MODE ON UCS PRINTERS. 

10 * 2. THE PROGRAM HAS BEEN MODIFIED TO CONSIDER HEX CHARACTERS 

11 * -80- AND -C0-, AS VALID UNPRINTABLE CHARACTERS, ON UCS 

12 * PRINTERS IN FOLDING MODE. 

13 * 3. INCLUDES CHANGES TO ENABLE PROGRAM TO RUN WITH DM-44. 

14 * E.C. PREREQUISITES 

15 * MACHINE . . . 2821 MUST BE AT EC 125673 

16 * PROGRAM . . . NONE 

17 *********************************************************************** 

18 * MODIFICATIONS 

19 * REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 

20 * 1. THIS PROGRAM NO LONGER RESTORES THE UCS BUFFER. USE PROGRAM 

21 * ID F837 TO RESTORE THE UCS BUFFER. 

22 * 2. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE -TEST NUMBERS- 

23 * 3. ON UCS PRINTERS, THE RIPPLE PATTERN OUTPUT HAS BEEN MODIFIED 

24 * TO INSURE USING ALL AVAILABLE UCB ADDRESSES. 

25 * 4. THE REQUIRED NUMBER OF LINES PRINTED BY THIS TEST HAS BEEN 

26 ♦ REDUCED TO CUT RUNNING TIME. 

27 * E.C. PREREQUISITES 

28 * MACHINE . . . 2821 MUST BE AT E.C. 125655. 

29 * PROGRAM . • • NONE 

30 * USE DESCRIPTION F836* AT EC 125655, DATED NOV 15, 1966 OR LATER. 

31 *********************************************************************** 

32 * REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS FOLLOWS... 

33 * 1. THE PROGRAM HAS BEEN MODIFIED TO RESET THE BLOCK DATA CHECK 

34 * LATCH, ON UCS PRINTERS, DURING INITIALIZATION OF THE SECTION. 

35 * E.C. PREREQUISITES 

36 * MACHINE . . . 2821 MUST BE AT MINIMUM E.C. LEVEL 124265. 

37 * PROGRAM . . . NONE 

38 *********************************************************************** 

39 ******************* ******************* 

40 ♦ SECTION PREFACE *********************************** SECTION PREFACE * 

41 ******************* ******************* 


01000 

F8364000 

42 

SECNO 

DC 

XL4 * F 8364000 * 

PROGRAM,SECTION AND REVISION NOS. 

* 

01004 

00000000 

43 

SNSW 

DC 

XL4 * 00• 

SECTION SENSE SWITCHES 

* 

01008 

0000 

44 


DC 

XL2 * 00• 


* 

0100A 

0000 

45 

ICM 

DC 

XL2 * 00• 

INTERRUPTION CONDITION MASK 

* 

OiOOC 

00 

46 

SDMF 

DC 

XL 1 * 00• 

SECTION DM FLAGS 

* 

0100D 

01 

47 

NIOU 

DC 

XL 1 * 01• 

NUMBER OF UNIT TABLE ENTRYS 

* 

0100E 

CO 

48 

FLAG1 

DC 

X*CO* 

EXCLUSIVE CPU 

* 

0100F 

00 

49 

FLAG2 

DC 

X*00» 

I/O INT ARE ERR, EXT INT TO PROG 

* 

01010 

0104000000 

50 

INPSW 

DC 

X *0104000000• 

DISABLED, SPVSR STATE, NO PGM MASK 

* 

01015 

001D38 

51 


DC 

AL3(R0UT01) 

ADR OF 1ST ROUTINE PREFIX 

* 

01018 

0000000000000000 

52 

EXOPSW 

DC 

XL8•0• 

SECTION OLD EXTERNAL PSW 

* 

01020 

0000000000000000 

53 

SVOPSW 

DC 

XL8•00• 

CLEAR ALL OLD PSWS 

* 

01028 

0000000000000000 

54 

PGOPSW 

DC 

XL8•00 * 

PROGRAM OLD PSW 

* 

01030 

0000000000000000 

55 

MCOPSW 

DC 

XLB'OO* 

MACHINE CHECK OLD PSW 

* 

01038 

0000000000000000 

56 

IOOPSW 

DC 

XL8•00• 

I/O OLD PSW 

* 

01040 

0000000000000000 

57 

CSW 

DC 

XL8•00 ® 

CHANNEL STATUS WORD 

* 

01048 

00000000 

58 

CAW 

DC 

XL4*00* 

CAW 

* 

0104C 

0000000000000000 

59 


DC 

XL12*00* 

RESERVED FOR DM USE 

* 

01054 

00000000 







01058 

0004000000 

60 

EXNPSW 

DC 

X»0004000000* 

EXTERNAL, NEW PSW 

* 

0105D 

000000 

61 

SRET 

DC 

XL3 *0 * 

ADR OF EXT INTRPT ROUTINE 

* 

01060 

0000000000000000 

62 

SVNPSW 

DC 

XL8 * 00* 

SUPERVISOR NEW PSW 

* 


01000 

01000 
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01068 0000000000000000 
01070 0000000000000000 

01078 01040000 

0107C 00001168 

01080 
010E0 83 

010E1 00 

010E2 8000 


63 PGNPSW DC 

64 MCNPSW DC 

65 IONPSW DC 

66 DC 

67 DS 

68 UNIT1 DC 

69 U10P DC 

70 U1ADDR DC 


XL 8'00• 

XL8 * 00* 

XL4 * 01040000 * 
AL4(IRETRN) 
96C 
X' 83 • 

X'OO* 

X'aooo* 


PROGRAM NEW PSW 
MACHINE CHECK NEW PSW 
I/O NEW PSW 

ADDRESS OF I/O INTRPT ROUTINE 
96 BYTE REG DUMP AREA FOR DM USE 
UNIT TYPE - 1419 MICR 
OPTIONAL FEATURES BYTE 
FLAGS AND CHAN/UNIT ADDRESS 


*********************************************************************** 

*********************************************************************** 

* 1403 SENSE BYTE 

*********************************************************************** 

* BIT MEANING 

* 0 COMMAND REJECT 

* 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK - HAMMER FIRE CHECK 

* 4 DATA CHECK - UCS PRINTERS ONLY - UNCOMPARABLE CHARACTER 

* 5 BUFFER PARITY CHECK - REFERS TO UCS BUFFER 

* 6 NOT USED 

* 7 CHANNEL 9 

*********************************************************************** 

*********************************************************************** 

* 1403 DEVICE STATUS 

*********************************************************************** 

* BIT MEANING 

* 0 ATTENTION - NOT USED 

* 1 STATUS MODIFIER - 2 CHANNEL SWITCH FEATURE ONLY 

* 2 CONTROL UNIT END - 2 CHANNEL SWITCH FEATURE ONLY 

* 3 DEVICE BUSY 

* 4 CHANNEL END 

* 5 DEVICE END 

* 6 UNIT CHECK 

* 7 UNIT EXCEPTION - CHANNEL 12 

*********************************************************************** 

* 1403 DIAGNOSTIC CHECK READ DATA 

*********************************************************************** 

* BIT MEANING 

* 5 ON - THE PRINT LINE COMPLETE BIT HAS BEEN SET FOR THIS 

* POSITION. 

* OFF - ON BASIC PRINTERS, A COMPARE BETWEEN THE DATA BEING 

* PRINTED, AND THE PRINT CHARACTER GENERATOR DID NOT 

* OCCUR IN THIS POSITION, AND THE CHARACTER WAS NOT 

* CONSIDERED A VALID UNPRINTABLE. 

* 

* ON UCS PRINTERS, A COMPARE BETWEEN THE DATA BUFFER 

* AND THE UNIVERSAL CHARACTER SET BUFFER DID NOT OCCUR 

* AND THE CHARACTER WAS NOT CONSIDERED A NULL OR BLANK 

* 

* 6 ON - THE PRINT CHECK PLANE FOR THIS POSITION WAS SET ON. 

* THIS PLANE IS SET BY- 

* 1. A HAMMER FIRE AND AN EQUAL CHECK. 

* 2. NO HAMMER FIRE AND NO EQUAL CHECK. 

* 3. LINE FULL, NOT VALID UNCOMPARABLE CHARACTER, AND 

* NOT A PRINT LINE COMPLETE BIT IN THIS POSITION. 

* OFF - THE PRINT CHECK PLANE FOR THIS POSITION IS NOT SET. 

* 

* 7 ON - A PARITY CHECK IN THE DATA BUFFER WAS DETECTED IN 

* THIS POSITION. 

* 

* OFF - THIS POSITION OF THE DATA BUFFER HAS CORRECT PARITY. 
*********************************************************************** 
*********************************************************************** 

♦ PARAMEiERS USED TO ENTER 
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1403 RIPPLE PRINT 


1403 RIPPLE PRINT 


128 

* 



THE 1-0 HANDLER ROUTINE 








193 

4« 




129 

*********************************3M*******************4t**************** 








194 

* 10 

-- — - 

OFF - NO DIAGNOSTIC READ DATA RECIEVED 

130 

* 


BAL 

RlltlSIO LINK TO 1-0 HANDLER 








195 

♦ 


ON - DIAGNOSTIC READ 

DATA RECIEVED 

131 

* 


DC 

XL2 * 0000* CONTROL SWITCHES 








196 

♦ 




132 

♦ 


DC 

X *0014* TEST NO* IN DEC EXPRESSED IN HEX , 








197 

♦ 11 

--- 

OFF - HEADINGS NOT PREVIOUSLY PRINTED 

133 

* 


DC 

X»FO* EXPECTED COND. CODE 








198 

* 


ON - HEADINGS PREVIOUSLY PRINTED 

134 

♦ 


DC 

X*00* EXPECTED SENSE DATA 








199 

♦ 




135 

* 


DC 

AL2(ADR-BASE+REG> ADDR* OF EXPECTED CSW IF NEEDED 








200 

*********************************************************************** 

136 

******************:l^********************^****************************** 








201 

* 


REGISTERS USED 

IN 1-0 HANDLER 

137 

.^**************************4******************************************* 








202 

*********************************************************************** 

138 

♦ 



1-0 HANDLER CONTROL SWITCHES 








203 

♦ 

REG 

COMMENTS 


139 

♦ 



2 BYTE PARAMETER FOLLOWING BAL 








204 

* 

5 

USED AS LINK TO ERROR 

OUTPUT FROM INITIALIZE ROUTINE IF 

140 

*********************************************************************** 








205 

♦ 


PREVIOUS HANGUP ON INTERFACE DETECTED. 

141 

* 

SWITCH 

DESCRIPTION 








206 

* 




142 


0 

— 

OFF - ISSUE AN 1-0 COMMAND 








207 

* 

8 

USED AS WORK REGISTER 

• WILL BE RESTORED UPON RETURN. 

143 

♦ 



ON - DO NOT ISSUE AN 1-0 COMMAND 








208 

* 


■ 


144 

* 

1 

— 

OFF - ENABLE 








209 

* ' 

9 

USED AS WORK REGISTER 

. WILL BE RESTORED UPON RETURN. 

145 

♦ 



ON - DO NOT ENABLE 








210 

♦ 




146 

* 

2 

— 

OFF - EXPECT NO INTERRUPT 








211 

♦ 

10 

MUST CONTAIN CCW ADDRESS UPON ROUTINE ENTRY 

147 

4 



ON - EXPECT AN INTERRUPT 








212 

* 




148 

4 

3 

— 

OFF - DO NOT EXPECT 2 INTERRUPTS 








213 

4c 

11 

MUST BE USED AS LINK 

REG TO THIS ROUTINE 

149 

4 



ON - EXPECT 2 INTERRUPTS 








214 

4c 




150 

4 

4 

— 

OFF - EXPECT NO CSWS 








215 

4c 

12 

MUST CONTAIN DEVICE ADDRESS 

151 

4 



ON - EXPECT A CSW 








216 

4c 




152 

4 

5 

-- 

OFF - DO NOT EXPECT 2 CSWS 

010E4 

0000 





217 

ISW 

DC 

XL2 • O' 


153 

4 



ON - EXPECT 2 CSWS 








218 

**4c4c4>4‘4‘**4‘4‘**4c4'**4c***4<4‘4'********4c*****4'**4c***************************** 

154 

4 

6 

— 

OFF - ALWAYS TRY TO ISSUE SENSE 








219 

4c 


♦ 1-0 HANDLER SUB-ROUTINE * 

155 

4 



ON - SENSE ON UNIT CHECK ONLY 








220 

*****^***************************4=****************************4>******4c* 

156 

4 

7 

-* 

OFF - GIVE HALT OPTION ON DETECTED ERROR 

010E6 

D2 

01 

F 

7C8 

B 

002 

221 

ISIO 

MVC 

ITSTN0+5(2),2CR1U 

SAVE TEST NUMBER 

157 

4 



ON - RETURN WITHOUT HALT OPTION 

010EC 

90 

79 

F 

830 



222 


STM 

R7,R9*I SAVE 


158 

4 




010F0 

92 

00 

F 

796 



223 


MVI 

IEXSNS+5tX*00* 


159 

4 

8 

-- 

OFF - DO NOT ISSUE DIAGNOSTIC READ. 

010F4 

50 

AD 

0 

048 



224 


ST 

R10«HCAW(R13) 

STORE COMMAND ADDRESS 

160 

4 



ON - ISSUE DIAGNOSTIC READ IF UNIT CHECK. 

010F8 

D7 

07 

D 

040 

D 

o 

* 

o 

225 


XC 

HCSW(8,R13),HCSW(R13) 


161 

4 




010FE 

90 

AB 

F 

B9C 



226 


STM 

RlOyRll11 SLAVE 

SAVE REGS 10 AND 11 

162 

4 

9 

— 

OFF - DO NOT ISSUE DIAGNOSTIC CHECK READ. 

01102 

95 

30 

E 

181 



227 


CLI 

SYSM0D(R14),X*30 # 

CHECK FOR MODEL 30 

163 

4 



ON - ISSUE DIAGNOSTIC CHECK READ IF UNIT CHECK. 

01106 

47 

60 

F 

110 



228 


BC 

UNEQ* M0D44 

BR. IF NOT 

164 

4 




0110A 

D7 

OB 

0 

080 

0 

080 

229 


XC 

LOGOUT(12)«LOGOUT 

CLEAR MOD 30 LOGOUT AREA 

165 

4 

10 

— 

OFF - PRINT HEADER 

OHIO 

91 

80 

B 

000 



230 

M0D44 

TM 

O(Rll)»X*80 9 

CHECK CONTROL SWITCH FOR NO 1-0 

166 

4 



ON - DO NOT PRINT HEADER 

01114 

47 

10 

F 

194 



231 


BC 

ALLylNOW 

BR* IF ON 

167 

4 




01118 

91 

80 

F 

004 



232 


TM 

SNSW* X* 80* 


168 

44444444444444444444444444444444444444444444444444444444444444444444444 

0111C 

47 

80 

F 

150 



233 


BC 

NONE,JOHN 


169 

4 



SWITCHES USED BY 1-0 HANDLER 








234 

44c4'4c4c4t4c4c4c4t*4'4c4c4c4'4c*4c4'4'4c4>4c**4‘4>*****4'***4'4>*4'4c**’t4>4c4t4'4c**4c**4t4t*4r**4****4c4‘*4c4' 

170 

44444444444444444444444444444444444444444444444444444444444444444444444 








235 

4c 


SENSE SWITCH LOOPS 

171 

4 

SWITCH 

DESCRIPTION 








236 

4'4t4'4^4c4c4‘4<4^4c4t4c4t4c4>4t4c4c4‘4c4t4c«***********4'4‘4^4c***************4c4c**4^4c******4c* 

172 

4 

0 

— 

OFF - NO HANGUP ON INTERFACE 

01120 

50 

AD 

0 

048 



237 

ITRY1 

ST 

R10,HCAW(R13) 


173 

4 



ON - HANGUP OCCURRED 

01124 

91 

80 

F 

004 



238 


TM 

SNSW,X«80» 

CHECK SECTION SENSE SWITCH 0 

174 

4 

1 

— 

OFF - NO CSWS STORED 

01128 

47 

80 

F 

13C 



239 


BC 

NONE,IHI 

BR. IF OFF 

175 

4 



ON - ONE CSW STORED 

0112C 

9D 

00 

C 

000 



240 

IHANG 

TIO 

0(R12) 

TEST 1-0 

176 

4 

2 

— 

OFF - SECOND CSW NOT RECIEVED 

01130 

47 

70 

F 

120 



241 


BC 

NCCO,ITRY1 

BR. IF NOT COND. CODE 0 

177 

4 



ON - SECOND CSW RECIEVED 

01134 

9C 

00 

C 

000 



242 


SIO 

0(R12) 

START 1-0 

178 

4 

3 

—- 

OFF - DID NOT ENABLE 

| 01138 

47 

FO 

F 

120 



243 


BC 

UNC,ITRY1 

BR. UNCONDITIONAL 

179 

4 



ON - ENABLED ONCE 








244 

*4c**4'4c4‘4'4'4'***4‘****4<*4t**4‘*****4‘*4'*4<4c**4'«4c*4'4'4'4'4>4‘4'4<*4'*4‘4c4‘*****4c*4'**4'4c4'#4'4t 

180 

4 

4 

-~ 

OFF - DID NOT ENABLE TWICE 

! 0113C 

58 

IE 

0 

198 



245 

I HI 

L 

Rl,WT(14) 


181 

4 



ON - ENABLED TWICE 

01140 

88 

10 

0 

003 



246 


SRL 

Rl,3 


182 

4 

5 

—•— 

OFF - NO SENSE DATA RECIEVED 

01144 

9D 

00 

C 

000 



247 

GREG 

TIO 

0(R12) 


183 

4 



ON - SENSE DATA RECIEVED 

01148 

47 

80 

F 

150 



248 


BC 

CCO,JOHN 


184 

4 

6 

— 

OFF - NO UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

0114C 

46 

10 

F 

144 



249 


BCT 

Rl ,GREG 


185 

4 



ON - UNEXPECTED INTERRUPT FROM UNKNOWN DEVICE 

01150 

D7 

01 

F 

0E4 

F 

0E4 

250 

JOHN 

XC 

ISW(2)»ISW 


186 

4 

7 

— 

OFF - NO ERROR DETECTED 

01156 

96 

80 

F 

0E4 



251 


01 

ISW,X*80* 


187 

4 



ON - AN ERROR WAS DETECTED 

0115A 

92 

E7 

F 

739 



252 


MVI 

IACTCC+5,C'X» 

MOVE IN A -X- 

188 

4 

8 

— 

OFF - NO DATA RECIEVED 

0115E 

9C 

00 

C 

000 


. 

253 

ISSUE 

SIO 

0(R12) 

1-0 COMMAND- SIO, TIO* OR HIO 

189 

4 



ON - DATA RECIEVED 

01162 

47 

80 

F 

190 



254 


BC 

CCO,I ZERO 

BR. IF COND. CODE 0 

190 

4 




01166 

47 

40 

F 

17E 



255 


BC 

CCltlONE 

BR. IF COND. CODE 1 

191 

4 

9 

-- 

OFF - NO DIAGNOSTIC CHECK READ DATA RECIEVED 

0116A 

47 

20 

F 

176 



256 


BC 

CC2,ITWO 

BR. IF COND. CODE 2 

192 

4 



ON - DIAGNOSTIC CHECK READ DATA RECIEVED 

0U6E 

92 

F3 

F 

739 



257 


MVI 

IACTCC+5*X , F3 t 

INDICATE COND. CODE 3 


DATE 

15MAR66 

15NQV66 

120CT67 

ID 

F836-4 

DATE 

15MAR66 

15N0V66 

120CT67 

ID 

F836-4 

EC •$ 

125632 

125655 

131812 

PAGE 

2 

| EC*S 

125632 

125655 

131812 

PAGE 

2A 
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01172 

47 

FO 

F 

194 



258 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

01176 

92 

F2 

F 

739 



259 

ITWO 

MV I 

I ACTCC+5,X'F2' 

INDICATE COND. CODE 2 

0117A 

47 

FO 

F 

194 



260 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

0117E 

92 

FL 

F 

739 



261 

IONE 

MV I 

I ACTCC+5,X»F1• 

INDICATE COND. CODE 1 

01182 

D2 

07 

F 

716 

D 

040 

262 


M VC 

ICSW1(8)»HCSW(R13) 

SAVE CSW 

01188 

96 

40 

F 

0E4 



263 


□ I 

l SW , X •40 * 

INDICATE l CSW 

0118C 

47 

FO 

F 

194 



264 


BC 

UNC,INOW 

BR. UNCONDITIONAL 

01190 

92 

FO 

F 

739 



265 

IZERO 

MV I 

I ACTCC + 5,X *F0 * 

INDICATE COND. CODE 0 

01194 

94 

7F 

F 

0E4 



266 

INOW 

N I 

ISW,X'7F* 

TURN OFF HANG UP SWI fCH 

01198 

91 

40 

B 

000 



267 


TM 

0 ( R 11),X'40• 

CHECK CONTROL SWITCH FOR NO ENABLE 

0119C 

47 

10 

F 

224 



268 


BC 

ALL,I SEN 

BR. IF ON 

011 AO 

96 

10 

F 

0E4 



269 


01 

ISW,X*10* 

INDICATE ENABLED CNCE 

0UA4 

58 

96 

0 

198 



270 

IWAIT 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR 

011A8 

88 

90 

0 

003 



271 


SRL 

R9,3 

ADJUST 

011 AC 

96 

80 

F 

0E4 



272 


01 

ISW,X'80' 

TURN ON HANG UP SWITCH 

011 BO 

80 

00 

F 

803 



273 


SSM 

MSKl 

ENABLE 

011B4 

46 

90 

F 

1B4 



274 


BCT 

R9, * 

WAIT 

011B8 

80 

00 

F 

804 



275 


SSM 

MSK2 

DISABLE 

011BC 

94 

7F 

F 

0E4 



276 


N I 

ISW,X * 7F' 

TURN OFF HANG UP SWITCH 

011C0 

95 

FO 

F 

739 



277 

TRUBL 

CLI 

IACTCC+5,X•FO* 

CHECK FOR COND. CODE 0 

011C4 

47 

60 

F 

22C 



278 


BC 

UNLO,ISPED 

BR. IF NOT 

011C8 

9D 

00 

C 

000 



279 


TIO 

0 ( R 12 ) 

TEST 1-0 

011CC 

47 

BO 

F 

22C 



280 


BC 

NCC1,ISPED 

BR. IF NOT COND. CODE 1 

01 IDO 

91 

10 

D 

044 



281 


TM 

HCSW+4(R13),X*10* 

CHECK FOR DEVICE BUSY 

011D4 

47 

80 

F 

22C 



282 


BC 

NONE,ISPED 

BR. IF NOT 

011D8 

OA 

DO 





283 


SVC 

X • DO • 


01 IDA 

64 






284 


DC 

X * 64 • 

PRINT BUSY MESSAGE 

011DB 

24 






285 


DC 

X * 24 • 


011DC 

FA5D 





286 


DC 

AL2INODEV-SECNO+REG) 


01 IDE 

96 

80 

F 

0E4 



287 


01 

ISW,X•80' 

INDICATE HANG UP 

011E2 

OA 

DA 





288 


SVC 

X ' D A • 

HALT 

011E4 

47 

FO 

F 

ICO 



289 


BC 

UNC,TRUBL 









290 

**4c*!|^**:fr**:t************3M**** *********************************** ****** 








291 

* 


ALL 1-0 

INTERRUPTS RETURN HERE 








292 

*********************************************************************** 

011E8 

94 

7F 

F 

0E4 



293 

IRETRN 

N I 

ISW,X *7F * 

RESET HANGUP SWITCH 

011EC 

91 

40 

F 

0E4 



294 


TM 

ISW,X•40 * 


011F0 

47 

10 

F 

202 



295 


BC 

ALL,ISV2 

BR. IF 1 CSW ALREADY STOREC 

011F4 

D2 

07 

F 

7E6 

F 

040 

296 


MVC 

ICSWl(B),HCSWfR15) 

SAVE CSW 1 

01 IF A 

96 

40 

F 

0E4 



297 


01 

ISW,X•40• 

INDICATE 1 CSW STORED 

011FE 

47 

FO 

F 

20C 



298 


BC 

UNC,INT3 

BR. UNCONDITIONAL 

01202 

D2 

07 

F 

7 EE 

F 

040 

299 

ISV2 

MVC 

ICSW2(8),HCSW C R15) 

SAVE CSW 2 

01208 

96 

20 

F 

0E4 



300 


01 

ISW,X•20' 

INDICATE 2 CSWS STORED 

0120C 

91 

10 

B 

000 



301 

INT 3 

TM 

0(Rll),X*10* 

CHECK CTRL SW FOR 2 INTR EXPECTED 

01210 

47 

80 

F 

224 



302 


BC 

NONE,I SEN 

BR. IF NOT 

01214 

91 

08 

F 

0E4 



303 


TM 

ISW,X * 08 * 


01218 

47 

10 

F 

224 



304 


BC 

ALL,I SEN 

BR. IF ALREADY ENABLED TWICE 

0121C 

96 

08 

F 

0E4 



305 


01 

ISW,X * 08’ 

INDICATE ENABLED TWICE 

01220 

47 

FO 

F 

1A4 



306 


BC 

UNC,I WAIT 


01224 

91 

20 

F 

0E4 



307 

I SEN 

TM 

ISW,X'20 * 

CHECK FOR SECOND INTERRUPT 

01228 

47 

80 

F 

ICO 



308 


BC 

NONE,TRUBL 

BR. IF NOT 

0122C 

91 

20 

B 

000 



309 

ISPED 

TM 

0(R11),X * 20* 

CHK CTRL SW FOR SNS ON UC ONLY 

01230 

47 

10 

F 

23C 



310 


BC 

ALL,IDECI 

BR. IF ON 

01234 

91 

CO 

B 

001 



311 


TM 

ltRll),X*CO* 

CHK CTRL SW FOR DIAG ON UNIT CHECK 

01238 

47 

80 

F 

33A 



312 


BC 

NONE,IBSN 

BR. IF NONE 

0123C 

91 

40 

F 

0E4 



313 

IDECI 

TM 

ISW,X * 40* 

CHECK FOR CSW STORED 

01240 

47 

80 

F 

33A 



314 


BC 

NONE,IBSN 

BR. IF NONE 

01244 

91 

02 

F 

7EA 



315 


TM 

ICSW1+4*X *02• 

CHECK FOR UNIT CHECK 

01248 

47 

10 

F 

25C 



316 


BC 

ALL , IDOSNS 

BR. IF YES 

0124C 

91 

20 

F 

0E4 



317 


TM 

I SW,X•20* 

CHECK FOR SECOND CSW 

01250 

47 

80 

F 

33A 



318 


BC 

NONE,IBSN 

BR. IF NONE 

01254 

91 

02 

F 

7F2 



319 


TM 

ICSW2+4,X *02 * 

CHECK FOR UNIT CHECK 

01258 

47 

80 

F 

33A 



320 


BC 

NONE,IBSN 

BR. IF NONE 

0125C 

41 

80 

F 

7F8 



321 

1D0SNS 

LA 

R8,1 SENSE 

LOAD SENSE CCW ACDRESS 

01260 

45 

70 

F 

2F0 



322 


BAL 

R7,IOEXRA 

BR. TO ISSUE SENSE 
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01264 

91 

80 

F 

0E5 



323 


TM 

ISW+1,X * 80' 

CHK FOR DATA RECIEVED 

01268 

47 

80 

F 

2 AC 



324 


BC 

NONE,IFUR 

BR. IF NOT 

0126C 

96 

04 

F 

0 64 



325 


01 

ISW,X'04• 

INDICATE SENSE RECIEVED 

01270 

94 

7F 

F 

0 65 



326 


N I 

ISW+1,X'7F * 

RESET DATA RECIEVED SWITCH 

01274 

D2 

00 

F 

796 

B 

005 

327 


MVC 

IEXSNS+5I1) ,5(R11) 

MOVE IN EXPECTED SENSE 

0127 A 

91 

01 

F 

7 A1 



328 


TM 

IACSNS+5, X' 01 • 

CHECK FOR CHANNEL 9 

0127E 

47 

80 

F 

286 



329 


BC 

NONE,ILKSEN 

BR. IF NONE 

01282 

96 

01 

F 

796 



330 


01 

IE XSN S+5,X•01' 

SET UP 9 AS EXPECTED 

01286 

D5 

00 

F 

7A1 

F 

796 

331 

ILKSEN 

CLC 

IACSNS+5I1) , IEXSNS+5 


0128C 

47 

80 

F 

2 AC 



332 


BC 

EQ,IFUR 

BR. IF EQUAL 

01290 

96 

01 

F 

0E4 



333 


01 

ISW,X'01* 

INDICATE AN ERROR 

01294 

91 

40 

F 

7A1 



334 


TM 

IACSNS+S^’AO* 

CHECK FOR INTERVENTION REQUIRED 

01298 

47 

80 

F 

2 AC 



335 


BC 

NONE,IFUR 

BR. IF NOT 

0129C 

OA 

DO 





336 


SVC 

X • DO * 

PRINT 

0129E 

64 






337 


DC 

X * 64 * 

-READY DEVICE 

0129F 

OD 






338 


DC 

X * OD • 


012 AO 

FA81 





339 


DC 

AL2(READY-SECNO+REG) 


012A2 

OA 

DA 





340 


SVC 

X *DA * 

HALT TO PERFORM INTERVENTION 

012A4 

90 

00 

C 

000 



341 

HOPE 

TIO 

0 ( R 12 ) 

TEST 1-0 

0 L 2 A 8 

47 

70 

F 

2A4 



342 


BC 

NCCO,HOPE 


012 AC 

91 

40 

B 

001 



343 

I FUR 

TM 

1(R11),X»40* 

CHK CTRL SWITCH FOR DIAG CHECK READ 

O12B0 

4 7 

80 

F 

2CC 



344 


BC 

NONE,ISEA 

BR. IF NOT 

012B4 

41 

80 

F 

808 



345 


LA 

R8 * DCKRD 

LOAD CHECK READ CCW ADDRESS 

012B8 

45 

70 

F 

2 FO 



346 


BAL 

R7,IOEXRA 

BR. TO ISSUE CHECK READ 

012BC 

91 

80 

F 

0E5 



347 


TM 

ISW+1,X * 80 * 

CHECK FOR DATA RECIEVED 

012C0 

47 

80 

F 

2CC 



348 


BC 

NONE,ISEA 

BR. IF NOT 

012 C 4 

96 

40 

F 

065 



349 


01 

ISW+1,X * 40' 

INDICATE CHECK READ DATA RECIEVED 

012C8 

94 

7F 

F 

0E5 



350 


NI 

I SW+1,X•7F • 

RESET DATA RECIEVED 

012CC 

91 

80 

B 

001 



351 

ISEA 

TM 

1(R11),X»80« 

CHK CTRL SWITCH FOR DIAG READ 

O12D0 

47 

80 

F 

33A 



352 


BC 

NONE,IBSN 

BR. IF NOT 

012D4 

41 

80 

F 

948 



353 


LA 

R8»RDCCW, 

LOAD DIAGNOSTIC READ CCW ACDRESS 

012D8 

45 

70 

F 

2 FO 



354 


BAL 

R7,IOEXRA 

BR. TO ISSUE DIAGNOSTIC READ 

012DC 

91 

80 

F 

065 



355 


TM 

ISW+1,X * 80• 

CHECK FOR DATA RECIEVED 

01260 

47 

80 

F 

33A 



356 


BC 

NONE,IBSN 

BR. IF NONE 

01264 

96 

20 

F 

0E5 



357 


01 

ISW+1,X*20* 

INDICATE READ DATA RECIEVED 

012E8 

94 

IF 

F 

0E5 



358 


N1 

ISW+1,X * 7F * 

RESET DATA RECIEVED SWITCH 

012EC 

47 

FO 

f 

33A 



359 


BC 

UNC,IBSN 

BR. UNCONDITIONAL 

012F0 

58 

96 

0 

198 



360 

IOEXRA 

L 

R9,WT(R14) 

LOAD DM WAIT FACTOR 

012F4 

88 

90 

0 

004 



361 


SRL 

R9,4 

ADJUST 

012F8 

50 

8D 

0 

048 



362 


ST 

R8,HCAW(R13> 

STORE CAW 

012FC 

9C 

00 

C 

000 



363 


SIO 

0(R12) 

START 1-0 

01300 

47 

70 

F 

310 



364 


BC 

NCCO,IBACK 

BR. IF NOT ACCEPTED 

01304 

9D 

00 

C 

000 



365 

ICL EAR 

TIO 

0(R12) 

TEST 1-0 

01308 

47 

40 

F 

312 



366 


BC 

CC1,ILOKE 

BR. IF CSW STORED 

0130C 

46 

90 

F 

304 



367 

ITICK 

BCT 

R9,ICLEAR 


01310 

07 

F 7 





368 

IBACK 

BCR 

UNC,R7 

RETURN VIA REG 7 

01312 

91 

04 

D 

044 



369 

ILOKE 

TM 

HCSW+4(R13),X•04' 

CHECK FOR DEVICE END 

01316 

47 

80 

F 

30C 



370 


BC 

NONE,ITICK 

BR. IF NOT 

0131 A 

96 

80 

F 

065 



371 


01 

ISW+1,X * 80 * 

INDICATE DATA RECIEVED 

0131E 

47 

FO 

F 

310 



372 


BC 

UNC,IBACK 


01322 

91 

40 

F 

064 



373 

IN0EX1 

TM 

ISW,X *40 * 


01326 

47 

10 

F 

3B4 



374 


BC 

ALL,INDER 


0132 A 

47 

FO 

F 

3B8 



375 


BC 

UNC,IDUNCK 


0132E 

91 

20 

F 

064 



376 

IN0EX2 

TM 

ISW,X•20 * 


01332 

47 

10 

F 

3B4 



377 


BC 

ALL,INDER 


01336 

47 

FO 

F 

3B8 



378 


BC 

UNC,IDUNCK 


0133 A 

D5 

00 

F 

739 

B 

004 

379 

IBSN 

CLC 

IACTCC+5I11,4<Rli) 

COMPARE FOR EXPECTED COND. CODE 

01340 

47 

60 

F 

3B4 



380 


BC 

UNEQ,INDER 

BR. IF UNEQUAL 

01344 

91 

08 

B 

000 



381 


TM 

0(R11),X*08« 


01348 

47 

80 

F 

322 



382 


BC 

NONE,IN0EX1 

BR. IF NO CSW EXPECTED 

0134C 

91 

40 

F 

064 



383 


TM 

ISW,X *40* 


01350 

47 

80 

F 

3B4 



384 


BC 

NONE,INDER 

BR. IF NO CSW RECIEVED 

01354 

48 

8B 

0 

006 



385 


LH 

R8,6(R11) 

. LOAD CSW ADDR 

01358 

40 

60 

F 

360 



386 


STH 

R8,ICCSWl+4 

STORE IN COMPARE INSTR. 

0135C 

D5 

07 

F 

7E6 

F 

7E6 

387 

ICCSW1 

CLC 

ICSW1(8),ICSW1 

COMPARE FOR EXPECTED CSW 


ID F836-4 
PAGE 3A 


DATE 
EC * S 


15MAR66 15N0V66 120CT67 
125632 125655 131812 






IBM MAINTENANCE 

DIAGNOSTIC 

PROGRAM 


P/N 840210 










PAGE 4 


1403 RIPPLE PRINT 





01362 

47 60 

F 

3B4 



388 

BC 

UNEQ,INDER 

BR. IF UNEQUAL 

01366 

91 04 

B 

000 



389 

TM 

0(R11),X*04* 


) 0136A 

47 80 

F 

32E 



390 

BC 

NONE,IN0EX2 

BR. IF NO CSW 2 EXPECTED 

! 0136E 

91 20 

F 

0E4 



391 

TM 

ISW,X*20* 


01372 

47 80 

F 

3B4 



392 

BC 

NONE,INDER 

BR. IF NO CSW 2 RECIEVED 

01376 

41 88 

0 

008 



393 

LA 

R8,8(R B) 

UPDATE TO SECOND CSW 

0137A 

40 80 

F 

3AE 



394 

STH 

R8,ICCSW2+4 


0137E 

41 88 

0 

004 



395 

LA 

R8,4(R8) 


01382 

40 80 

F 

388 



396 

STH 

R8,ICLRDT+2 


01386 

94 FC 

F 

818 



397 

ICLRDT NI 

WORK,X * FC * 


0138A 

40 80 

F 

39C 



398 

STH 

R8,IF IX9+2 


0138E 

40 80 

F 

3A8 



399 

STH 

R8,IF IX12+2 


01392 

91 01 

F 

796 



400 

TM 

IEXSNS+5,X * 01• 


01396 

47 80 

F 

39E 



401 

BC 

NONE,IS12 


0139A 

96 02 

F 

818 



402 

IFIX9 01 

WORK,X • 02 * 


0139E 

91 01 

F 

7F2 



403 

IS12 TM 

ICSW2+4,X *01 * 

CHECK FOR CHANNEL 12 

013A2 

47 80 

F 

3 AA 



404 

BC 

NONE,ICCSW2 


013A6 

96 01 

F 

818 



405 

IFIX12 01 

WORK,X * 01 * 


013 AA 

D5 07 

F 

7EE 

F 

7EE 

406 

ICCSW2 CLC 

IC SW2 C 8) , IC SW2 

COMPARE FOR EXPECTED CSW 2 

013B0 

47 80 

F 

3B8 



407 

BC 

EQ,IDUNCK 

BR. IF EQUAL 

013B4 

96 01 

F 

0E4 



408 

INDER 01 

ISW,X*01* 

INDICATE AN ERROR 

013B8 

92 64 

F 

3E8 



409 

IDUNCK MVI 

IFLAG1,X * 64 ® 

SET UP FOR ERROR PRINTOUT 

013BC 

92 CO 

F 

56E 



410 

MVI 

IFLAG2,X•CO• 


013C0 

91 01 

F 

0E4 



411 

TM 

ISW,X*01* 

CHECK FOR A DETECTED ERROR 

013C4 

47 10 

F 

3D8 



412 

BC 

ALL,IOUTIT 

BR. IF ERROR DETECTED 

013C8 

91 01 

F 

004 



413 

TM 

SNSW,X * 01• 

CHECK SECTION SENSE SWITCH 7 

013CC 

47 80 

F 

58A 



414 

BC 

NONE,ILEAVE 

BR. IF OFF 

013D0 

92 24 

F 

3E8 



415 

MVI 

I FLAG1»X * 24 * 

SET UP FOR CORRECT PRINTOUT 

013D4 

92 80 

F 

56E 



416 

MVI 

IFLAG2,X'80 * 


013D8 

D2 01 

F 

7C8 

B 

002 

417 

IOUTIT MVC 

ITSTNO+5(2),2(R11) 

MOVE TEST NUMBER TO PRINT 

013DE 

OA DD 





418 

SVC 

X' DD • 

CONVERT TEST NUMBER 

013E0 

0002 





419 

DC 

AL2(2) 


013E2 

07C8 





420 

DC 

AL2(ITSTN0+5-SECN0) 


013E4 

07C8 





421 

DC 

AL2(ITSTN0+5-SECN0) 


013E6 

OA DO 





422 

SVC 

X * DO 1 

PRINT TEST NUMBER 

013E8 

64 





423 

IFLAG1 DC 

X' 64 * 


013E9 

09 





424 

DC 

X • 09* 


013EA 

F7C3 





425 

DC 

AL2(ITSTNO-SECNO+REG) 


013EC 

41 80 

0 

004 



426 

LA 

R8,4 

ADJUST, LINK ADDRESS FOR PRINTOUT 

013F0 

IB B8 





427 

SR 

R11 *R8 

013F2 

50 BO 

F 

754 



428 

ST 

R 11,ILINK+5 


013F6 

OA DO 





429 

SVC 

X 1 DD • 

CONVERT LINK ADDRESS 

013F8 

0003 





430 

DC 

AL2C3) 


013FA 

0755 





431 

DC 

AL2<ILINK+6-SECN0) 


013FC 

0754 





432 

DC 

AL2( I LINK-f 5-SECNO ) 


013FE 

OA DO 





433 

SVC 

X * DO * 

PRINT LINK ADDRESS 

01400 

EO 





434 

DC 

X * EO * 


01401 

10 





435 

DC 

X*10* 


01402 

F74F 





436 

DC 

AL2<ILINK-SECNO+REG) 


01404 

41 68 

0 

004 



437 

LA 

Rll,4(R11) 


01408 

91 80 

B 

000 



438 

TM 

0 C R11),X'80• 


0140C 

47 10 

F 

492 



439 

BC 

ALL,IOCSW 

BR. IF NO 1-0 COMMAND ISSUED 

01410 

OA DD 





440 

SVC 

X * DD * 

CONVERT 1-0 ADDRESS 

01412 

0003 





441 

DC 

AL2(3) 


01414 

0800 





442 

DC 

AL2II0ADR-SECN0) 


01416 

0743 





443 

DC 

AL2(I0ADDR+5-SECN0) 


01418 

OA DO 





444 

SVC 

X* DO* 

PRINT 1-0 ADDRESS 

0141A 

EO 





445 

DC 

X*EO* 


0141B 

OF 





446 

DC 

X * OF • 


0141C 

F73E 





447 

DC 

AL2 <IOADDR-SECNO+REG) 


0141E 

95 9C 

F 

15E 



448 

CLI 

ISSUE,X*9C* 

COMPARE FOR SIO COMMAND 

01422 

47 60 

F 

47C 



449 

BC 

UNEQ,ICCOUT 

BR. IF NOT 

01426 

50 AO 

F 

764 



450 

ST 

RIO,ICAW+5 

STORE CCW ADDR. 

0142A 

OA DO 





451 

SVC 

X'DD' 

CONVERT CAW 

0142C 

0003 





452 

DC 

AL2I3) 
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0142E 

0765 





453 


DC 

AL2tICAW+6—SECNO) 


01430 

0764 





454 


DC 

AL2(ICAW+5-SECN0) 


01432 

OA 

DO 





455 


SVC 

X 'DO • 

PRINT CAW 

01434 

EO 






456 


DC 

X • EO • 


01435 

OB 






457 


DC 

X * OB' 


01436 

F75F 





458 


DC 

AL2(ICAW-SECNO+REG) 


01438 

D2 

02 

F 

772 

F 

76E 

459 


MVC 

IBLAH+1(3),ICCW 

MOVE -CCW- TO MESSAGE 

0143E 

92 

16 

F 

477 



460 


MVI 

ICNT,X'16* 

ADJUST COUNT 

01442 

50 

AO 

F 

B98 



461 


ST 

R10,SAV10 

MOVE CONTENTS OF REG 10 TO SAVE 

01446 

D2 

07 

F 

818 

A 

000 

462 

ICWOUT 

MVC 

WORK(8),0(RIO) 

MOVE CCW TO WORK AREA 

0144C 

45 

90 

F 

460 



463 


BAL 

R9,ICOUT 

BR. TO OUTPUT CCW 

01450 

91 

CO 

A 

004 



464 


TM 

4(R10),X*CO* 

CHECK FOR ANY CHAIN FLAGS 

01454 

47 

80 

F 

47C 



465 


BC 

NONE,ICCOUT 

BR. IF NONE 

01458 

41 

AA 

0 

008 



466 


LA 

R10,8(R10) 

UPDATE TO NEXT CCW 

0145C 

47 

FO 

F 

446 



467 


BC 

UNC,ICWOUT 

BR. UNCONDITIONAL 

01460 

OA 

DD 





468 

ICOUT 

SVC 

X* DD* 

CONVERT 

01462 

0008 





469 


DC 

AL2 C 81 


01464 

0818 





470 


DC 

AL2(WORK—SECNO) 


01466 

0818 





471 


DC 

AL2(WORK-SECNO) 


01468 

D2 

07 

F 

776 

F 

818 

472 


MVC 

IBLAH+5C 8),WORK 

MOVE TO MESSAGE 

0146E 

D2 

07 

F 

77F 

F 

820 

473 


MVC 

IBLAH+14C8),W0RK+8 


01474 

OA 

DO 





474 


SVC 

X * DO * 

PRINT 

01476 

EO 






475 


DC 

X * EO • 


01477 

1A 






476 

ICNT 

DC 

X ' 1A * 


01478 

F771 





477 


DC 

AL2(IBLAH-SECNO+REG) 


0147A 

07 

F9 





478 


BCR 

UNC,R9 

RETURN VIA REG 9 

0147C 

D2 

00 

F 

72F 

B 

004 

479 

ICCOUT 

MVC 

IEXPCC+5I1),4(Rll) 

MOVE EXP CC TO MESSAGE 

01482 

58 

AO 

F 

B9C 



480 


L 

RIO,1 SLAVE 


01486 

OA 

DO 





481 


SVC 

X 'DO * ’ 

PRINT EXPECTED COND. CODE 

01488 

EO 






482 


DC 

X' EO' 


01489 

OA 






483 


DC 

X ' 0 A * 


0148 A 

F72A 





484 


DC 

AL2(IEXPCC—SECNO+REG) 


0148C 

OA 

DO 





485 


SVC 

X * DO * 

PRINT ACTUAL COND. CODE 

0148E 

EO 






486 


DC 

X * EO * 


0148F 

OA 






487 


DC 

X ' 0 A • 


01490 

F734 





488 


DC 

AL2(IACTCC-SECNO+REGJ 


01492 

D2 

02 

F 

772 

F 

76B 

489 

IOCSW 

MVC 

IBLAH+1I3),IC SW 

MOVE -CSW- TO MESSAGE 

01498 

92 

1A 

F 

477 



490 


MVI 

ICNT,X'1A * 

ADJUST COUNT 

0149C 

91 

08 

B 

000 



491 


TM 

0(R11),X * 08 * 


014A0 

47 

80 

F 

4C4 



492 


BC 

NONE,IDIDI 

BR. IF NO CSW EXPECTED 

014A4 

D2 

02 

F 

788 

F 

78E 

493 


MVC 

IBLAH+2313),IEXP 

MOVE -EXP- TO MESSAGE 

014AA 

48 

88 

0 

006 



494 


LH 

R8,6(R11) 


014AE 

40 

80 

F 

4BE 



495 


STH 

R8,ICHNG1+4 


014B2 

41 

88 

0 

008 



496 


LA 

R8,8(R8) 


014B6 

40 

80 

F 

4EE 



497 


STH 

R8,ICHNG2+4 


014BA 

D2 

07 

F 

818 

F 

818 

498 

ICHNG1 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

014C0 

45 

90 

F 

460 



499 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 

014C4 

91 

40 

F 

0E4 



500 

IDIDI 

TM 

ISW,X*40* 


014C8 

47 

80 

F 

4 DC 



501 


BC 

NONE,IMORST 

BR. IF NO CSW STORED 

014CC 

D2 

02 

F 

788 

F 

78B 

502 


MVC 

IBLAH+23C3),IACT 

MOVE -ACT- TO MESSAGE 

014D2 

D2 

07 

F 

818 

F 

7E6 

503 


MVC 

WORK(8),ICSW1 

MOVE ACTUAL CSW TO WORK AREA 

014D8 

45 

90 

F 

460 



504 


BAL 

R9,ICOUT 

BR. TO OUTPUT ACTUAL CSW 

014DC 

91 

04 

B 

000 



505 

IMORST 

TM 

0(Rll),X*04* 


014E0 

47 

80 

F 

4F4 



506 


BC 

NONE,IDID 

BR. IF NOT EXPECTING 2 CSWS 

014E4 

D2 

02 

F 

788 

F 

78E 

507 


MVC 

IBLAH+23(3),IEXP 

MOVE -EXP- TO MESSAGE 

014EA 

D2 

07 

F 

818 

F 

818 

508 

ICHNG2 

MVC 

WORK(8),WORK 

MOVE EXPECTED CSW TO WORK AREA 

014F0 

45 

90 

F 

460 



509 


BAL 

R9,ICOUT 

BR. TO OUTPUT EXPECTED CSW 2 

014F4 

91 

20 

F 

0E4 



510 

IDID 

TM 

ISW,X*20* 


014F8 

47 

80 

F 

50C 



511 


BC 

NONE,IPAS 

BR. IF NO SECOND CSW STORED 

014FC 

D2 

02 

F 

788 

F 

78B 

512 


MVC 

IBLAH+23I3),IACT 

MOVE -ACT- TO MESSAGE 

01502 

D2 

07 

F 

818 

F 

7EE 

513 


MVC 

WORK(8),ICSW2 

MOVE CSW TO WORK AREA 

01508 

45 

90 

F 

460 



514 


BAL 

R9,ICOUT 


0150C 

91 

04 

F 

0E4 



515 

IPAS 

TM 

ISW,X*04' 


01510 

47 

80 

F 

530 



516 


BC 

NONE,IPASS 

BR. IF NO SENSE DATA RECIEVED 

01514 

OA 

DD 





517 


SVC 

X'DD* 

CONVERT EXPECTED SENSE 
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01516 

0001 





518 


DC 

AL2<1) 


01518 

0796 





519 


DC 

AL2(IEXSNS+5-SECN0) 


0151A 

0796 





520 


DC 

AL2IIEXSNS+5-SECN0) 


0151C 

OA 

DO 





521 


SVC 

X' DO' 

PRINT EXPECTED SENSE 

0151E 

EO 






522 


DC 

X • EO* 


0151F 

OB 






523 


DC 

X • OB • 


01520 

F791 





524 


DC 

AL2UEXSNS-SECN0+REG) 


01522 

OA 

DD 





525 


SVC 

X'DD' 


01524 

0001 





526 


DC 

AL2(1) 


01526 

07A1 





527 


DC 

AL2(IACSNS+5-SECN0) 


01528 

07A1 





528 


DC 

AL2(IACSNS+5-SECN0) 


0152 A 

OA 

DO 





529 


SVC 

X *00' 

PRINT ACTUAL SENSE DATA 

0152C 

EO 






530 


DC 

X' EO' 


01520 

OB 






531 


DC 

X * OB' 


0152E 

F79C 





532 


DC 

AL2(IACSNS-SECNO+REG) 


01530 

95 

30 

E 

181 



533 

IPASS 

CLI 

SYSMOD(R14),X•30• 

CHECK FOR MODEL 30 

01534 

47 

60 

F 

564 



534 


BC 

UNEQ,IOPOUT 

BR. IF NOT 

01538 

D2 

OB 

F 

818 

0 

080 

535 


MVC 

WORM 12) , LOGOUT 

MOVE LOGOUT TO WORK AREA 

0153E 

OA 

DD 





536 


SVC 

X'DD* 

CONVERT 

01540 

OOOC 





537 


DC 

AL2(12) 


01542 

0818 





538 


DC 

AL2(WORK—SECNO) 


01544 

0818 





539 


DC 

AL2(WORK-SECNO) 


01546 

D2 

01 

F 

7 AC 

F 

818 

540 


MVC 

IOLOG+5(2)f WORK 

MOVE LOG OUT TO MESSAGE 

0154C 

D2 

05 

F 

7AF 

F 

81A 

541 


MVC 

I0L0G+8(6),W0RK+2 


01552 

D2 

05 

F 

7B6 

F 

822 

542 


MVC 

IOLOG+15I6), WORM 10 


01558 

D2 

05 

F 

7BD 

F 

82A 

543 


MVC 

IOLOG+22l6) , WORK*18 


0155E 

OA 

DO 





544 


SVC 

X 1 DO' 

PRINT LOG OUT 

01560 

EO 






545 


DC 

X' EO' 


01561 

1C 






546 


DC 

X'lC' 


01562 

F7A7 





547 


DC 

AL2 <IOLOG-SECNO+REG) 


01564 

91 

60 

F 

0E5 



548 

IOPOUT 

TM 

ISW+1»X'6C 

CHECK FOR DIAGNOSTIC DATA 

01568 

47 

50 

F 

5 AO 



549 


BC 

ANY ,IOUT 

BR* IF ANY 

0156C 

OA 

DO 





550 

IPRLOP 

SVC 

X • DO * 

PRINT LOOP OPTIONS 

0156E 

CO 






551 

IFLAG2 

DC 

X'CO' 


0156F 

18 






552 


DC 

X * 18' 


01570 

F7CC 





553 


DC 

AL2(IQPT1—SECNO+REG) 


01572 

OA 

DO 





554 


SVC 

X 'DO* 

SPACE A LINE 

01574 

AO 






555 


DC 

X * AO' 


01575 

01 






556 


DC 

X'Ol' 


01576 

F74F 





557 


DC 

AL2(I LINK-SECNO+REG) 


01578 

50 

AD 

0 

048 



558 


ST 

R10,HCAW(R13) 

STORE CAW 

0157C 

91 

80 

F 

004 



559 


TM 

SNSW t X * 80• 

CHECK SECTION SENSE SWITCH 0 

01580 

47 

50 

F 

120 



560 


BC 

ANY ,ITRY1 

BR. IF ANY ON 

01584 

91 

01 

F 

0E5 



561 


TM 

ISW+1,X'01• 


01588 

07 

15 





562 


BCR 

ALL, R5 

RETURN VIA REG 5 IF HANG UP 

0158A 

91 

08 

B 

000 



563 

ILEAVE 

TM 

0(R11),X'08' 


0158E 

47 

80 

F 

596 



564 


BC 

NONE , I UP 

BR. IF NO CSW EXPECTED 

01592 

41 

BB 

0 

002 



565 


LA 

R11,2(R11) 

UPDATE LINK ADDRESS FOR RETURN 

01596 

41 

BB 

0 

006 



566 

IUP 

LA 

Rll»6(R11) 


0159A 

98 

79 

F 

830 



567 


LM 

R7,R9,I SAVE 


0159E 

07 

FB 





568 


BCR 

UNC *R11 

RETURN VIA REG 11 

015 AO 

90 

27 

F 

B80 



569 

I OUT 

STM 

R2,R7,LARGE 


015A4 

IB 

77 





570 


SR 

R7»R7 


015A6 

IB 

33 





571 


SR 

R3? R3 


015A8 

41 

20 

0 

084 



572 


LA 

R2,132 

SET UP FOR 132 POSITIONS 

015AC 

41 

60 

F 

AA8 



573 


LA 

R6.PRAR-1 


015B0 

91 

10 

F 

0E1 



574 


TM 

UNITl+1,X * 10' 

CHECK FOR UCS FEATURE 

015B4 

47 

10 

F 

5BC 



575 


BC 

ALLtNIXT-2 

BR. IF DEFINED 

015B8 

41 

60 

F 

BFC 



576 


LA 

R6.LDAR-1 


015BC 

IB 

55 





577 


SR 

R5,R5 


015BE 

43 

32 

F 

AA8 



570 

NIXT 

IC 

R3» PRAR—1(R2) 

PICK UP CHAR WRITTEN 

015C2 

43 

42 

F 

83B 



579 


IC 

R4 f CKAR—1(R2) 

PICK UP CHECK BYTE 

015C6 

43 

52 

F 

8BF 



580 


IC 

R5,ORAR-1(R2) 

PICK UP CHAR READ 

015CA 

43 

76 

2 

000 



581 


IC 

R7,0CR6,R2) 

PICK UP CHAR SHD READ 

015CE 

42 

40 

F 

BEC 



582 


STC 

R4.INF0+16 

STORE CHECK BYTE 
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015D2 

19 57 





583 


CR 

R5,R7 

COMPARE FOR CORRECT READ BACK 

015D4 

47 60 

F 

6F4 



584 


BC 

UNEQ,RANK 

BR. IF UNEQUAL 

015D8 

95 04 

F 

BEC 



585 

HOKAY 

CLI 

INFO+16,X * 04• 

COMPARE FOR PLC ONLY 

015DC 

47 60 

F 

5 EC 



5B6 


BC 

UNEQ,HONK 

BR. IF UNEQUAL 

015E0 

46 20 

F 

5BE 



587 

CRUDE 

BCT 

R2,NIXT 

BR. UNTIL 132 POSITIONS CHECKED 

015E4 

98 27 

F 

B80 



588 


LM 

R2,R7,LARGE 


015E8 

47 FO 

F 

56C 



589 


BC 

UNC,IPRLOP 


015EC 

91 10 

F 

0E5 



590 

HONK 

TM 

ISW+1,X'10' 

CHECK FOR PREVIOUS HEADING PRINT 

015F0 

47 10 

F 

680 



591 


BC 

ALL,SZABO 

BR. IF THERE WAS 

015F4 

91 10 

F 

0E1 



592 


TM 

UN ITl + 1,X•10• 

, 

015F8 

47 80 

F 

670 



593 


BC 

NONE,CHIRP 

BR. IF NOT 

015FC 

95 FO 

F 

BFD 



594 


CLI 

LDAR,X'FO' 

CHECK FOR LAST GROUP 

01600 

47 60 

F 

60E 



595 


BC 

UNEQ,HARDER 

BR. IF NOT 

01604 

OA DO 





596 


SVC 

X * DO' 

PRINT 

01606 

EO 





597 


DC 

X' EO • 


01607 

IF 





598 


DC 

X' IF' 


01608 

FB2D 





599 


DC 

AL2(LSTGRP-SECNO+REG) 


0160A 

47 FO 

F 

670 



600 


BC 

UNC,CHIRP 


0160E 

58 90 

F 

B90 



601 

HARDER 

L 

R9,LARGE+16 

PICK UP LDAR ADDRESS BEING FILLEI 

01612 

41 80 

F 

BFC 



602 


LA 

R8,LDAR-1 

PICK UP LDAR ADDRESS 

01616 

41 99 

0 

001 



603 


LA 

R9,1(R9) 


0161A 

IB 98 





604 


SR 

R9,R8 

SUBTRACT 

0161C 

43 89 

F 

BFC 



605 


IC 

R8,LDAR—1(R9) 

PICK UP FIRST CHAR 

01620 

42 80 

F 

B69 



606 


STC 

R 8,TUFF+29 


01624 

46 90 

F 

818 



607 


CVD 

R9,WORK 

CONVERT UCB ADDRESS TO DECIMAL 

01628 

F3 21 

F 

B56 

F 

81E 

608 


UNPK 

TUFF + 10C 3),W0RK+6IR2) 


0162E 

96 FO 

F 

B58 



609 


01 

TUFF+12,X'F0' 


01632 

41 99 

0 

OOF 



610 


LA 

R9,15(R9) 

UP TO LAST CHAR IN FIELD 

01636 

4E 90 

F 

818 



611 


CVD 

R9,WORK 

CONVERT HIGH ADDR TO DECIMAL 

0163 A 

F3 21 

F 

B5D 

F 

8 IE 

612 


UNPK 

TUFF+17I3),W0RK+6(2) 


01640 

96 FO 

F 

B5F 



613 


01 

TUFF+19»X *F0' 


01644 

43 89 

F 

BFC 



614 


IC 

R8,LDAR—1(R9) 

PICK UP LAST CHAR 

01648 

42 80 

F 

B71 



615 


STC 

R8,TUFF+37 


0164C 

OA 00 





616 


SVC 

X'DD* 


0164E 

0001 





617 


DC 

AL2 (1) 


01650 

0869 





618 


DC 

AL2(TUFF+29-SECNO) 


01652 

0B69 





619 


DC 

AL2(TUFF+29-SECNO) 


01654 

OA DD 





620 


SVC 

X'DD' 


01656 

0001 





621 


DC 

AL2(1) 


01658 

0B71 





622 


DC 

AL2(TUFF+37-SECNO) 


0165 A 

0B71 





623 


DC 

AL2(TUFF+37—SECNO) 


0165C 

OA DO 





624 


SVC 

X * DO' 

PRINT UCB ADDR AND DATA RANGE 

0165E 

EO 





625 


DC 

X' EO * 


0165F 

33 





626 


DC 

X * 33 • 


01660 

FB4C 





627 


DC 

AL2(TUFF-SECNO+REG) 


01662 

95 FB 

F 

D20 



628 


CLI 

LOAD,X 'FB ' 

COMPARE FOR FOLDING MODE 

01666 

47 80 

F 

670 



629 


BC 

EQ,CHIRP 

BR. IF NOT FOLDING 

0166A 

OA DO 





630 


SVC 

X' DC 

PRINT FOLDING MSG 

0166C 

EO 





631 


DC 

X * EO' 


0166D 

10 





632 


DC 

X'10' 


0166E 

FEB7 





633 


DC 

AL2(FOLDNG-SECNO+REG) 


01670 

OA DO 





634 

CHIRP 

SVC 

X' DO • 

PRINT HEADINGS 

01672 

EO 





635 


DC 

X' EO * 


01673 

1A 





636 


DC 

X' 1A • 


01674 

FBA8 





637 


DC 

AL2(HED1-SECNO+REG) 


01676 

OA DO 





638 


SVC 

X' DO' 


01678 

EO 





639 


DC 

X' EO* 


01679 

1A 





640 


DC 

X»1A • 


0167A 

FBC2 





641 


DC 

AL2 < HED2-SECNO+REG) 


0167C 

96 10 

F 

0E5 



642 


01 

ISW+1,X'10' 

INDICATE HEADINGS PRINTED 

01680 

42 30 

F 

BE2 



643 

SZABO 

STC 

R3,INFO+6 

STORE DATA 

01684 

42 50 

F 

BE8 



644 


STC 

R5,INFO+12 


01688 

42 70 

F 

BE5 



645 


STC 

R7,INFO+9 


0168C 

OA DD 





646 


SVC 

X'DD' 

CONVERT DATA 

0168E 

0001 





647 


DC 

AL2 (1) 
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01690 

QBE2 

648 


DC 

AL2(INFO+6—SECNO) 


01771 

40C3E2E640E7E7E7 


708 

IBLAH 

DC 

C* CSW XXXXXXXX XX' 


01692 

dBE2 

649 


DC 

AL2CINF0+6-SECN0) 


01779 

E7E7E7E7E740E7E7 







01694 

OA DD 

650 


SVC 

X • DD • 


01781 

E7E7E7 E7E7E740C5 


709 


DC 

C*XXXXXX EXP* 


j 01696 

0001 

651 


DC 

AL2(1 ) 


01789 

E7D7 







01690 

0BE5 

652 


DC 

AL2(INFO+9—SECNO) 


0178B 

C1C3E3 


710 

I ACT 

DC 

C'ACT' 


0169 A 

0BE5 

653 


DC 

AL2(INFO+9—SECNO) 


0178E 

C5E7D7 


711 

IEXP 

DC 

C * EXP * 


0169C 

OA DD 

654 


SVC 

X * DD • 


01791 

40E2D5 E240 E7E740 


712 

IEXSNS 

DC 

C* SNS XX EXP* 


0169E 

0001 

655 


DC 

AL2(1 ) 


01799 

C5E7D7 







016A0 

08E8 

656 


DC 

AL2CINF0+12-SECNO) 


0179C 

40E2D5E240E7E740 


713 

IACSNS 

DC 

C SNS XX ACT* 


016A2 

0BE8 

657 


DC 

AL2(I NFO+12—SECNO) 


017A4 

C1C3E3 







016A4 

4E 20 F 818 

658 


CVD 

R2 * WORK 

CONVERT PRINT POSITION TO DECIMAL 

017A7 

40D3D6C740E7E740 


714 

IOLOG 

DC 

C* LOG XX XXXXXX X* 


016A8 

F3 21 F BDD F 81E 659 


UNPK 

INFO+1 ( 3), WORK+6 C 2) 


017AF 

E7E7E7E7E7E740E7 







016AE 

96 FO F BDF 

660 


01 

INFO+3 * X * FO * 


017B7 

E7E7E7E7E740E7E7 


715 


DC 

CXXXXX XXXXXX* 


016B2 

42 40 F BEC 

661 


STC 

R4*INFO+16 

STORE CK RD BYTE 

017BF 

E7E7E7E7 







016B6 

92 FO F BFO 

662 


MV I 

INF0+20,X'FO• 


017C3 

40E3E2E340E7E7E7 


716 

ITSTNO 

DC 

C' TST XXXX* 


016BA 

91 02 F BEC 

663 


TM 

INFO+16, X * 02' 

CHECK FOR PRINT CHECK BIT 

017CB 

E7 







016BE 

47 80 F 6C6 

664 


BC 

NONE »OBER1 

BR. IF OFF 

017CC 

40E2E240F040D6D5 


717 

I0PT1 

DC 

C' SS 0 ON FOR LOO* 


016C2 

92 FI F BFO 

665 


MVI 

INF0+20*X *F1' 


017D4 

40C6D6D940D3D6D6 







016C6 

92 FO F BF4 

666 

0BER1 

MVI 

INFO+24 * X *F0 • 


017DC 

D740D6D540E2C9D6 


718 


DC 

C'P ON SIO* 


016CA 

91 01 F BEC 

667 


TM 

INF0+16*X *01' 

CHECK FOR PARITY CHECK BIT 

017E4 

D6D7 


719 


DC 

C'OP* 


016CE 

47 80 F 6D6 

668 


BC 

NONE ,0BER2 

BR. IF OFF 

017E6 

0000000000000000 


720 

ICSW1 

DC 

XL 8 1 0 9 


016D2 

92 FI F BF4 

669 


MVI 

INF0+24,X*F1 ' 


017EE 

0000000000000000 


721 

ICSW2 

DC 

XL8 * 0' 


016D6 

91 04 F BEC 

670 

0BER2 

TM 

INF0+16,X'04» 

CHECK FOR PLC 

017F6 

0000 







016DA 

47 80 F 6E6 

671 


BC 

NONE,0BER3 

BR. IF OFF 

017F8 

040017 A100000001 


722 

ISENSE 

CCW 

X * 04',IACSNS+5 * X • 00 • , 

1 

016DE 

92 FI F BEC 

672 


MVI 

INF0+16,X»Fl* 


01800 

00115E 


723 

IOADR 

DC 

AL3CISSUE) 


016E2 

47 FO F 6EA 

673 


BC 

UNC,0BER4 


01803 

FE 


724 

MSK1 

DC 

X'FE* 


016E6 

92 FO F BEC 

674 

0BER3 

MVI 

INF0+16,X'FO* 


01804 

01 


725 

MSK2 

DC 

X*01* 


016EA 

OA DO 

675 

0BER4 

SVC 

X 'DO* 

PRINT FAILING POSITION 

01805 

000000 







016EC 

EO 

676 


DC 

X • EO 1 


01808 

0600183C00000084 


726 

DCKRD 

CCW 

X*06*,CKAR»X* 00 *,132 


016ED 

19 

677 


DC 

X * 19 • 


01810 

00001810 


727 

CRDCSW 

DC 

A(CRDCSW) 


016EE 

FBDC 

678 


DC 

AL2UNF0-SECN0+REG) 


01814 

OCOOOOOO 


728 


DC 

X'OCOOOOOO* 


016F0 

47 FO F 5E0 

679 


BC 

UNC,CRUDE 


01818 



729 


CNOP 

0,8 


016F4 

91 10 F OEl 

680 

RANK 

TM 

UNIT1+1,X*10* 

CHECK FOR UCS FEATURE 

01818 



730 

WORK 

DS 

24C 


016F8 

47 80 F 5EC 

681 


BC 

NONE,HONK 

BR. IF NOT 

01830 

0000000000000000 


731 

ISAVE 

DC 

XL 12 * 0 * 


016FC 

91 80 F 007 

682 


TM 

SNSW+3,X*80* 

CHECK SENSE SWITCH 24 FOR DUALING 

01838 

00000000 







01700 

47 80 F 5EC 

683 


BC 

NONE,HONK 

BR. IF OFF - NOT DUALING 

0183C 



732 

CK AR 

DS 

132C 


01704 

IB 88 

684 


SR 

R8,R8 

CLEAR REG 8 

018C0 



733 

DRAR 

DS 

132C 


01706 

41 40 0 004 

685 


LA 

R4,4 

SET UP FOR 4 DUALABLE CHARACTERS 

01944 

00000000 







0170A 

43 84 F BF4 

686 

SWING 

IC 

R8»DUABLE—1(R4) 


01948 

020018COOO000084 


734 

RDCCW 

CCW 

X*02*,DRAR,X»00*,132 


0170E 

19 83 

687 


CR 

R8,R3 

COMPARE FOR DUALABLE CHAR 




735 

ft*******,*************************************************************** 

01710 

47 80 F 71C 

688 


BC 

EO,SWUNG 

BR. IF IT IS 




736 

* 


INITIALIZE ROUTINE 

01714 

46 40 F 70A 

689 


BCT 

R4,SWING 

BR. UNTIL 4 CHECKED 




737 

******** *************************************************************** 

01718 

47 FO F 5EC 

690 


BC 

UNC,HONK 


01950 

IB DD 


738 

IN IT 

SR 

R13,R13 

ZERO REG 13 

0171C 

43 74 F BF8 

691 

SWUNG 

IC 

R7,DUALED—1(R4) 

INSERT DUALED IN SHD READ 

01952 

91 40 E 196 


739 


TM 

406(R14),X *40 * 

CHECK FOR FORCED PROBLEM STATE 

01720 

19 57 

692 


CR 

R5,R7 

COMPARE TO READ 

01956 

47 80 F 95C 


740 


BC 

NONE,NITWIT 

BR. IF NOT 

01722 

47 60 F 5EC 

693 


BC 

UNEQ,HONK 

BR. IF UNEQUAL 

0195A 

18 DF 


741 


LR 

R13,R15 

SET UP FOR PROBLEM STATE 

01726 

47 FO F 5D8 

694 


BC 

UNC,HOKAY 


0195C 

58 CO F 0EO 


742 

NITWIT 

L 

R12,UNIT1 

LOAD REG 12 WITH UNIT TABLE ENTRY 

0172A 

40C3C34040E740C5 

695 

IEXPCC 

DC 

C* CC X EXP* 


01960 

54 CO F BA4 


743 


N 

R12,M0D50 

AND OUT UNUSED BITS 

01732 

E7D7 






01964 

49 CO F A10 


744 


CH 

R12,SAVDEV 

COMPARE FOR CURRENT DEVICE ADDRESS 

01734 

40C3C34040E740C1 

696 

IACTCC 

DC 

C* CC X ACT* 


01968 

47 80 F 9BC 


745 


BC 

EQ,RLOOP 

BR. IF EQUAL 

0173C 

C3E3 






0196C 

40 CO F A10 


746 


STH 

R12,SAVDEV 

SAVE CURRENT DEVICE ADDRESS 

0173E 

40C1C4D940 E7E7E7 

697 

10ADDR 

DC 

C' ADR XXXXXX SIO' 


01970 

91 10 F OEl 


747 


TM 

UNIT1+1,X*10* 

CHECK FOR UCS FEATURE 

01746 

E7E7E740E2C9D6 






01974 

47 80 F 9BC 


748 


BC 

NONE,BLOOP 

BR. IF NOT DEFINED 

0174D 

00 

698 


DC 

X*00* 


01978 

D2 02 F A3A F 

7D2 

T49 


MVC 

FERRO*14(3),IOPT1+6 

MOVE WORD -ON - TO MSG 

0174E 

07 00 

699 


CNOP 

0,4 


0197E 

D2 02 F A45 F 

A57 

750 


MVC 

FERR0+25C3)»OFF 

MOVE WORD -OFF- TO MSG 

0174F 


700 


ORG 

*-l 


01984 

D2 02 F A4C F 

A5A 

751 


MVC 

FERRO+32 C 3),NOT 

MOVE WORD -NOT- TO MSG 

0174F 

40C1C4D940E7E7E7 

701 

ILINK 

DC 

C* ADR XXXXXX LINK* 


0198 A 

91 80 F 007 


752 


TM 

SNSW+3,X *80* 

TEST FOR DUALING MODE 

01757 

E7E7E740D3C9D5D2 






0198E 

47 10 F 9A4 


753 


BC 

ALL,DARIO 

BR. IF DUALING MODE 

0175F 

00 

702 


DC 

X*00* 


01992 

D2 02 F A3A F 

A57 

754 


MVC 

FERRQ+14I3),OFF 

MOVE WORD -OFF- TO MSG 

01760 


703 


CNOP 

0,4 


01998 

D2 02 F A45 F 

7D2 

755 


MVC 

FERR0+25I3),I0PTl+6 

MOVE WORD -ON - TO MSG 

0175F 


704 


ORG 

*-l 


0199E 

D2 02 F A4C F 

A4B 

756 


MVC 

FERRO+32C3),FERR0+31 

BLANK OUT WORD -NOT- 

0175F 

40C3C1E640E7E7E7 

705 

ICAW 

DC 

C* CAW XXXXXX • 


019A4 

OA DO 


757 

DARIO 

SVC 

X* DO* 

PRINT SS 24 MSG 

01767 

E7E7E740 






019A6 

04 


758 


DC 

X * 04 * 


0176B 

C3E2E6 

706 

ICSW 

DC 

C*CSW* 

l 

019A7 

2B 


759 


DC 

X * 2B * 


0176E 

C3C3E6 

707 

ICCW 

DC 

CCCW* 

i 

019A8 

FA2C 


760 


DC 

AL2 ( FERRO-SECNO+REG % 
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1403 RIPPLE PRINT 


019AA 

OA DA 

761 

STAY 

SVC 

X' DA' 

HALT FOR SS ALTERATION 

019AC 

41 AO F F28 

762 


LA 

RlOtPRINTl 


019B0 

45 BO F 0E6 

763 


BAL 

RllfISIO 

GO DO SPACE 

019B4 

2CC0 

764 


DC 

X * 2CC0' 

CONTROL SWITCHES 

019B6 

0005 

765 


DC 

X•0005' 


019B8 

F100 

766 


DC 

X•F100' 


019BA 

FF30 

767 


DC 

AL2(PRTl—SECNO+REG) 


019BC 

91 BO F 0E4 

768 

BLOOP 

TM 

ISW,X'80• 

CHECK FOR HANG UP 

019C0 

47 10 F 9DC 

769 


BC 

ALL ,HANGUP 

BR. IF DETECTED 

019C4 

D2 00 F A12 F 003 

770 


MVC 

RTSAV(l), SECNO+3 

SAVE ROUTINE NUMBER 

019CA 

92 40 F BFD 

771 


MV I 

LDAR * X •40• 

CLEAR LOAD AREA 

019CE 

D2 EF F BFE F BFD 

772 


MVC 

LDAR+1C 240), LDAR 


019D4 

D2 83 F AA9 F BFD 

773 


MVC 

PRAR1132),LDAR 

CLEAR PRINT AREA 

019DA 

07 F4 

774 


BCR 

UNC,R4 

RETURN VIA REG 4 

019DC 

D2 00 F 003 F A12 

775 

HANGUP 

MVC 

SECN0+3(1)»RTSAV 

MOVE RTN NO. THAT HANG WAS FOUND 

019E2 

94 7F F 0E4 

776 


NI 

ISW » X'7F' 


019E6 

96 01 F 0E5 

777 


01 

ISW+1,X*01' 


019EA 

98 AB F B9C 

778 


LM 

R10»R11»I SLAVE 

RESTORE REGS 10 AND 11 

019EE 

OA DO 

779 


SVC 

X * DO • 

PRINT 

019F0 

64 

780 


DC 

X *64* 

-PREVIOUS HANGUP DETECTED- 

019F1 

1A 

781 


DC 

X * 1A • 


019F2 

FA8E 

782 


DC 

AL2(HUNG-SECNO+REG) 


019F4 

OA DO 

783 


SVC 

X' DO' 


019F6 

A019 

784 


DC 

x'Aoi9* 


019F8 

FA13 

785 


DC 

AL2(CLUIN-SECNO+REG) 


019FA 

45 50 F 25C 

786 


BAL 

R5,IDOSNS 

BR. TO OUTPUT AVAILABLE INFO 

019FE 

92 00 F 0E4 

787 


MVI 

ISWyX'OO' 

RESET HANGUP SWITCH 

01A02 

94 F£ F 0E5 

788 


N I 

ISW+1,X'FE* 


01A06 

92 01 F 003 

789 


MVI 

SECNO+3* X *01 * 

RESTORE TO ROUTINE 01 

OlAOA 

47 FO F 9BC 

790 


BC 

UNCyBLOOP 


01A0E 

07 00 

791 


CNOP 

0,4 


01A10 

FFFF 

792 

SAVDEV 

DC 

X'FFFF• 


01A12 

00 

793 

RTSAV 

DC 

X'OO' 


01A13 

40E2C5C540C4C5E2 

794 

CLUIN 

DC 

C« SEE DESCRIPTION* 


01A1B 

C3D9C9D7E3C9D6D5 






01A23 

60C3D6D4D4C5D5E3 

795 


DC 

C'-COMMENTS' 


01A2B 

E2 






01A2C 

40E2C5C340E2E240 

796 

FERRO 

DC 

C' SEC SS 24 IS OF' 


01A34 

F2F440C9E240D6C6 






01A3C 

C640E2C5E340C9E3 

797 


DC 

C'F SET IT OFF IF • 


01A44 

40D6C6C640C9C640 






01A4C 

D5D6E340C4E4C1D3 

798 


DC 

C'NOT DUALING' 


01A54 

C9D5C7 






01A57 

D6C6C6 

799 

OFF 

DC 

C'OFF• 


01A5A 

D5D6E3 

800 

NOT 

DC 

C'NOT' 


01A5D 

40C8E4D5C740E4D7 

801 

NODEV 

DC 

C' HUNG UP BUSY- S* 


01A65 

40C2E4E2E86040E2 






01A6D 

E8E240D9C5E2C5E3 

802 


DC 

C'YS RESET PSW RES' 


01A75 

40D7E2E640D9C5E2 






01A7D 

E3C1D9E3 

803 


DC 

C•TART• 


01A81 

40D9C5C1C4E840C4 

804 

READY 

DC 

C' READY DEVICE* 


01A89 

C5E5C9C3C5 






01A8E 

40D7D9C5E5C9D6E4 

805 

HUNG 

DC 

C' PREVIOUS HANG U' 


01A96 

E240C8CID5C740E4 






01A9E 

D740C4C5E3C5C3E3 

806 


DC 

C'P DETECTEO' 


01AA6 

C5C4 






01AA8 

40 

807 


DC 

X • 40 • 


01AA9 


808 

PRAR 

DS 

132C 


001 AO 


809 

DMSSW 

EQU 

416 


01B2D 

40E4C3C240C8C1E2 

810 

LSTGRP 

DC 

C* UCB HAS 16 CHAR' 


01B35 

40F1F640C3C8C1D9 






01B3D 

40E2C5E340C6F040 

811 


DC 

C* SET FO THRU FF• 


01B45 

E3C8D9E440C6C6 






01B4C 

40E4C3E240C1C4C4 

812 

TUFF 

DC 

C' UCS ADDR XXX TO' 



01B54 D940E7 E7E740E3D6 
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01B5C 

40E7E7 E740C3D6D5 

813 


DC 

C' XXX CONTAIN XX • 

01B64 

E3C1C9D540E7E740 





01B6C 

E3C8D9E440 E7E740 

814 


DC 

C'THRU XX REST BLA' 

01B74 

D9C5E2E340C2D3C1 





01B7C 

D5D2E2 

'815 


DC 

C'NKS' 

01B7F 

00 





01B80 


816 


CNOP 

0,4 

01B80 


817 

LARGE 

DS 

24C 

01B98 

00000000 

818 

SAV10 

DC 

XL4'0' 

01B9C 

0000000000000000 

819 

ISLAVE 

DC 

XL 8 * 00• 

01BA4 

00003FFF 

820 

M0D50 

DC 

X'00003FFF * 

01 BAS 

40D7D9 C9D5 E34040 

821 

HED1 

DC 

C' PRINT SHD ' 

01BB0 

E2C8C44040404040 





01BB8 

404040 D7D9 E340D7 

822 


DC 

C* PRT PAR' 

01BC0 

C1D9 





01BC2 

4040D7 D6E240E6D9 

823 

HED2 

DC 

C' POS WR RD RD P' 

01 BC A 

40D9C440D9C440D7 





01BD2 

D3C340 C3C8 D240C3 

824 


DC 

C'LC CHK CHK * 

01BDA 

C8D2 





01BDC 

40E7E7 E74040E7E7 

825 

INFO 

DC 

C* XXX XX XX XX ' 

01BE4 

40E7E740E7E74040 





01BEC 

E7404040E7 404040 

826 


DC 

C'X X X' 

01BF4 

E7 





01BF5 

4D5D7E7D 

827 

DUABLE 

DC 

X'4D5D7E7D' 

01BF9 

6C4C7B7C 

828 

DUALED 

DC 

X•6C4C7B7C' 

01BFD 


829 

LDAR 

DS 

240C 



830 

*********************************************************************** 



831 

* 


LOAD UCS SUB-ROUTINE 



832 

*********************************************************************** 

01CED 

00 





01CEE 

D2 01 F D02 5 000 

833 

LOADIT 

MVC 

MUMB(2),0(R5) MOVE TEST NUMBER 

01CF4 

41 55 0 002 

834 


LA 

R5,2(R5) UPDATE RETURN REG 

01CF8 

41 AO F DIO 

835 


LA 

RIO,PRELD LOAD CCW ADDRESS 

01CFC 

45 BO F 0E6 

836 


BAL 

R11,ISI0 BR. TO ISSUE SIO 

01D00 

3E00 

837 


DC 

X * 3E00 * CTRL SWITCHES 

01D02 

0000 

838 

MUMB 

DC 

X'OOOO* TEST NUMBER 

01D04 

FOOO 

839 


DC 

X'FOOO* EXP COND CODE AND SENSE 

01D06 

FD28 

840 


DC 

AL2 < LDCSW-SECNQ+REG) EXP CSW ADDRESS 

1 01D08 

07 F5 

841 


BCR 

UNC,R5 RETURN VIA R5 

i 01D0A 

000000000000 





i 01D10 

EBOOiAA940000001 

842 

PRELD 

CCW 

X * EB',PRAR,X'40 *,1 

! 01D18 

7B00lAA940000001 

843 


CCW 

X•7B',PRAR,X•40 *,1 

01D20 

FBOO1B FDOOOOOOFO 

844 

LOAD 

CCW 

X'FB',LDAR,X'OO',240 

01D28 

00001D28 

845 

LDCSW 

DC 

A(LDCSW) 

01D2C 

08000000 

846 


DC 

X'08000000 9 

01D30 

00000000 

847 


DC 

XL4'O' 

01D34 

04000000 

848 


DC 

X'04000000' 

01D38 


849 


CNOP 

0,4 



850 

*********************************************************************** 



851 

*********************************************************************** 



852 

* ROUTINE 01 

- THIS ROUTINE WILL RUN ON 1403 PRINTERS WITH THE UCS 



853 

* 


FEATURE ONLY. ALL 256 POSIBLE CHARACTERS WILL BE PRINTED 



854 

* 


IN EACH PRINT POSITION. 1HE 256 CHARACTER CODES WILL BE 



855 

* 


RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 16 CODES AT 



856 

* 


A TIME. EXCEPT FOR THE LAST GROUP OF 16 CODES, ONLY ONE 



857 

* 


AREA OF THE UCS BUFFER WILL CONTAIN MATCHING CHARACTERS. 


! 

858 

♦ 


FOR EACH OF THESE GROUPS, A DIFFERENT AREA OF THE UCS 



859 

* 


BUFFER WILL CONTAIN THE MATCHING CODES* THE REST OF THE 



860 

* 


BUFFER CONTAINING BLANKS. FOR THE LAST GROUP OF 16 CODES 



861 

* 


THE ENTIRE UCS BUFFER WILL BE FILLED WITH MATCHING CODES 



862 

* 


EACH GROUP OF 16 LINES WILL BE SEPARATED BY A TRIPLE 



863 

* 


SPACE. THE FIRST 15 GROUPS WILL APPEAR AS A TRUE RIPPLE 



864 

♦ 


OUTPUT. THE LAST GROUP WILL NOT BECAUSE MANY PRINT SLUGS 



865 

* 


ARE ASSIGNED THE SAME CODE. 



866 

*********************************************************************** 
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01D38 

01 






867 

R0UT01 

DC 

X'Ol* 

ROUTINE NUMBER 

01D39 

000F44 





868 


DC 

AL3(R0UT02-SECN0) 

ADDRESS OF NEXT ROUTINE 

01D3C 

91 

10 

F 

0E1 



869 


TM 

UNIT1+1,X*10* 

CHECK FOR UCS FEATURE 

01D40 

47 

80 

F 

FE6 



870 


BC 

NONE?EXIT02 

BR. IF NOT DEFINED 

01D44 

45 

40 

F 

950 



871 


BAL 

R4,INIT 

BR. TO INITIALIZE 

01D48 

92 

FB 

F 

D20 



872 


MV I 

LOAO,X•FB # 

SET UP LOAD NO FOLD 

01D4C 

41 

20 

0 

OOF 



873 

AGAIN 

LA 

R2, 15 

SET UP FOR 15 GROUPS 

01D50 

41 

40 

0 

OOF 



874 


LA 

R4,15 

SET UP FOR 00 TO OF 

01D54 

41 

60 

F 

BFC 



875 


LA 

R6» LDAR-1 

SET UP FOR UCS ADDR 1 TO 16 

01D58 

92 

40 

F 

BFD 



876 

KLEER 

MV I 

LDAR » X *40• 


01D5C 

D2 

EE 

F 

BFE 

F 

BFD 

877 


M VC 

LDAR+1(239),LDAR 


01D62 

18 

54 





878 


LR 

R5 *R4 

LOAD STARTING CHARACTER 

01D64 

41 

70 

0 

010 



879 


LA 

R7,16 

SET UP FOR 16 CHARACTERS 

01D68 

42 

56 

7 

000 



880 

STC 

STC 

R5,0(R6,R7) 

STORE CHAR IN UCS LOAD AREA 

01D6C 

42 

57 

F 

AA8 



881 


STC 

R5,PRAR-1(R7) 

STORE CHARACTER IN PRINT AREA 

01D70 

95 

F3 

F 

D20 



882 


CL I 

LOAD,X*F3» 

COMPARE FOR FOLDING MODE 

01D74 

47 

60 

F 

D7E 



883 


BC 

UNEQ,*+10 

BR. IF NOT 

01D78 

D6 

00 

7 

006 

F 

F40 

884 


oc 

R6(1*R7)»FOLD 

OR IN BITS 0 AND 1 

01D7E 

46 

50 

F 

D82 



885 


BCT 

R5,*+4 

DECREMENT CHARACTER 

01D82 

46 

70 

F 

D68 



886 


BCT 

R7,STC 

BR. UNTIL 16 STORED 

01D86 

91 

80 

F 

007 



887 


TM 

SNSW+3* X * 80 • 

CHECK SECTION SENSE SWITCH 24 

01D8A 

47 

10 

F 

E62 



888 


BC 

ALL,ADJUST 

BR. IF ON - DUALING 

01D8E 

D2 

73 

F 

AB9 

F 

AA9 

889 

MARTY 

MVC 

PRAR+16C1161,PRAR 

FILL THE PRINT AREA 

01D94 

45 

50 

F 

CEE 



890 


BAL 

R5,L0ADIT 

BR. TO LOAD UCS BUFFER 

01D98 

0010 





891 


DC 

X*0010* 

TEST NUMBER 

01D9A 

41 

70 

0 

OOF 



892 


LA 

R7, 15 

SET UP FOR 15 LINES 

01D9E 

92 

09 

F 

EDO 



893 


M VI 

PRINT,X*09* 

SET UP PRINT AND SPACE 

01DA2 

41 

AO 

F 

ECS 



894 


LA 

R 10,DUAL 

SET UP FOR DUALING MODE 

01DA6 

91 

80 

F 

007 



895 


TM 

SNSW+3,X•80• 

CHECK SENSE SWITCH 24 FOR DUALING 

01DAA 

47 

10 

F 

DB2 



896 


BC 

ALL,WRITE 

BR. IF ON - IN DUALING MODE 

01DAE 

41 

AO 

F 

EDO 



897 


LA 

RIO,PRINT 

LOAD PRINT AND SPACE CCW ADDRESS 

01DB2 

45 

BO 

F 

0E6 



898 

WRITE 

BAL 

Rll,ISIO 

BR. TO ISSUE START I~0 

01DB6 

3CC0 





899 


DC 

X*3CC0 1 

CONTROL SWITCHES 

01DB8 

0020 





900 


DC 

X•0020 * 

TEST NUMBER 

01DBA 

FOOO 





901 


DC 

X•FOOO* 

EXP COND. CODE AND SENSE 

01DBC 

FED8 





902 


DC 

AL2(PRTCSW-SECN0+REG> 

EXP CSW ADDRESS 

01DBE 

D2 

63 

F 

AA8 

F 

AA9 

903 


MVC 

PRAR-1(132),PRAR 

RIPPLE THE PRINT AREA 

01DC4 

D2 

00 

F 

B2C 

F 

AA8 

904 


MVC 

PRAR+13K1) ,PRAR-1 


01DCA 

91 

10 

F 

EDO 



905 


TM 

PRINT,X'10' 

CHECK FOR SPACE 3 AFTER PRINT 

01DCE 

47 

10 

F 

DDE 



906 


BC 

ALL,UPGRUP 

BR. IF IT WAS 

01DD2 

46 

70 

F 

DB2 



907 


BCT 

R7,WRITE 

BR. UNTIL 15 LINES PRINTED 

01DD6 

92 

19 

F 

EDO 



908 


MVI 

PRINT,X*19* 

SET UP FOR SPACE 3 AFTER PRINT 

01DDA 

47 

FO 

F 

DB2 



909 


BC 

UNC,WRITE 


01 DDE 

41 

44 

0 

010 



910 

UPGRUP 

LA 

R4,16(R4) 

UPDATE TO NEXT GROUP CHARACTERS 

01DE2 

41 

66 

0 

010 



911 


LA 

R6,16(R6) 

UPDATE TO NEXT UCS ADDRESS 

01DE6 

46 

20 

F 

D58 



912 


BCT 

R2,KLEER 

BR. UNTIL 15 GROUPS RIPPLED 

01DEA 

18 

54 





913 


LR 

R5,R4 


01DEC 

41 

70 

0 

010 



914 


LA 

R7,16 


01DF0 

42 

57 

F 

BFC 



915 

STC2 

STC 

R5,LDAR-1(R7) 

GENERATE LAST SET FO TO FF 

01DF4 

46 

50 

F 

DF8 



916 


BCT 

R5,*+4 


01DF8 

46 

70 

F 

DFO 



917 


BCT 

R7,STC2 


01DFC 

D2 

DF 

F 

COD 

F 

BFD 

918 


MVC 

LDAR+16(224),LDAR 

FILL UCS LOAD AREA WITH 15 SETS 

01E02 

02 

83 

F 

AA9 

F 

BFD 

919 


MVC 

PRAR(132),LDAR 

FILL PRINT AREA 

01E08 

45 

50 

F 

CEE 



920 


BAL 

R5,L0ADIT 

BR. TO LOAD UCS BUFFER 

01E0C 

0030 





921 


DC 

X•0030• 

TEST NUMBER 

01E0E 

41 

70 

0 

OOF 



922 


LA 

R7, 15 

SET UP FOR 15 LINES 

01E12 

92 

09 

F 

EDO 



923 


MVI 

PRINT,X*09* 


01E16 

41 

AO 

F 

EC8 



924 


LA 

RIO,DUAL 

SET UP FOR DUALING MODE 

01E1A 

91 

80 

F 

007 



925 


TM 

SNSW+3,X*80* 

CHECK SENSE SWITCH 24 FOR DUALING 

01E1E 

47 

10 

F 

E26 



926 


BC 

ALL,WRITE2 

BR. IF ON - IN DUALING MODE 

01E22 

41 

AO 

F 

EDO 



927 


LA 

RIO,PRINT 

SET UP FOR PRINT AND SPACE 

01E26 

45 

BO 

F 

0E6 



928 

WRITE2 

BAL 

R11,ISI0 

BR. TO ISSUE SIO 

01E2A 

3CC0 





929 


DC 

X*3CC0' 

CONTROL SWITCHES 

01E2C 

0040 





930 


DC 

X* 0040* 

TEST NUMBER 

01E2E 

FOOO 





931 


DC 

X* FOOO* 

EXP COND. CODE AND SENSE 


DATE 

15MAR66 

15N0V66 

120CT67 

ID F836-4 
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01E30 

FED8 

932 


DC 

AL2(PRTCSW-SECNO+REG) 

EXP CSW ADDRESS 

01E32 

D2 83 F AA8 F AA9 

933 


MVC 

PRAR-1(132),PRAR 

RIPPLE PRINT AREA 

01E38 

D2 00 F B2C F AA8 

934 


MVC 

PRAR + 13K 1) ,PRAR-1 


01E3E 

91 10 F EDO 

935 


TM 

PRINT,X*10* 

CHECK FOR SPACE 3 AFTER PRINT 

01E42 

47 10 F E52 

936 


BC 

ALL,EXITOi 

BR. IF IT WAS 

01E46 

46 70 F E26 

937 


BCT 

R7,WRITE2 

BR. UNTIL 15 LINES PRINTED 

01E4A 

92 19 F EDO 

938 


MVI 

PRINT,X*19* 

SET UP FOR SPACE 3 AFTER PRINT 

01E4E 

47 FO F E26 

939 


BC 

UNC,WRITE2 


01E52 

95 F3 F D20 

940 

EXIT01 

CLI 

LOAD,X•F3 * 

COMPARE FOR FOLDING MODE 

01E 56 

47 80 F E94 

941 


BC 

EQ,EXIT1 

BR. IF DONE 

01E5A 

92 F3 F D20 

942 


MVI 

LOAD,X * F3• 

SET UP FOR FOLDING MODE 

01E5E 

47 FO F D4C 

943 


BC 

UNC,AGAIN 


01E62 

95 00 F AA9 

944 

ADJUST 

CLI 

PRAR,X'00 * 

COMPARE FOR A NULL 

01E66 

47 80 F E8A 

945 


BC 

EQ,SWAT 

BR. IF IT IS 

01E6A 

95 40 F AA9 

946 


CLI 

PRAR,X * 40• 

COMPARE FOR A BLANK 

01E6E 

47 80 F ESA 

947 


BC 

EQ,SWAT 

BR. IF IT IS 

01E72 

95 F3 F D20 

948 


CLI 

LOAD» X * F3 * 

COMPARE FOR FOLDING 

01E76 

47 60 F D8E 

949 


BC 

UNEQ,MARTY 

BR. IF NOT 

01E7A 

95 80 F AA9 

950 


CLI 

PRAR,X•80• 

COMPARE FOR A VALID UNPRINTABLE 

01E7E 

47 80 F E8A 

951 


BC 

EQ,SWAT 

BR. IF IT IS 

01E82 

95 CO F AA9 

952 


CLI 

PRAR,X * CO• 

COMPARE FOR A VALID UNPRINTABLE 

01E86 

47 60 F D8E 

953 


BC 

UNEQ,MARTY 

BR. IF NOT 

01 ESA 

D2 00 F AA9 F AAA 

954 

SWAT 

MVC 

PRAR(1),PRAR+1 

WIPE OUT CHARACTER 

01E90 

47 FO F D8E 

955 


BC 

UNC,MARTY 


01E94 

OA DO 

956 

EXIT 1 

SVC 

X * DO * 

PRINT RESTORE MSG 

01E96 

04 

957 


DC 

X * 04 * 


01E97 

IB 

958 


DC 

X • IB * 


01E98 

FE9C 

959 


DC 

AL2(BASHED-SECN0+REG) 


01E9A 

OA D6 

960 


SVC 

X • D6 * 

EXIT FROM ROUTINE 01 

01E9C 

40D9C5 E2E3 D6D9C5 

961 

BASHED 

DC 

C* RESTORE UCS BUFR WITH F837* 

01EA4 

40E4C3 E240C2E4C6 






OlEAC 

D940E6C9E3C840C6 






01EB4 

F8F3F7 






01EB7 

40C9D540 C6D6D3C4 

962 

FOLDNG 

DC 

C* IN FOLDING MODE* 


01EBF 

C9D5C7 40D4D6C4C5 






01EC7 

00 






01EC8 

E BOO1AA940000001 

963 

DUAL 

CCW 

X*E8*,PRAR,X*40*,1 


01 EDO 

09001AA900000084 

964 

PRINT 

CCW 

X*09*,PRAR,X'OO*,132 


01ED8 

00001ED8 

965 

PRTCSW 

DC 

A(PRTCSW) 


01EDC 

08000000 

966 


DC 

X * 08000000 * 


01EE0 

00000000 

967 


DC , 

XL4 * 0 * 


01EE4 

04000000 

968 


DCY 

X * 04000000 * 


01EE8 

3132733475763738 

969 

QUAD1 

DC 

X * 3132733475763738• 


01EF0 

797A3B7C1C7A7F2A 

970 


DC 

X*797A3B7C1C7A7F2A* 


01EF8 

6162236425266768 

971 


DC 

X•6162236425266768 * 


01F00 

292 A6B2C7C6E2F10 

972 


DC 

X * 292A6B2C7C6E2F10 * 


01F08 

5152135415165758 

973 


DC 

X*5152135415165758* 


01F10 

191A5B1C5D5B1F4A 

974 


DC 

X*191A5B1C5D5B1F4A* 


01F13 

0102430445460708 

975 


DC 

X * 0102430445460708 * 


01F20 

494A0B4C4C0B4F70 

976 


DC 

X*494A0B4C4C0B4F70» 


01F28 

OBOO1AA900000084 

977 

PR INTI 

CCW 

X*0B*,PRAR,X*00*,132 


01F30 

00000000 

978 

PRT1 

DC 

XL4 * 0• 


01F34 

08000000 

979 


DC 

X * 08000000 * 


01F38 

00000000 

980 


DC 

XL4*0* 


01F3C 

04000000 

981 


DC 

X * 04000000 * 


01F40 

CO 

982 

FOLD 

DC 

X*CO* 


01F41 

00 






01F42 

07 00 

983 


CNOP 

0,4 




984 




985 

* ROUTINE 02 

- THIS ROUTINE WILL RUN ON 1403 PRINTERS WITHOUT THE UCS 



986 

* 


FEATURE ONLY. ALL 256 POSSIBLE CHARACTERS WILL BE 



987 

* 


PRINTED IN EACH PRINT POSITION. THE 256 CHARACTER CODES 



988 

* 


WILL BE RIPPLED THROUGH THE PRINT AREA IN GROUPS OF 64 



989 

* 


CHARACTERS EACH. EACH GROUP OF 64 LINES WILL BE 



990 

* 


SEPARATED BY A TRIP 

cE SPACE. 
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OFOOO 

1056 

REG 

EQU 

X•FOOO* 

0005 A 

1057 

WHAT 

EQU 

90 

00000 

1058 

RO 

EQU 

0 

00001 

1059 

R1 

EQU 

1 

00002 

1060 

R2 

EQU 

2 

00003 

1061 

R3 

EQU 

3 

00004 

1062 

R4 

EQU 

4 

00005 

1063 

R5 

EQU 

5 

00006 

1064 

R6 

EQU 

6 

00007 

1065 

R7 

EQU 

7 

00008 

1066 

R8 

EQU 

8 

00009 

1067 

R9 

EQU 

9 

0000 A 

1068 

RIO 

EQU 

10 

OOOOB 

1069 

Rll 

EQU 

11 

OOOOC 

1070 

R12 

EQU 

12 

OOOOD 

1071 

R13 

EQU 

13 

OOOOE 

1072 

R14 

EQU 

14 

OOOOF 

1073 

R15 

EQU 

15 

00198 

1074 

WT 

EQU 

408 

0005 A 

1075 

WAHT 

EQU 

90 

00040 

1076 

HCSW 

EQU 

64 

00048 

1077 

HC AW 

EQU 

72 

OOOOB 

1078 

NCCl 

EQU 

11 


1079 


END 
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POST ASSEMBLY DATA 


RELOCATION DICTIONARY 

LOCATION LENGTH 

01015 3 

0107C 4 

017F9 3 

01800 3 

01809 3 

01810 4 

01949 3 

01D11 3 

01D19 3 

01D21 3 

01D28 4 

01EC9 3 

01ED1 3 

01ED8 4 

01F29 3 


DATE 15MAR66 15N0V66 120CT67 
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LABEL CROSS-REFERENCE BY STATEMENT NUMBERS 
LABEL LEN VALUE DEFN REFERENCES 


ADJUST 

4 

001E62 

0944 

0888 




AGAIN 

4 

001D4C 

0873 

0943 




ALL 

1 

000001 

1042 

0231 

0268 

0295 

0304 





0753 

0769 

0888 

0896 

ANY 

1 

000005 

1043 

0549 

0560 



BASHED 

27 

001E9C 

0961 

0959 




BLOOP 

4 

0019BC 

0768 

0745 

0748 

0790 


CAW 

4 

001048 

0058 





CCO 

1 

000008 

1044 

0248 

0254 



CC1 

1 

000004 

1045 

0255 

0366 



CC2 

1 

000002 

1046 

0256 




CC3 

1 

000001 

1047 





CHIRP 

2 

001670 

0634 

0593 

0600 

0629 


CKAR 

1 

00183C 

0732 

0579 

0726 



CLUIN 

16 

001A13 

0794 

0785 




CRDCSW 

4 

001810 

0727 

0727 




CRUDE 

4 

0015E0 

0587 

0679 




CSW 

8 

001040 

0057 





DARIO 

2 

0019A4 

0757 

0753 




DCKRD 

8 

001808 

0726 

0345 




DMSSW 

1 

0001AO 

0809 





DRAR 

1 

0018C0 

0733 

0580 

0734 



DUABLE 

4 

001BF5 

0827 

0686 




DUAL 

8 

001EC8 

0963 

0894 

0924 



DUALED 

4 

001BF9 

0828 

0691 




EQ 

1 

000008 

1048 

0332 

0407 

0629 

0688 

EQHI 

1 

OOOOOA 

1053 





EQLO 

1 

OOOOOC 

1052 





EXITOl 

4 

001E52 

0940 

0936 




EXIT02 

2 

001FE6 

1032 

0870 

0995 



EXIT1 

2 

001E94 

0956 

0941 




EXNPSW 

5 

001058 

0060 





EXOPSW 

8 

001018 

0052 





FERRO 

16 

001A2C 

0796 

0749 

0750 

0751 

0754 

FIL 

4 

001F5C 

0999 

1031 




FLAG1 

1 

00100E 

0048 





FLAG2 

1 

00100F 

0049 





FOLD 

1 

001F40 

0982 

0884 




FOLDNG 

16 

001EB7 

0962 

0633 




GLORY 

1 

001FE8 

1033 

1000 

1006 

1008 


GREG 

4 

001144 

0247 

0249 




HANGUP 

6 

0019DC 

0775 

0769 




HARDER 

4 

00160E 

0601 

0595 




HCAW 

1 

000048 

1077 

0224 

0237 

0362 

0558 

HCSW 

1 

000040 

1076 

0225 

0225 

0262 

0281 

HED1 

16 

001BA8 

0821 

0637 




HED2 

16 

001BC2 

0823 

0641 




HI 

1 

000002 

1050 





HOKAY 

4 

0015D8 

0585 

0694 




HONK 

4 

0015EC 

0590 

0586 

0681 

0683 

0690 

HOPE 

4 

0012A4 

0341 

0342 




HUNG 

16 

001A8E 

0805 

0782 




IACSNS 

11 

00179C 

0713 

0328 

0331 

0334 

0527 

I ACT 

3 

00178B 

0710 

0502 

0512 



IACTCC 

10 

001734 

0696 

0252 

0257 

0259 

0261 

IBACK 

2 

001310 

0368 

0364 

0372 



IBLAH 

16 

001771 

0708 

0459 

0472 

0473 

0477 

IBSN 

6 

00133A 

0379 

0312 

0314 

0318 

0320 

ICAW 

12 

00175F 

0705 

0450 

0453 

0454 

0458 

ICCOUT 

6 

00147C 

0479 

0449 

0465 



ICCSW1 

6 

00135C 

0387 

0386 





0310 0316 0374 0377 0412 0439 0562 0575 0591 

0906 0926 0936 0995 1027 


0745 0941 0945 0947 0951 1007 1009 


0755 0756 0756 0760 


0296 0299 0369 


0693 


0528 

0532 

0722 


0265 

0277 

0379 

0488 

0489 

0493 

0502 

0507 0512 

0352 

0356 

0359 
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ICCSW2 

6 

0013AA 

0406 

0394 

0404 



ICCW 

3 

00176E 

0707 

0459 




ICHNG1 

6 

0014BA 

0498 

0495 




ICHNG2 

6 

0014EA 

0508 

0497 




ICLEAR 

4 

001304 

0365 

0367 




ICLRDT 

4 

001386 

0397 

0396 




ICM 

2 

00100A 

0045 





ICNT 

1 

001477 

0476 

0460 

0490 



ICOUT 

2 

001460 

0468 

0463 

0499 

0504 

0509 

1CSW 

3 

00176B 

0706 

0489 




ICSW1 

8 

0017E6 

0720 

0262 

0296 

0315 

0387 

1CSW2 

8 

0017EE 

0721 

0299 

0319 

0403 

0406 

ICWOUT 

6 

001446 

0462 

0467 




1DECI 

4 

00123C 

0313 

0310 




ID1D 

4 

0014F4 

0510 

0506 




IDIDI 

4 

0014C4 

0500 

0492 




1D0SNS 

4 

00125C 

0321 

0316 

0786 



IDUNCK 

4 

0013B8 

0409 

0375 

0378 

0407 


IEXP 

3 

00178E 

0711 

0493 

0507 



IEXPCC 

10 

00172A 

0695 

0479 

0484 



IEXSNS 

11 

001791 

0712 

0223 

0327 

0330 

0331 

IF 1X12 

4 

0013A6 

0405 

0399 




IFIX9 

4 

00139A 

0402 

0398 




IFLAG1 

1 

0013E8 

0423 

0409 

0415 



IFLAG2 

1 

00156E 

0551 

0410 

0416 



IFUR 

4 

0012AC 

0343 

0324 

0332 

0335 


IHANG 

4 

00112C 

0240 





IHI 

4 

00113C 

0245 

0239 




ILEAVE 

4 

00158A 

0563 

0414 




ILINK 

16 

00174F 

0701 

0428 

0431 

0432 

0436 

ILKSEN 

6 

001286 

0331 

0329 




ILOKE 

4 

001312 

0369 

0366 




IMORST 

4 

0014DC 

0505 

0501 




INDER 

4 

0013B4 

0408 

0374 

0377 

0380 

0384 

INFO 

16 

001BDC 

0825 

0582 

0585 

0643 

0644 





0661 

0662 

0663 

0665 

INI T 

2 

001950 

0738 

0871 

0996 



IN0EX1 

4 

001322 

0373 

0382 




IN0EX2 

4 

00132E 

0376 

0390 




INOW 

4 

001194 

0266 

0231 

0258 

0260 

0264 

INPSW 

5 

001010 

0050 





I NT 3 

4 

00120C 

0301 

0298 




IOADDR 

15 

00173E 

0697 

0443 

0447 



IOADR 

3 

001800 

0723 

0442 




IOCSW 

6 

001492 

0489 

0439 




IOEXRA 

4 

0012FO 

0360 

0322 

0346 

0354 


IOLOG 

16 

0017A7 

0714 

0540 

0541 

0542 

0543 

IONE 

4 

00117E 

0261 

0255 




IONPSW 

4 

001078 

0065 





IOOPSW 

8 

001038 

0056 





IOPOUT 

4 

001564 

0548 

0534 




I0PT1 

16 

0017CC 

0717 

0553 

0749 

0755 


IOUT 

4 

0015AO 

0569 

0549 




IOUTIT 

6 

0013D8 

0417 

0412 




IPAS 

4 

00150C 

0515 

0511 




IPASS 

4 

001530 

0533 

0516 




IPRLOP 

2 

00156C 

0550 

0589 




IRETRN 

4 

0011E8 

0293 

0066 




ISAVE 

12 

001830 

0731 

0222 

0567 



ISEA 

4 

0012CC 

0351 

0344 

0348 



ISEN 

4 

001224 

0307 

0268 

0302 

0304 


ISENS6 

8 

0017F8 

0722 

0321 




ISIO 

6 

0010E6 

0221 

0763 

0836 

0898 

0928 

ISLAVE 

8 

001B9C 

0819 

0226 

0480 

0778 


ISPED 

4 

00122C 

0309 

0278 

0280 

0282 



c c c c c c c 


P/N 840210 
PAGE 11 


0514 

0387 0503 

0406 0513 


0400 0519 0520 0524 


0557 


0388 0392 

0645 0648 0649 0652 0653 0656 0657 0659 0660 

0666 0667 0669 0670 0672 0674 0678 


0547 


1017 


DATE 
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15MAR66 15N0V66 120CT67 
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ID 
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ISSUE 

4 

00115E 

0253 

0448 

0723 



ISV2 

6 

001202 

0299 

0295 




ISW 

2 

0010E4 

0217 

0250 

0250 

0251 

0263 





0303 

0305 

0307 

0313 





0355 

0357 

0358 

0371 





0515 

0548 

0561 

0590 

I SI 2 

4 

00139E 

0403 

0401 




ITICK 

4 

00130C 

0367 

0370 




I TRY 1 

4 

001120 

0237 

0241 

0243 

0560 


ITSTNO 

9 

0017C3 

0716 

0221 

0417 

0420 

0421 

I TWO 

4 

001176 

0259 

0256 




IUP 

4 

001596 

0566 

0564 




IWAIT 

4 

0011A4 

0270 

0306 




IZERO 

4 

001190 

0265 

0254 




JOHN 

6 

001150 

0250 

0233 

0248 



KLEER 

4 

001D58 

0876 

0912 




LARGE 

1 

001B80 

0817 

0569 

0588 

0601 


LDAR 

1 

001BFD 

0829 

0576 

0594 

0602 

0605 





0877 

0915 

0918 

0918 





1024 

1025 

1025 


LDCSW 

4 

001D28 

0845 

0840 

0845 



LO 

1 

000004 

1049 





LOAD 

8 

001D20 

0844 

0628 

0872 

0882 

0940 

LOADIT 

6 

001CEE 

0833 

0890 

0920 



LOGOUT 

1 

000080 

1054 

0229 

0229 

0535 


LSTGRP 

16 

001B2D 

0810 

0599 




MARTY 

6 

001D8E 

0889 

0949 

0953 

0955 


MCNPSW 

8 

001070 

0064 





MCOPSW 

8 

001030 

0055 





M0D44 

4 

001110 

0230 

0228 




MOD 50 

4 

001BA4 

0820 

0743 




MOVE IN 

6 

001F98 

1013 

1007 




MSK1 

1 

001803 

0724 

0273 




MSK2 

1 

001804 

0725 

0275 




MUMB 

2 

001D02 

0838 

0833 




NCCO 

1 

000007 

1038 

0241 

0342 

0364 


NCC1 

1 

OOOOOB 

1078 

0280 




NEVER 

1 

000000 

1037 





NIOU 

1 

00100D 

0047 





NITWIT 

4 

00195C 

0742 

0740 




NIXT 

4 

0015BE 

0578 

0575 

0587 



NODEV 

16 

001A5D 

0801 

0286 




NONE 

1 

000008 

1040 

0233 

0239 

0282 

0302 





0348 

0352 

0356 

0370 





0492 

0501 

0506 

0511 





0740 

0748 

0870 


NOT 

3 

001A5A 

0800 

0751 




0BER1 

4 

0016C6 

0666 

0664 




0BER2 

4 

0016D6 

0670 

0668 




0BER3 

4 

0016E6 

0674 

0671 




0BER4 

2 

0016EA 

0675 

0673 




OFF 

3 

001A57 

0799 

0750 

0754 



0THER2 

4 

001F90 

1011 

1009 




0THER3 

4 

001F94 

1012 





PGNPSW 

8 

001068 

0063 





PGOPSW 

8 

001028 

0054 





PRAR 

1 

001AA9 

0808 

0573 

0578 

0773 

0842 





0933 

0933 

0934 

0934 





0977 

1001 

1004 

1004 

PRELD 

8 

001D10 

0842 

0835 




PRINT 

8 

00 IE DO 

0964 

0893 

0897 

0905 

0908 

PRINT1 

8 

001F28 

0977 

0762 




PRTCSW 

4 

001ED8 

0965 

0902 

0932 

0965 

1021 

PRT1 

4 

001F30 

0978 

0767 




QUAD1 

8 

001EE8 

0969 

1005 
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0266 

0269 

0272 

0276 

0287 

0293 

0294 

0297 

0300 

0317 

0323 

0325 

0326 

0333 

0347 

0349 

0350 

0355 

0373 

0376 

0383 

0391 

0408 

0411 

0500 

0510 

0515 

0642 

0768 

0776 

0777 

0787 

0788 





0425 


0614 0771 0772 0772 0773 0844 0875 0876 0877 

0919 1005 1010 1011 1012 1013 1013 1024 1024 


0942 0948 


0308 

0312 

0314 

0318 

0320 

0324 

0329 

0335 

0344 

0382 

0384 

0390 

0392 

0401 

0404 

0414 

0465 

0492 

0516 

0564 

0593 

0664 

0668 

0671 

0681 

0683 

0740 


0843 

0944 

1022 

0881 

0946 

1022 

0889 

0950 

1023 

0889 

0952 

1023 

0903 

0954 

0903 

0954 

0904 

0963 

0904 

0964 

0919 

0977 

0923 

0927 

0935 

0938 

1015 

1016 

1026 

1029 
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RANK 

4 

0016F4 

0680 

0584 













RDCCW 

8 

001948 

0734 

0353 













READY 

13 

001A81 

0804 

0339 













REG 

1 

OOFOOO 

1056 

0286 

0339 

0425 

0436 

0447 

0458 

0477 

0484 

0488 

0524 

0532 

0547 

0553 





0557 

0599 

0627 

0633 

0637 

0641 

0678 

0760 

0767 

0782 

0785 

0840 

0902 





0902 

0932 

0959 

1021 










! ROUTOi 

1 

001D38 

0867 

0051 













: R0UT02 

1 

001F44 

0992 

0868 













: RTSAV 

1 

001A12 

0793 

0770 

0775 












RO 

1 

000000 

1058 














R1 

1 

000001 

1059 

0245' 

0246 

0249 











RIO 

1 

OOOOOA 

1068 

0224 

0226 

0237 

0450 

0461 

0462 

0464 

0466 

0466 

0480 

0558 

0762 

0778 





0835 

0894 

0897 

0924 

0927 

1016 








Rll 

1 

OOOOOB 

1069 

0221 

0226 

0230 

0267 

0301 

0309 

0311 

0327 

0343 

0351 

0379 

0381 

0385 





0389 

0417 

0427 

0428 

0437 

0437 

0438 

0479 

0491 

0494 

0505 

0563 

0565 





0565 

0565 

0566 

0566 

0568 

0763 

0778 

0836 

0898 

0928 

1017 



R12 

1 

OOOOOC 

1070 

0240 

0242 

0247 

0253 

0279 

0341 

0363 

0365 

0742 

0743 

0744 

0746 


R13 

1 

OOOOOD 

1071 

0224 

0225 

0225 

0237 

0262 

0281 

0362 

0369 

0558 

0738 

0738 

0741 


R14 

1 

OOOOOE 

1072 

0227 

0270 

0360 

0533 

0739 









R15 

1 

OOOOOF 

1073 

0296 

0299 

0741 











R2 

1 

000002 

1060 

0569 

0572 

0578 

0579 

0580 

0581 

0587 

0588 

0608 

0658 

0873 

0912 

0997 





1001 

1002 












R3 

1 

000003 

1061 

0571 

0571 

0578 

0643 

0687 

0999 

1001 

1003 

1014 

1028 




R4 

1 

000004 

1062 

0579 

0582 

0661 

0685 

0686 

0689 

0691 

0774 

0871 

0874 

0878 

0910 

0910 





0913 

0996 

0998 

1000 

1031 









R5 

1 

000005 

1063 

0562 

0577 

0577 

0580 

0583 

0644 

0692 

0786 

0833 

0834 

0834 

0841 

0878 





0880 

0881 

0885 

0890 

0913 

0915 

0916 

0920 






' R6 

1 

000006 

1064 

0573 

0576 

0581 

0875 

0880 

0884 

0911 

0911 






R7 

1 

000007 

1065 

0222 

0322 

0346 

0354 

0368 

0567 

0569 

0570 

0570 

0581 

0583 

0588 

0645 





0691 

0692 

0879 

0880 

0881 

0884 

0886 

0892 

0907 

0914 

0915 

0917 

0922 





0922 

0*937 












R8 

1 

000008 

1066 

0321 

0345 

0353 

0362 

0385 

0386 

0393 

0393 

0394 

0395 

0395 

0396 

0398 





0399 

0426 

0427 

0494 

0495 

0496 

0496 

0497 

0602 

0604 

0605 

0606 

0614 





0614 

0615 

0684 

0684 

0686 

0687 








R9 

1 

000009 

1067 

0222 

0270 

0271 

0274 

0360 

0361 

0367 

0463 

0478 

0499 

0504 

0509 

0514 





0567 

0601 

0603 

0603 

0604 

0605 

0607 

0610 

0610 

0611 

0614 



SAVDEV 

2 

001A10 

0792 

0744 

0746 












SAV10 

4 

001B98 

0818 

0461 













SDMF 

1 

00100C 

0046 














SECNO 

4 

001000 

0042 

0286 

0339 

0420 

0421 

0425 

0431 

0432 

0436 

0442 

0443 

0447 

0453 

0454 





0458 

0470 

0471 

0477 

0484 

0488 

0519 

0520 

0524 

0527 

0528 

0532 

0538 





0538 

0539 

0547 

0553 

0557 

0599 

0618 

0619 

0622 

0623 

0627 

0633 

0637 





0637 

0641 

0648 

0649 

0652 

0653 

0656 

0657 

0678 

0760 

0767 

0770 

0775 





0775 

0782 

0785 

0789 

0840 

0868 

0902 

0932 

0959 

1021 




SNSW 

4 

001004 

0043 

0232 

0238 

0413 

0559 

0682 

0752 

0887 

0895 

0925 





SOME 

1 

000004 

1041 














SRET 

3 

00105D 

0061 














STAY 

2 

0019AA 

0761 














STC 

4 

001D68 

0880 

0886 













STC2 

4 

001DF0 

0915 

0917 













STC3 

4 

001F64 

1001 

1003 













SVNPSW 

8 

001060 

0062 














SVOPSW 

8 

001020 

0053 














SWAT 

6 

001E8A 

0954 

0945 

0947 

0951 











SWING 

4 

00170A 

0686 

0689 













SWUNG 

4 

00171C 

0691 

0688 













SYSMOD 

1 

000181 

1055 

0227 

0533 












SZABO 

4 

001680 

0643 

0591 













TRUBL 

4 

001ICO 

0277 

0289 

0308 












TUFF 

16 

001B4C 

0812 

0606 

0608 

0609 

0612 

0613 

0615 

0618 

0619 

0622 

0623 

0627 



UNC 

l 

OOOOOF 

1039 

0243 

0258 

0260 

0264 

0289 

0298 

0306 

0359 

0368 

0372 

0375 

0378 

0467 





0478 

0568 

0589 

0600 

0673 

0679 

0690 

0694 

0774 

0790 

0841 

0909 

0939 





0939 

0943 

0955 

1030 










UNEQ 

1 

000006 

1051 

0228 

0278 

0380 

0388 

0449 

0534 

0584 

0586 

0595 

0693 

0883 

0949 

0953 

UNIT1 

1 

0010E0 

0068 

0574 

0592 

0680 

0742 

0747 

0869 

0994 








UPGP2 

UPGRUP 

U1ADDR 

U10P 

WAHT 

WHAT 

WORK 


WRITE 

WRITE2 

WRITE3 

WT 

XF8364 


4 

001FE2 

1031 

1027 




4 

001DDE 

0910 

0906 




2 

0010E2 

0070 





1 

0010E1 

0069 





1 

00005A 

1075 





1 

00005A 

1057 





1 

001818 

0730 

0397 

0402 

0405 

0462 




0513 

0535 

0538 

0539 




0658 

0659 



4 

001DB2 

0898 

0896 

0907 

0909 


4 

001E26 

0928 

0926 

0937 

0939 


4 

00 IFAA 

1017 

1028 

1030 



1 

000198 

1074 

0245 

0270 

0360 


1 

001000 

0003 
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OBJECT DECK LIST. PERIODS CORRESPOND TO BLANK COLUMNS. 

COLS. 1 THROUGH 20 COLS. 21 THROUGH 40 COLS. 41 THROUGH 60 COLS. 61 THROUGH 80 


BESD. 

.AA. 

•AAXF83 

9 

YQ 

Y9 


99 

9 

BTXT.AAA. 

. A8. 

•AA86.A 

9 YQY 

Y9 

Y9 9 Y 

999 

9 

9 9 

BTXT.AA8. 

• A8. 

•AAAAAA 

9 YQ9 

Y9 

Y9YYYY 

99 

9 

9 9999 

BTXT.AAG. 

. AA. 

•AAAAAA 

9 YQ- 

YQ 

Y9YYYY 

990 

99 

9 9999 

BTXT.AAS. 

• A8. 

•AACAAA 

9 YQ8 

Y9 

Y90YYY 

99 

9 

9 9 9 

BTXT.AJQ. 

. A8. 

•AAAAOD 

9 Y99 

Y9 

Y9-Y 9 

9 

9 

9 

BTXT.AJG. 

• A8. 

•AAPAOU 

9 Y9 

Y9 

Y9 9 

9 

9 

9 

BTXT.AJH. 

• A8. 

•AAF.OU 

9 Y90 

Y9 

Y9- 

9 

9 

9 

BTXT.AJG. 

• A8. 

•AAE071 

9 Y9- 

Y9 

Y9- 8 

9 

9 

9 9 

BTXT.AJ8. 

. A8. 

•AAO.F. 

9 Y9 

Y9 

Y9 - 

9 

9 

9 

BTXT.AKA. 

• A8. 

•AAGA24 

9 Y9Q 

Y9 

Y9ZQ 8 

9 Z 

9 

9 9 9 

BTXT.AKQ. 

• A8. 

•AAGA2M 

9 Y9Z 

Y9 

Y9ZY Y 

9 

9 

9 

BTXT.AKJ. 

. A8. 

•AABABB 

9 Y9Y 

Y9 

Y9Q08Q 

9 

9 

9 Z 99 

BTXT.AKQ. 

. A8. 

•AAEG20 

9 Y9 

Y9 

Y9Z- 

9 

9 

9 0 


64..AAAA.AGZ. 

YYQY Y8 
9999 99 

AAAAAAAAAAGAADAAAAN8 
YYYYYYYYY9-Y99YYYY89 
999999999 9 99999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAADAAAAJY. 

YYYY99YYYY9 
9999 9999 

AAKA7HABA18ABA7FGNAH 
YY 9 Q9Q8 Q-Y - YYZ 

99 0 Z 9 9 

GA1GGNAHAA0DGA14EAGA 
ZY YYZ-Y 9ZY 8QY-Y 
9 9 9 9 

0UFA0UBX71DAGAGA1AG. 
-Y - 8QY-YZY QZ 
9 9 9 

G01DB071D70UA.AAGA2U 
Z — 8—8 - QYZQ 9 

9 09 9 

G-2UEAGAGA2UAA-DGA2U 
Z 8QY-YZQ 8-QOZZY 8 

9 9 9 0 9 9 9 

0UG02DKG700.FJ0UAAAA 
Z 8 9 Y -Y -QQY 

999 909 

AGAAGA32A.0UGA32AB7K 
—Q9ZY 8- ZY 8-9 Y 

0 9 9 9 

FD0UD70VKA7FAEAA7JGA 
-9 -8 Y -Q9-9 OZY 

9 0 

EAGAGG2MA.AAGA2DAA8H 
QY-YZ- 0- Q9ZY YZY 9 

9 9 0 0 9 

AA0VGA32FJ0VD70YG032 
-Y ZY 8—Y -8 Z 8 

9 9 9 


840 


AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAADAAAAAAAAAA 
YYYYYYYYY9YYYYYYYYYY 
999999999 9999999999 


PG-.-.ALCDEAJAG-1APC 
90 0 CYQQ-QZOZ Q 8 
Z Z 9 9 

GG1JDAGAG01JHOAHHAAC 
Z- YQY-YZ YR89-0QY9 
0999 99 99 

16GJ1FB371G01DB271G0 
8ZY R- 8Z — 8Z 
9 0 9 9 

FA0UHFAHHAACFA0UAA8C 
-Q RQ9-0QY9-Y YY 9 
9 9 9 

B-MUBNFA0UBBG01SD70U 
80Z9Q8-Y 8QZ —8 
9 Z 99 

GA2UAH0UGA2UFH0UG01M 
ZY 9-9 ZQ 9-9 Z 0 

9 

GA2MAJ0UGA32AB72GA32 
ZQ 8—Y ZY 8-9 ZY 8 

9 9 9 9 

2FFA7FNA7J7FGA2MFAOU 
0-9 - Y 0 -ZY Y—9 
9 

EE20AA0VGA2DF.0VD70V 
Z- -Y ZY Y- -8 

0 9 

HFAHHAADSEAHDAGAGG3A 
RQ9-0QY9 YYZQY-YZ- Q 
9 9 9 9 0 9 


211.131812..83640001 


AAAAAAAAAAAA83640002 
YYYYYYYYYYYY 
999999999999 

AAAAAAAAAAAA83640003 
YYYYYYYYYYYY 
999999999999 

.83640004 


AAAAAAAAGA1D83640005 
YYYY-YQYZQ - 
9 9 09 9 

EAGAGA1GFA1D83640006 
QY-YZY ZQ Z 
9 9 9 

1DB171KG7W-.83640007 
— 8 9 0 

9 

FA1DAA8DD70U83640008 
ZQ -YY 9-8 
0 9 

A.OUGA2BKG7W83640009 
ZQ 9 9 
9 

AJ0UGA1GAJAA83640010 
-Y ZY —YCY 
9 909 

AA78EG20AA0V83640011 
ZY Z- -Y 
0 

A.7JGA2MB-ME83640012 
- OZY Y80Z8 
9 9 

AAAAGA32AA9H83640013 
-YQ9ZY 8ZY Z 
0 9 

EAGAG.3KFA3D83640014 
QY-YZ 9ZQ 9 
9 9 
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BTXT.ALA..A8..AAG7AD -DGA3DFA0VG03AA.0UGA 3DG03HAJ0UGA3DG03HNA 71ADG-3DAHAA83640015 

9 Y9Q Y9 Y99 -9 OZZY 8-Y Z Q- ZQ -Z —Y ZQ -Z - Y 8Q9Z —9QY 

9 9 9 9 9 9 9 0099009 90 0 09 

BTXT.ALH..A8..AAGA3S A.0UGA3DHCAF.A3-NG7W 7WG-3DADAAGA3WAJOUGA 3DAHAH.A30AH83640016 

9 Y9Z Y9 Y9ZY 9 - ZY -ZYY9 Y 9 Z —9QYZY 8-Y ZY -Z0Y9 Y YZO 

999 09 0 09 99 09 

BTXT.ALA..A8..AAAD.A 3HDD8Q.A3D.A3QAA7FGA 3FFB8QAA72GA3KFA8QNG 7070GA3HFA0U83640017 

9 Y9Y Y9 Y9Y9 Y 0-Q 9 Y Q Y 0-9 -ZY Q-9 9-9 ZY Y-9 99 Y YZY —9 

9 9 99 Z 990 

BTXT.ALH..A8..AABM3Y BG5WAAOUGA3QAA0DGA5B BU3YBA*>WKA7HABBEABGH GHB-MA7CAAAD83640018 

9 Y9- Y9 Y9-Z - — 8-9 ZQ -9 9ZY Y -9 -Y 8 9 Q98QY99 9 80Z8 ZYY9 

9 0 9 9 9 0 999 9 9 9 

BTXT.AL0..A8..AALHGA 7DBEACGEGDB-SA7GACAD AAAAGA4BBEACHAGCB-SG 76ED10G-44GJ83640019 

9 Y9 Y9 Y98— Q R8QY99R9R808Q 8ZQY9 -YQYZQ -8QY99Y9Z8088 8-Q 8Z 8 Y 

9 9 9 90 0 999 9 9 09 09 9 999 9 9 9 9 

BTXT.AMY..A8..AA7MBE ACGNGMB-SC7PKB7B7WB0 4GGJCHKG8QJAEA4-AGJD GA44AKAHG04F83640020 

9 Y99 Y9 Y9 Z8Q Y99Z9Z8088 8 9 R 8-9 R YQ- 9 9YYZQ —Y9 ZY 8ZYY9Z Z 

9 99 99 9 99 0 OZ 9 9 

BTXT.AM-..A8..AABEAH HQHQKG7F8QKG778JB-SK 7AG9KA7XADHJCDB-SB7S B-SB74KB7B7T83640021 

9 Y9 Y9 Y98QY9 9999 9 R 9 9 8 Y8088 R9 Y 8Q9RYQQ8088 8 8088 9 9 R 8 

9 9 9 999 0 99 9 09 90 Z999 99 0 

BTXT.AMH..A8..AABK4G AHAAGA4DKB7H7FHCAF.A 4FAHAH.A40KG8Q8QEA4- A.0UGA4DKB7H83640022 

9 Y9- Y9 Y9-8 R -9QYZY 9 0 YZYY9 Y QZ0Y9 Y Y 9 9 9ZQ - ZY Q 9 0 

99990 09 9 099 9 

BTXT.AM-..A8..AA7CKG 8Q7WEA4-ADAAGA44KB7H 7FKG8Q8QEA4-AJ0UGA5D KB7H7CKG8Q7083640023 

9 Y90 Y9 Y9 Y 9 9 ZQ -9QYZY 90 Y 9 9 9ZQ -Y ZY 8 90Y99Y 

9 9 9 09 9 9 9 

BTXT.ANH..A8..AAEA4- AD0UGA5ABEAAGFGFB-SC 7ABEAAGJGJB-SC7DEAJA G-5MKC8QAABE83640024 

9 Y99 Y9 Y9ZQ -9 ZY Q8QY99-9-8088 -8QY990908088 Q-QZO Z Z 8 9YY8Q 

9 9 9 Z999 9 9 999 9 9 Z 9 9 99 

BTXT.AN...A8..AAADHQ HQKA7M8QKE7P8KKE7F8S KE7E8SB-SM7PA-0VGG5J B-GQ7DB-JA7G83640025 

9 Y9 Y9 Y9Y899 999Y99Y89-9 9Q 88088 0- Z Y 80-9 Y80Y9 8 

9 9 9 99 9 0 0 99 9 9 99 

BTXT.ANH..A8..AAGNAH AA0DGG1JAAOVGNAHAAGA 5FACABACAFH18AGCAXCA LGL3AJADA-BQ83640026 

9 Y9R Y9 Y9 YYZ -Y 9Z Y-9 99-9QYZY -ZQY9ZQY9-8 Q9QQ9QY 8R89ZYY0Z QO 

9 0 9 9 9 9 09 09 09 III 909 99 Z 

BTXT.ANA..A8..AAAAOJ GA5DA-CDLEC2BQCB83CB 8GCFJAB.CMJGG-64EDCM G-5MFJ5FHXCA83640027 

9 Y9Q Y9 Y9-Q Z ZQ QZ QQ8RZ9Q0ZZ 8ZR QZRYYZ QY8RZ -9QY Z YZY Q-9QY 

9 0 9 9 9 9 0 ZZ9 Z 9 0 099 Z99 Z9 9 9 0 Z 

BTXT.ANY..A8..AAG05U AAOVGA6AAAOJGA6GEOCE G-6FB-SPCVG06GHACAAA CDAIAALHCICD83640028 

9 Y9 Y9 Y9Z 8 -Q ZQ Y-Q ZZY — QQ Z 88088Q8Z -RQQQZY QQZ-Y98-Z0CQ 

99 9 999 OZZ 99 9Z9 0 Z ZZ 9 9 ZZ 

BTXT.A0J..A8..AABAC/ FA8Q3/CF80F0CHAIAGFA 8Q3/CN80F0CPCICDBACA BEAAC/C/BEAA83640029 

9 Y9Y Y9 *Y9ZYQ8 8Q 9 9QR 8- QRZ-Y88Q 9 9Q8 8- Q8Z0QQZYQR 8QY988888QY9 

9 9 9 9 1 Z 9 Z 99 l 9 Z ZZ ZO 999 9 9 999 

BTXT.A0H..A8..AACACA B-S3CDECEJGA66B-SAFG B-SKCQB-SKCBFAOVBACS BGCYBGCVBEAA83640030 

9 Y9R Y9 Y98R8R 8089Q8-QQYZY -808QQ- 8088Q08088Q -Q ZQQ Z Q Z-Q 8QY9 

9 9 9 9090 9 Z ZZ9 09 9Z0 9 9Z 9 9Z 9 ZZ Z OZ 999 
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BTXT.AOA. 

• A8. 

•AACSCS 

9 Y9Q 

Y9 

Y98 8 

9 

9 

9 9 9 

BTXT.AOH. 

• A8. 

•AAC4AA 

1 9 Y9 

Y9 

Y9Q -9 

| 9 

9 

9 Z 

BTXT.APA. 

• A8. 

•AAGA5M 

9 Y9Y 

Y9 

Y9ZY Y 

9 9 

9 

9 9 

BTXT.AP8. 

• AQ. 

• AA.X.A 

9 Y99 

Y9 

Y9 

9 

9 

9 

BTXT.APG. 

• AJ. 

•AA.ADR 

9 Y98 

Y9 

Y9 

9 

9 

9 

BTXT.APP. 

• A8. 

•AA.CAW 

9 Y98 

Y9 

Y9 

9 

9 

9 

j BTXT.APG. 

. A8. 

.AAX.EX 

9 Y9- 

Y9 

Y9 

9 

9 

9 

BTXT.APG. 

• A8. 

.AA.0.0 

9 Y9Y 

Y9 

Y9 

9 9 

9 

9 

BTXT.AQG. 

• AJ. 

•AAAFAQ 

9 Y99 

Y9 

Y9Y9Y9 

9 

9 

9 9 9 

BTXT.AQA. 

• AD. 

•AAAAAA 

9 Y9Q 

Y8 

Y9YYYY 

9 Z 

99 

9 9999 

BTXT.AJD. 

• A8. 

•AAAAAA 

9 Y8Z 

Y9 

Y9YYYY 

99 

9 

9 9999 

j BTXT.AJ4. 

• A8. 

•AA7KKB 

9 Y88 

Y9 

Y9 9 

99 

9 

9 

BTXT.AJD. 

• A8. 

•AAU&AE 
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1403 BUFFER RESTORE TEST 
DESCRIPTION 
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1. PURPOSE 

1 # 1 THIS PROGRAM IS USED TO RESTORE UNIVERSAL CHARACTER BUFFERS ON 
1403 PRINTERS WITH THE UCS FEATURE* TO A DESIRED CONFIGURATION. 
THE PROGRAM LOGICALLY FOLLOWS THE DIAGNOSTIC PROGRAMS WHICH 
ALTER THE UCB DURING THE 1403 TESTS. 


2. REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

A DIAGNOSTIC MONITOR MUST BE USED TO RUN THIS PROGRAM. 

THE PROGRAM NEEDS DEVICE DEFINITION AND DATA DEFINITION PRIOR 
TO EXECUTION. —SEE COMMENTS AREA FOR DEFINITION FORMATS- 
THE 1403 PRINTERS USED IN THIS PROGRAM MUST HAVE THEIR 
ADDRESSES DEFINED IN THE DM UNIT DEFINITION TABLE -UDT-. 

THE UNIT DEFINITION TABLE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 


* UNIT CODE * * * 

_ * OPTIONAL FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * ♦ * 


* UNIT *ZZ*BIT 0* BIT 1* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 

* _*-4c-*-*-*-*---*- *-* 

* 1403 PRINTER*83*ASCII*SEL * *UNIV. * HI- * 120 * * 2821 * 

4> or 4* 4c 4.JAPE * *CHAR. *SPEED *PRINT * *2 CHNL * 

* 1404 PRINTER* * *LISTER* *BUFF. *PTR. *POS. * *SWITCH * 

* CONTINUOUS ********* * 

* FORMS ********* * 


2.2 EQUIPMENT REQUIREMENTS 

AN INPUT DEVICE FOR PROGRAM LOADING. 

AN OUTPUT DEVICE FOR MESSAGE OUTPUT.- 

-OTHER THAN DEVICES BEING RESTORED BY THIS PRQGRAM- 
4K OF STORAGE FOR THIS PROGRAM. 

CPU, CHANNEL, AND OEVICE IN WORKING ORDER. 

A MINIMUM OF ONE 1403 UCS PRINTER 
A MAXIMUM OF TEN 1403 UCS PRINTERS 


3. OPERA!1NG PROCEDURE 
3.1 LOADING 

STANDARD LOADING PROCEDURE, AS IS GIVEN IN THE USERS GUIDE, 
MUST BE USED TO LOAD THE PROGRAM. 
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3.2 OPERATION 


************************** WARNING ******************************* 
THIS PROGRAM IS RELEASED WITH CTRL CARDS AND DATA CARDS -BOTH 
DEFINED LATER IN THIS DESCRIPTION- WHICH DEFINE THE STANDARD 1403 
ADDRESSES OF OOOE, OOOF, AND 0010, AND THE STANDARD AN CHAIN 
AND TRAIN CONFIGURATIONS USED AS DATA TO LOAD THE UNIVERSAL CHAR¬ 
ACTER BUFFERS. IF A 1403 WITH THE UCS OPTION EXISTS ON A SYSTEM 
AND HAS ANY OF THE ABOVE ADDRESSES, AN ATTEMPT WILL BE MADE TO LOAD 
THE BUFFER WITH THIS AN DATA. IF THE DEVICE BEING RESTORED 
DOES NOT HAVE THE STANDARD CONFIGURATED CHAIN OR TRAIN, THE PROPER 
DATA FOR THE UCB LOAD INSTRUCTION MUST BE INSERTED INTO THIS DIAG¬ 
NOSTIC PROGRAM. IF THE DIAGNOSTICS ARE ON TAPE OR DISK, THE DATA 
MUST BE PUT INTO THE PROGRAM WITH THE APPROPRIATE UTILITY PROGRAM. 
HN, PN, QN, AND RN CONFIGURATIONS ARE ALSO RELEASED WITH THIS 
PROGRAM TO ENABLE THE OPERATOR TO EASILY USE ANY OF THESE BY 
A CTRL CARD CHANGE. 



1. AT NORMAL PROGRAM COMPLETION. 

2. WHEN AN ABNORMAL TERMINATE IS INITIATED THROUGH THE EXTERNAL 
INTERRUPT KEY. 
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4. PRINTOUTS 


THE FOLLOWING IS AN EXPLANATION OF THE DATA CARD REFERENCES MADE 
IN THE OUTPUT MESSAGES. ALL FORMATS ARE DEFINED IN THE COMMENTS 
SECTION OF THIS DESCRIPTION. 

CARDS MENTIONED AS CTRL CARDS ARE CONTROL CARDS. 

CARDS MENTIONED AS CUSTOMER CARDS ARE IN THE CUSTOMER UNIVERSAL 
CHARACTER UTILITY FORMAT. 

CARDS MENTIONED AS HEX CARDS ARE IN THE HEX CARD FORMAT. 

CARDS MENTIONED AS DATA CARDS CAN MEAN EITHER CUSTOMER OR HEX CARD 
FORMATS. 


4.1 INSTRUCTIONS TO OPERATOR 

-DEVICE XXXX ASSIGNED BY DM DOES NOT HAVE DATA FOR UCB RESTORE- 
-IF DESIRED TO RESTORE ANY DEVICES THAT DO NOT HAVE THE DATA- 
-CONSULT THE DESCRIPTION FOR THE PRGCEDURE- 

THIS MESSAGE IS GIVEN TO BRING TO THE OPERATORS ATTENTION THAT 
THIS PROGRAM IS POSSIBLY NOT BEING UTILIZED FOR HIS SYSTEM AND 
HE SHOULD TAKE STEPS ACCORDINGLY OR SIMPLY IGNORE THIS MESSAGE 
IF THE DEVICE IS NOT DESIRED TO BE RESTORED. 


-NO BUFFERS RESTORED- 

THIS MESSAGE IS GIVEN WHEN NO DEVICES WERE FOUND WITH THE UCB OPTION. 


-MAKE DEVICE READY- 

THIS MESSAGE IS GIVEN WHEN A TEST 1-0 TO A PRINTER FINDS IT NOT 
READY. THE DEVICE ADDRESS IS GIVEN IN THE SDO HEADING THAT PRE¬ 
CEDES THIS MESSAGE. 


4.2 STATUS MESSAGES 

-UCB RESTORED WITH NO BLOCK DATA CHK AND NO FOLDING USING CHAIN NN- 

THIS MESSAGE IS GIVEN WHEN A UCB IS SUCCESSFULLY RESTORED. THE WORDS 
NO IN THE MESSAGE ARE INSERTED OR DELETED DEPENDING ON THE CTRL CARD 
REQUEST FOR THESE OPTIONS. THE CHAIN NUMBER -NN- IS THE DATA CARD 
SET USED ON THE DEVICE. THE ADDRESS OF THE DEVICE APPEARS IN THE 
SDO HEADER PRECEDING THIS MESSAGE. 


-CTRL DATA AT ADDR XXXXXX FOR ALTER- 

THIS MESSAGE IS GIVEN FOLLOWING THE ASSOCIATED CTRL CARD LOGOUT 
WHEN SECTION SENSE SWITCH 30 IS ON TO INDICATE WHERE THE CONTROL 
INFORMATION IS STORED. THE ADDRESS IN THE MESSAGE POINTS TO THE 
PP INFORMATION AS GIVEN IN THE COMMENTS AREA OF THIS DESCRIPTION* 

THE CHAIN INFORMATION IS LOCATED AT THE NEXT HIGHER STORAGE ADDRESS. 
THE DEVICE ADDRESS ASSOCIATED WITH THIS DATA IS LOCATED IN THE 
2 BYTES BEFORE THE ADDRESS GIVEN IN THE MESSAGE. 


4.3 ERROR MESSAGES 

-CTRL CDS MISSING OR MIXED WITH DATA CDS- 

THIS MESSAGE IS OUTPUT WHEN CONTROL OR DATA CARDS HAVE BEEN MIS- 
POSITIONED IN THE DECK OR WHEN THE CONTROL CARDS ARE MISSING. 

A LOG OUT OF CTRL AND DATA CARDS VIA SENSE SWITCH 31 WILL INDICATE 
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ONLY THE ABOVE MESSAGE IF THE CTRL CARDS ARE MISSING. IF A CTRL ? 

CARD IS MIXED, THE DATA CARDS WILL BE LOGGED OUT UNTIL THE MISPLACED * 

CTRL CARD IS DETECTED. > *! 

' ^ 

I 

-MISSING CTRL AND DATA CDS- 1 

THIS MESSAGE IS GIVEN WHEN ALL CONTROL AND DATA CARDS ARE MISS- I ! 

ING BUT THE DAT CARDS ARE IN THE DECK. SEE THE COMMENTS AREA FOR j ' 

PROPER SETUP OF CARDS. ! , 


-ALL DATA CDS MISSING- 

THIS MESSAGE IS GIVEN WHEN THE CTRL CARDS ARE IN THE DECK BUT THE 
DATA CARDS ARE ALL MISSING. 


-DATA CARDS MISSING- 

THIS MESSAGE IS GIVEN WHEN SOME OF THE DATA CARDS OF 
A SET ARE MISSING. 


-ANY RESTORED BUFFERS MAY BE IN ERROR- 

THIS MESSAGE IS GIVEN IN ADDITION TO SOME OF THE OTHER MESSAGES 
TO INDICATE THAT BECAUSE A DATA CARD HAS BEEN FOUND MISSING# THE 
POSSIBILITY EXISTS THAT IT MAY BE ONE FROM A DIFFERENT SET DUE TO 
THE DATA CARDS OF DIFFERENT SETS FOLLOWING EACH OTHER. TO 
BE SURE OF PROPER LOADING, THE CARDS MUST BE VISUALLY CHECKED TO 
MAKE SURE OF THE PROPER SEQUENCE FOR THE BUFFER LOAD. 


-EITHER CUSTOMER OR HEX CDS MIXED OR ONE TYPE IS INADEQUATE IN NUMBER- 

THIS MESSAGE IS GIVEN WHEN THE TWO DATA CARD TYPES -DESCRIBED IN THE 
COMMENTS SECTION- HAVE BEEN DETECTED TO BE MIXED OR ONE TYPE HAS TOO 
FEW CARDS. 

A LOG OUT VIA SENSE SWITCH 31 IS RECOMMENDED HERE TO OBSERVE 
SEQUENCE OF DATA CARDS. THE DATA CARDS FOLLOWING DETECTION OF 
THE ERROR WILL NOT BE LOGGED OUT. THE ERRONEOUS DATA MAY NOT BE 
LOCATED AT THE LAST LINE OF DATA. THEREFORE, THE SEQUENCE OF ALL 
THE DATA SHOULD BE CHECKED THOROUGHLY. 


-TIO LOOP RECEIVES SOLID CHANNEL BUSY FROM THIS DEVICE- 

THIS MESSAGE IS GIVEN WHEN THE TEST 1-0 BEFORE THE LOAD BUFFER START 
1-0 RECEIVES A SOLID CHANNEL BUSY CONDITION. 


-DEVICE XXXX UCB NOT RESTORED DUE TO INSUFFICIENT DATA CDS- 
-OR WRONG CTRL DEFINITION- 

THIS MESSAGE IS GIVEN AT THE END OF THE PROGRAM WHEN A CHECK OF THE 
CONTROL ToABLE SHOWS NOT ALL BUFFERS HAVE BEEN RESTORED. MOST PROBABLE 
CAUSE IS A DEVICE HAS BEEN DEFINED TO BE LOADED WITH A DATA CARD 
SET THAT DOES NOT EXIST. FOR EXAMPLE, DEVICE OOE DEFINED FOR CHAIN 04 
AND ONLY DATA CARDS DEFINING 3 CHAINS EXIST. 


-DEVICE NOT OPERATIONAL- 

THIS MESSAGE IS GIVEN IF CONDITION CODE 3 IS RETURNED AFTER A TEST 1-0 
HAS BEEN ISSUED. USUALLY MEANS DM HAS BEEN DEFINED WITH A NON-EXISTANT 
DEVICE ADDRESS AND A CONTROL CARD MADE OUT FOR IT ALSO. 
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-ERROR ON UCB LOAD SIO- 


THIS MESSAGE IS GIVEN WHEN THE LOAD UCB START 1-0 DOES NOT GET 
AN AVAILABLE CONDITION CODE RETURNED. THE CSW INDICATES THE STATUS 
FOR THE OPERATION. THE PROGRAM GOES ON TO THE NEXT DEVICE IF ANY. 

-SNS $10 AFTER UCB LOAD ATTEMPT- NOT ACCEPTED- 

THIS MESSAGE IS GIVEN WHEN SOMETHING GOES WRONG WITH THE UCB LOAD 
EXECUTION AND A SENSE START 1-0 IS TRIED TO FIND OUT WHAT SENSE 
LATCHES ARE ON IN THE DEVICE. THE SENSE START 1-0 ALSO IS REJECTED 
AND RESULTS IN THIS MESSAGE. THE DEVICE IS OBVIOUSLY FAULTY AND THE 
1403 DIAGNOSTICS SHOULD HAVE INDICATED TROUBLE WHEN WERE EXECUTED. 

-SNS SIO AFTER UCB LOAD ATTEMPT DID NOT RECEIVE AVAILABLE FROM DEVICE- 

THIS MESSAGE IS GIVEN IF THE TIO AFTER THE SENSE START 1-0 NEVER 
RECEIVES AVAILABLE. A TIME OUT FROM THIS CONDITION ALLOWS THIS MESSAGE. 


4.4 MESSAGE ABBREVIATIONS 

ABBREVIATIONS FULL MEANING 

ADDR ADDRESS 

CDS CARDS 

CSW CHANNEL STATUS WORD 

CTRL CONTROL 

DM DIAGNOSTIC MONITOR 

RDY READY 

RTN ROUTINE 

SIO START 1-0 

TIO TEST 1-0 

UCB UNIVERSAL CHARACTER BUFFER 


COMMENTS 


THIS PROGRAM WAS WRITTEN TO ENABLE RESTORATION OF THE UNIVERSAL 
CHARACTER BUFFERS OF ALL 1403 UCB PRINTERS TESTED WITH THE 1403 
AND 2821 DIAGNOSTICS. IT HAS THE CAPABILITY TO HANDLE TEN PRINTERS 
AT ONE TIME IF NEEDED. 

*** NOTE *** CAUTION SHOULD BE OBSERVED TO KEEP FROM REPEATING ANY 
CHARACTER WITHIN 16 POSITIONS IN THE BUFFER TO PREVENT 
ANY DAMAGE TO THE PRINT CHAIN OR PRINT TRAIN. 

THE PROGRAM OPERATES AS FOLLOWS- 

AFTER BEING LOADED IN* THE PROGRAM READS CTRL AND DATA CARDS WHICH 
HAVE BEEN PREPARED FOR THE SYSTEM BY THE OPERATOR AND PLACED IN THE 
DECK. -THE FORMAT AND SEQUENCE OF THIS INFORMATION IS GIVEN IN OTHER 
PARAGRAPHS OF THIS COMMENT AREA- 

THE PROGRAM EXPECTS ALL THE CTRL CARDS TO BE READ IN BEFORE 
ANY OF THE DATA CARDS DEFINING THE BUFFER IN ORDER TO ESTABLISH 
THE TABLE OF DEVICES TO BE USED IN THIS PROGRAM. 

THE PROGRAM CHECKS TO SEE IF THE DEVICES INDICATED IN THE CTRL INFOR¬ 
MATION ARE ASSIGNED BY DM. IF THEY ARE NOT, THIS CTRL INFORMATION IS 
THROWN AWAY. 

THE DEFINITION OF SETS OF DATA CARDS AS DISCUSSED IN THE NEXT 
FEW ITEMS IS EITHER 4 CUSTOMER UCS UTILITY CARDS OR 15 HEX CARDS. 

EACH OF THESE CARD TYPES ARE DEFINED IN LATER PARAGRAPHS OF THIS 
COMMENT SECTION. 
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THE PROGRAM THEN READS ONE FULL SET OF DATA CARDS HEREBY BEING CALLED 
CHAIN 01 BY THE PROGRAM BECAUSE IT IS THE FIRST SET READ, OTHER SETS 
READ THEREAFTER BEING CALLED CHAIN 02, 03, ETC. UP TO CHAIN FF IF 
THAT MANY SETS OF CARDS EXIST. THESE CHAIN SETS ARE NUMBERED IN HEX 
BY THE PROGRAM AND SHOULD BE PUNCHED IN HEX BY THE OPERATOR ON THE 
CTRL CDS. -CTRL CARDS DEFINED IN LATER PARAGRAPHS OF THIS AREA- 

AFTER CHAIN 01 IS READ INTO STORAGE, A CHECK OF THE DEVICE TABLE 
IS MADE TO DETERMINE IF ANY DEVICES ARE TO USE THIS DATA. ALL DEVICES 
DEFINED TO USE THE DATA WILL HAVE THEIR BUFFERS RESTORED AT THIS TIME. 
IF ANY MORE CHAIN DEFINITION CARDS ARE IN THE DECK, THE PROGRAM GOES 
THROUGH THE SAME PROCEDURE AS JUST DESCRIBED. IF NO MORE EXIST, THE 
PROGRAM READS AN LDT CARD WHICH SIGNALS FOR AN ENDING PROCEDURE AND 
INSTITUTES SOME FINAL CHECKING IN THE PROGRAM BEFORE TERMINATION. 

ANY NUMBER OF SETS OF CHAIN DEFINITION CARDS MAY BE PUT INTO THE 
PROGRAM, WHETHER THEY ARE USED TO RESTORE BUFFERS SOLELY DEPENDS 
ON THEIR BEING DEFINED IN THE CTRL CARDS. 


CONTROL AND DATA CARD FORMATS. 


THREE CTRL CARDS WITH STANDARD ADDRESSES ARE RELEASED WITH THIS 
PROGRAM AND ARE LISTED IN THE APPENDIX OF THIS DESCRIPTION. 

CONTROL CARD LAYOUT 

CARD Oil 

COLS 12345678901234 COLUMNS 15-80 NOT USED. 

CTRL DDDD PPCC 

WHERE- CTRL IS THE CARD IDENTIFICATION. 

DDDD IS TWO HEX BYTES INDICATING THE DEVICE ADDRESS. 

E.G. OOOE IS MULTIPLEX CHANNEL DEVICE E. 

010E IS SELECTOR CHANNEL 1 DEVICE E. 

PP IS A HEX BYTE DENOTING OPTIONS TO BE USED WHEN 
LOADING THE UCB AND IS DEFINED AS FOLLOWS- 
00 MEANS LOAD UCB WITHOUT SETTING THE BLOCK DATA CHECK 
LATCH OR ALLOWING FOLDING. 

80 MEANS SET BLOCK DATA CHECK WHEN LOADING UCB. 

40 MEANS ALLOW FOLDING WHEN LOADING UCB. 

CO MEANS SET BLOCK DATA CHECK AND ALLOW FOLDING WHEN 
LOADING THE UCB. 

CC IS A HEX BYTE DENOTING WHICH SET OF DATA CARDS THAT 

FOLLOW THE CTRL CARDS SHOULD BE USED TO LOAD THE BUFFER 
ON THE DEVICE DEFINED ON THIS CARD. THE BYTE IS A HEX 
NUMBER THAT CAN RANGE FROM 01 TO FF, WHERE AN 01 WOULD 
MEAN THE FIRST SET OF DATA CARDS READ, 02 THE SECOND, 
.OA THE TENTH, ETC. 

IF SEVERAL CTRL CARDS ARE USED FOR THE SAME DEVICE ONLY THE LAST 
CARD FOR THAT DEVICE WILL BE USED. 


DATA CARD LAYOUTS 

FIVE SETS OF CHAIN CONFIGURATIONS ARE RELEASED WITH THIS PROGRAM 
AND ARE LISTED IN THE UNIVERSAL CHARACTER SET UTILITY PROGRAM 
SRL. A CARD IMAGE OF THE DATA RELEASED WITH THIS PROGRAM IS GIVEN 
FOLLOWING THE PROGRAM LISTING. THE CHAIN CONFIGURATIONS ARE AN, HN, 
PN, QN, AND RN. 

THIS PROGRAM USES 2 TYPES OF DATA CARDS- 
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1. CUSTOMER CARD IMAGE CARDS FROM THE UNIVERSAL CHARACTER SET UTILITY 
PROGRAM. 

2. HEX CARD FORMAT TYPE DATA CARDS. 

IF CUSTOMER CARD IMAGE CARDS ARE USED* ONLY 4 ARE NEEDED TO DEFINE 
THE 240 POSITION BUFFER. IF THE HEX CARD FORMAT TYPE IS USED* 

THEN 15 CARDS ARE NEEDED TO DEFINE ONE FULL BUFFER CONFIGURATION. 

THE DATA CARDS ARE FORMATTED AS FOLLOWS- 

CUSTOMER UCS UTILITY CARD FORMAT- 

CARD 0 12 8 

COLS 123456789012345678901—0 
it Cl XXXX SS DODD 

WHERE- /t ARE 2 SLASHES. 

Cl IS AN ABBREVIATION FOR CARD IMAGE. 

XXXX IS THE CHAIN OR TRAIN IDENTIFICATION- E.G. AN* HN, PCHN, 
ETC. -THIS AREA CAN CONSIST OF BLANKS OR ANY DESIRED 
COMBINATION OF 4 CHARACTERS- 

SS IS THE SEQUENCE NUMBER OF THE CARD, RANGING FROM SI TO S4. 
DDDD IS 60 COLUMNS OF THE DATA TO BE LOADED INTO THE UCB. 

THIS DATA IS PUNCHED IN THE EBCDIC CODE FOR EACH DESIRED 
CHARACTER. THE DATA WILL BE PLACED IN THE BUFFER IN THE 
ORDER IT IS FOUND ON THE CARDS. 

I.E. THE 60 CHARACTERS ON THE FIRST CARD GO INTO THE 
FIRST 60 BUFFER POSITIONS* THE 60 CHARACTERS ON THE 
SECOND CARD INTO THE NEXT 60 BUFFER POSITIONS* ETC. 


HEX CARD FORMAT 


THE FOLLOWING IS AN EXAMPLE OF THE HN CHAIN FORMAT RELEASED WITH 
THIS PROGRAM¬ 
ME DATA IS PUNCHED IN THE CARDS IN THE HEXADECIMAL CODE DESIRED 
TO BE IN THE UCB. E.G. 2 CARD COLUMNS EQUAL ONE BUFFER BYTE. 

CARD 0 1 2 3 4 4 

COLS 678901234567890123456789012345678901234 

F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 

E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 

0960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 

E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 

D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 

E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 

D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

F1F2 F3F4 F5F6 F7F8 F9F0* 7E7D 61E2 E3E4 

E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 

D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

F1F2 F3F4 F5F6 F7F8 F9F0 7E7D 61E2 E3E4 

E5E6 E7E8 E950 6B4D D1D2 D3D4 D5D6 D7D8 

D960 5B5C C1C2 C3C4 C5C6 C7C8 C94E 4B5D 

SEQUENCE NUMBERS OR COMMENTS ARE ALLOWED IN COLUMNS 1-4 AND 51-80. 
COLUMNS 5* 10* 15, 20* 25* 30* 35* AND 40 ARE IGNORED. COLUMNS 
45-50 MUST BE BLANK. 

THE PROGRAM ASSUMES THE OPERATOR HAS PLACED EACH SET OF DATA CARDS 
IN ORDER. I.E. THE FIRST SET OF CUSTOMER OR HEX CARDS IS USED AS 
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CHAIN 01 DATA, IF ANY MORE SETS FOLLOW, THE NEXT SET IS CHAIN 02* 
ETC. 


APPENDIX 


THE FOLLOWING IS A SEQUENCE LIST OF THE DECK STRUCTURE FOR PROPER 
LOADING AND OPERATION OF THE PROGRAM. 

1. PROGRAM F837 OBJECT DECK 

2. DAT CARD 

3. CTRL CARDS- 

THE AMOUNT OF CTRL CARDS IS VARIABLE AND DEPENDENT ON HOW 
MANY THE OPERATOR WISHES TO PUT IN. 

4. DATA CARDS DEFINING BUFFER CONFIGURATION 

THE AMOUNT OF SETS OF THESE CARDS CAN BE ANYWHERE IN THE LIMITS 
OF 1 TO 255 SETS. A SET BEING EITHER 4 CUSTOMER UCS UTILITY 
CARDS OR 15 HEX LOADER CARDS. A PROGRAM CAN USE BOTH SET 
TYPES AS LONG AS ONE TYPE IS NOT FOUND WITHIN ANOTHER. THE 
FIRST SET READ IS CONSIDERED AS CHAIN SET 01* AND ALL SETS 
THEREAFTER SHALL BE PUT IN HEXADECIMAL NUMERIC SEQUENCE BY 
THE PROGRAM. PARTIAL OR INCOMPLETE SETS PLACED IN THE DECK 
WILL CAUSE AN ERROR TO BE DETECTED BY THE PROGRAM. 

5. LDT CARD 

THE FOLLOWING IS A LIST OF THE RELEASED PROGRAM DECK CONTENTS 
AND INFORMATION ABOUT ANY ADDITIONS MADE BY OPERATORS. 


1. PROGRAM F837 OBJECT DECK 

2. DAT CARD 

3. CTRL OOOE 0001 

4. CTRL OOOF 0001 

5. CTRL 0010 0001 

6. 15 HEX DATA CARDS IN THE AN CONFIGURATION. 

7. 15 HEX DATA CARDS IN THE HN CONFIGURATION. 

8. 15 HEX DATA CARDS IN THE PN CONFIGURATION. 

9. 15 HEX DATA CARDS IN THE QN CONFIGURATION. 

10. 15 HEX DATA CARDS IN THE RN CONFIGURATION. 

11. LDT CARD. 


ADDITIONS TO THE PROGRAM SHOULD BE MADE AS FOLLOWS- 

A CTRL CARD OR CARDS SHOULD BE PLACED BETWEEN ITEMS 5 AND 6 ABOVE* 
DEFINING THE PARTICULAR DEVICE . FOR EXAMPLE* IF IT WAS DESIRED 
TO HAVE DEVICE OOOE BLOCK DATA CHECK AND USE ANOTHER SET OF DATA 
NOT RELEASED WITH THIS PROGRAM, THE CTRL CARD WOULD BE- 
CTRL OOOE 8006 

THE DATA DEFINED AS CHAIN 06 SHOULD BE PUNCHED IN ONE OF THE 
FORMAT TYPES EXPLAINED IN THE COMMENTS SECTION OF THIS DESCRIPTION, 
AND PLACED BETWEEN ITEMS 10 AND 11 OF THE ABOVE LIST. 
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XF8370 START 4096 
001000 USING *115 

*********************************************************************** 

*********************************************************************** 

* MODIFICATIONS 

* REVISION LEVEL 0. THIS IS THE INITIAL RELEASE OF THE PROGRAM* 

* E.C. PREREQUISITES 

* MACHINE . . . 2821 MUST BE AT E.C. 125655 

* PROGRAM • . • NONE 

* USE DESCRIPTION F8374 AT EC 125655, DATED NOV 15, 1966 OR LATER. 

**********♦♦*********************************************************** 
*********************************************************************** 

* SECTION PREFACE * 

*********************************************************************** 


001000 

F8370000 

SECNO 

DC 

XL4»F8370000« 

PROGRAM IDENTIFICATION 


001004 

00000000 

SNSW 

DC 

X»00000000* 

SECTION SENSE SWITCHES 


001008 

0000 


DC 

XL2• 00 • 



00100A 

0000 

ICM 

DC 

XL2 *00* 

INTERRUPTION CONDITION MASK 


00100C 

00 


DC 

XL1'00* 



00100D 

OA 

NUTE 

DC 

XL1*0A • 

NUMBER OF UNIT TABLE ENTRIES 


001006 

80 

FLAG1 

DC 

XL1*80 * 

FLAG BITS SET BY SEC—EXCLUSIVE 

CPU 

00100F 

00 

FLAG2 

DC 

XL1'00* 

INTRP FLAGS 


001010 

0104000000 

INPSW 

DC 

XL5*0104000000? 

INITIAL PSW. 


001015 

001108 


DC 

AL3(RQUT01I 



001018 

0000000000000000 

EXOPSW 

DC 

XL8 • 00' 

EXTERNAL OLD PSW 


001020 

0000000000000000 

SVOPSW 

DC 

XL8 * 00* 

SUPERVISOR CALL OLD PSW 


001028 

0000000000000000 

PGOPSW 

DC 

XL8 1 00* 

PROGRAM OLD PSW 


001030 

0000000000000000 

MCOPSW 

DC 

XL8 *00 1 

MACHINE CHECK OLD PSW 


001038 

0000000000000000 

IOOPSW 

DC 

XL8 *00• 

I/O OLD PSW 


001040 

0000000000000000 

CSW 

DC 

XL8•00 * 

CHANNEL STATUS WORD 


001048 

00000000 

CAW 

DC 

XL4 *00• 

COMMAND ADDRESS WORD 


00104C 

000000000000000000 


DC 

XL12 *00* 

RESERVED FOR DM USE 


001055 

000000 






001058 

0000000000000000 

EXNPSW 

DC 

XL8• 00 • 

EXTERNAL NEW PSW. 


001060 

0104000000 

SVNPSW 

DC 

XL5•0104000000® 

SUPERVISOR CALL NEW PSW. 


001065 

001616 


DC 

AL3IDATINT) 



001068 

0000000000000000 

PGNPSW 

DC 

XL8•00 * 

PROGRAM NEW PSW 


001070 

0000000000000000 

MCNPSW 

DC 

XL8*00 f 

MACHINE CHECK NEW PSW 


001078 

0000000000000000 

IONPSW 

DC 

XL8 *00• 

1-0 NEW PSW. 


001080 


REGDMP 

DS 

24CL4 

SECTION REGISTER SAVE AREA - DM 

USE 



*********************************************************************** 



* 


SECTION 

PREFACE UNIT TABLE 

* 



*********************************************************************** 

OOIOEO 

83 . 

UNIT1 

DC 

X'83 • * 

UNIT TYPE -1403 PRINTER- 


0010El 

00 

U10P 

DC 

X*00« 

OPTIONAL FEATURE BYTE 

X 

0010E2 

8000 

U1ADDR 

DC 

X * 8000• 

FLAGS AND CHAN/UNIT ADDRESS 


0010E4 

83 

UNIT2 

DC 

X • 83 • 

UNIT TYPE -1403 PRINTER- 


0010E5 

00 

U20P 

DC 

X’00» # 

OPTIONAL FEATURE BYTE 


0010E6 

0000 

U2ADDR 

DC 

X'OOOO* 

FLAGS AND CHAN/UNIT ADDRESS 


0010E8 

83 

UNIT3 

DC 

X *83 • 

UNIT TYPE -1403 PRINTER- 


0010E9 

00 

U30P 

DC 

X«00» 

OPTIONAL FEATURE BYTE 


0010EA 

0000 

U3ADDR 

j|t 

DC 

X'OOOO* 

FLAGS AND CHAN/UNIT ADDRESS 


0010EC 

83 

UNIT4 

DC 

X*83 • 

UNIT TYPE -1403 PRINTER- 


OOIOEO 

00 

U40P 

DC 

X*00* 

OPTIONAL FEATURE BYTE 


0010EE 

0000 

U4ADDR 

* 

DC 

X^OOOO® 

FLAGS AND CHAN/UNIT ADDRESS 


OOIOFO 

83 

UNITS 

DC 

X *83 • 

UNIT TYPE -1403 PRINTER- 


0010F1 

00 

U50P 

DC 

X*00® 

OPTIONAL FEATURE BYTE 


0010F2 

0000 

U5ADDR 

& 

DC 

X«0000» 

FLAGS AND CHAN/UNIT ADDRESS 


0010F4 

83 

UN1T6 

DC 

X • 83* 

UNIT TYPE -1403 PRINTER- 


0010F5 

00 

U60P 

DC 

X*00* 

OPTIONAL FEATURE BYTE 


0010F6 

0000 

U6ADDR 

DC 

X*0000* 

FLAGS AND CHAN/UNIT ADDRESS 
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4 

SIT 0 

— BYPASS ALTER ROUTINE AFTER ALTER MADE* 

001190 

D2 01 

F 

C80 8 002 


MVC 

ADIC 2),2(R8) 

MOVE UNIT TABLE ADDR TO WORK AREA. 









‘ 001196 

94 07 

F 

C80 


NI 

ADI,X*07* 

AND OUT ALL BUT ADOR. 





* 

BIT 1 

— INDICATES UCS OPTION ON DEVICES THAT ARE NOT DEFINED | 

00119A 

D5 01 

F 

C80 F 774 


CLC 

AD1( 2 ) , WORK 

SEE IF DEVICE ASSIGNED. 





♦ 




0011 AO 

47 80 

F 

1B0 


BC 

EQ,STDT 

BR IF IT IS. 





♦ 

BIT 2 

— INDICATES CTRL CARD WAS READ BEFORE DATA CONFIGURATION 

0011A4 

41 BB 

0 

004 


LA 

Rll,4(Rll) 

ADD 4 TO UNIT TABLE ADDR. 







LAKU* 


0011A8 

46 30 

F 

18C 


BCT 

R3,CTAB 

BR TO SEE IF NEXT DEV IN TABLE. 





* 

BIT 3 

— INDICATE STARTING 

TO READ NEW SET OF DATA CARDS 

| 0011 AC 

47 FO 

F 

ICE 


BC 

UNC,CSU 

BR IF NOT IN TABLE. 





3ft 




| 0011BO 

91 10 

8 

001 

STDT 

TM 

1 ( R8),X*10* 

CHECK FOR UCS FEATURE. 





* 

BIT 4 

— INDICATES IN PROCESS OF READING HEX OR CUSTOMER 

0011B4 

47 80 

F 

ICE 


BC 

NONE,CSU 

BR IF UCB NOT ON DEVICE. 





* 


CONFIGURATION CARDS. 

! 001IBS 

96 80 

F 

79A 


01 

PRSW,X*80* 

TURN ON UCS DEVICE SW. 





♦ 

BIT 5 

— INDICATES READING 

DATA CARDS. 

0011BC 

41 BB 

F 

C84 


LA 

Rll,CTLSV(R11) 

PICK UP ADDR OF CTRL TABLE. 





4 




! oonco 

D2 03 

B 

000 F 774 


MVC 

0(4,Rll),WORK 

MOVE CTRL DATA TO CTRL TABLE. 





4 

BIT 6 

— INDICATES CHAIN HEADING PRINTED j 

i 0011C6 

41 BB 

0 

002 


LA 

R11,2(R11) 

ADD 2 TO POINT TO CTRL DATA. 





4* 




1 0011CA 

50 BO 

F 

C80 


ST 

Rll,ADI 

SAVE THE ADDR FOR ALTER MSG. 






BIT 7 

— INDICATES READING 

CUSTOMER CARDS. 

| 




jM'********************************************************************* 













* 

SET 

UP CTRL DATA FOR PRINTOUT 





+ **$*$*******#******* *£#**♦$**#****«* j 





*********************************************************************** 

001108 





CNOP 

0,4 

FULL WORD ALIGNMENT 

001ICE 

91 01 

F 

007 

CSU 

TM 

SNSW+3,X *01 • 

TEST SSW 31. 





^fr^^***^^*****^*** t******,^***^*,,**********+*£****£* 

0011D2 

47 10 

F 

IDE 


BC 

ALL,PCTC 

BR IF ON. 

001108 

0100 



R0UTG1 

DC 

X*0100* 

ROUTINE 1 -NO OPERANDS- 

0011D6 

91 02 

F 

007 


TM 

SNSW+3,X*02 • 

TEST SSW 30. 

00110A 

FFFF 




DC 

X •FFFF 9 

LAST ROUTINE IN THIS SECTION* 

0011DA 

47 80 

F 

14C 


BC 

NONE,UCB3 

BR IF OFF. 





*<^*******jM‘**:m**’»**************************************************** j 

001IDE 

OA DO 



PCTC 

SVC 

X *00 * 

PRINT CTRL CD 





* 

START 

LOAD UCB 

j 

0011E0 

800F 




DC 

X • 800F * 







Q011E2 

FB3A 




DC 

AL2(RDAR-BASE+REG ) 


00110C 

18 DD 




SR 

R13 , R13 

ZERO REG 13* 

0011E4 

91 02 

F 

007 


TM 

SNSW+3,X*02* 

TEST SSW 30* 

00110E 

91 40 

E 

196 


TM 

406IR14),X *40 * 

SEE IF IN PROB PROG STATE* 

0011E8 

47 80 

F 

14C 


BC 

NONE,UCB3 

BR IF OFF. 

001112 

47 80 

F 

118 


BC 

NONE,UCB1 

BR IF NOT. 

0011EC 

91 10 

8 

001 


TM 

1 ( R8),X*10* 

SEE IF UCB ON PRINTER. 

001116 

18 DF 




LR 

R13 , R15 

LOAD REG 13 WITH CONTENTS OF REG 15. 

0011F0 

47 80 

F 

202 


BC 

NONE,PBK 

BR IF NOT. 

001118 

91 04 

F 

007 

UC31 

TM 

SNSW+3,X*04* 

TEST SSW 29. j 

0011F4 

OA DD 




SVC 

X *DD * 

CONVERT ADDRESS FOR MSG. 

00111C 

47 10 

F 

12E 


BC 

ALL,UCB2 

BYPASS TEST IF ON. 

0011F6 

0003 




DC 

AL2(3) 

3 BYTES 

001120 

91 02 

f 

004 


TM 

SNSW,X *02 9 

TEST SSW 6* 

0011F8 

0C81 




DC 

AL2(AD2—SECNO) 

FROM HERE 

001124 

47 80 

F 

12E 


BC 

N0NE,UCB2 

BYPASS TITLE IF OFF. 

0011FA 

0840 




DC 

AL2(ADDR-SECNO) 

TO HERE 

001128 

OA DO 




SVC 

X*DO* 

PRINT TITLE 

0011FC 

OA DO 




SVC 

X *D0* 

PRINT ALTER ADDRESS 

00112A 

80 




DC 

X * 80 * 

NORMAL MSG 

0011FE 

8022 




DC 

X * 8022 * 


00112B 

14 




DC 

X * 14 * 

20 CHARACTERS 

001200 

F82E 




DC 

AL2(MSGl-BASE+REG) 


G0112C 

F81A 




DC 

AL2 ( TITLE-BASE+REG) 

ADDRESS OF MSG. 

001202 

OA DO 



PBK 

SVC 

X*D0* 

PRINT A BLANK. 

00112E 

94 OQ 

F 

798 

UCB 2 

N1 

PGSW,X *00 • 

ZERO ALL PROG SWITCHES 

001204 

8001 




DC 

X * 8001 * 


001132 

94 00 

F 

799 


Nf 

CCSW,X*QO* 

ZERO THE CUSTOMER CD ENTRY SW. 

001206 

F784 




DC 

AL2(BLNK-BASE+REG) 


001136 

94 00 

F 

79A 


NI 

PRSW,X*00* 

ZERO 2ND SET OF SMS. 

001208 

47 FO 

F 

14C 


BC 

UNC *UCB3 

BR TO RD NXT CD. 

00113A 

92 00 

F 

79B 


M VI 

RESW,X*00 * 

ZERO BUFFER PROG SW. 





*********************************************************************** 

G0113E 

D7 27 

F 

C84 F C84 


xc 

CTLSV(40),CTLSV 

ZERO CTRL DATA SAVE AREA. 





♦ . 

POST 

CONTROL CARD HANDLER 


001144 

58 70 

F 

76C 


L 

R7 , ONE 

PUT 1 IN CHN CONFG CARD COUNTER* 





*********************************************************************** 

001148 

41 90 

F 

©8A 


LA 

R9,PAREA 

PUT PRINT AREA ADDR INTO REG 9. 

00120C 

91 20 

F 

798 

UCBCH 

TM . 

PGSW,X *20 • 

WAS 1ST CARD READ A CTRL CO. 





♦* ****** 4 4 $ * ** * $ $ >; $$t $$ *$ $ $ $ $ «$$ $ * #* $*$ $ #$ $ * 4> * * *** ** 4 * * *** * $ * * * * $ 

001210 

47 80 

F 

5FC 


BC 

NONE tUCBERl 

BR IF NOT. 





♦ 

READ CONTROL AND CHAIN CONFIGURATION CARDS 

001214 

91 08 

F 

799 


TM 

CCSW,X *08 * 

TEST PASS CD SW. 





$«$&i)^4^iit************$*#*4^****#$$4^***$#*******j|^*#>|^****4^****4t****** ! 

001218 

47 10 

F 

14C 


BC 

ALL,UC83 

BR IF ON. 

00I14C 

OA D8 



UCB 3 

SVC 

X *DB * 

READ A CARD 

00121C 

91 80 

F 

798 


TM 

PGSW,X *80* 

TEST PASS ALTER HALT SW. 

00114E 

0B3 A 




DC 

AL2(RDAR-SECN0) 

READ IN AREA 

001220 

47 80 

F 

30 E 


BC 

NONEtTHLT 

BR IF NOT ON. 

001150 

91 04 

F 

007 


TM 

SNSW+3,X*04* 

TEST SSW 29. 

001224 

95 61 

F 

B3A 

TCCS 

CLI 

RDAR,C*/* 

SEE IF CUSTOMER CD. 

001154 

47 10 

F 

14C 


BC 

ALL,UCB3 

BR IF YES. 

001228 

47 80 

F 

55E 


BC 

EQ,LCC 

BR IF YES. 

001158 

94 EF 

F 

798 


NI 

PGSW,X*EF * 

TURN OFF START RD NEW CHN CD SW. 

00122C 

96 04 

F 

798 


01 

PGSW,X*04 * 

TURN ON CHAIN CO SW. 

00115C 

D5 03 

F 

83A F 788 


CLC 

ROAR(4),CTRL 

SEE IF CNTRL CARD 

001230 

91 01 

F 

798 


TM 

PGSW,X *01 • 

SEE IF SHLD BE READING CUST CDS. 

001162 

47 60 

F- 

20C 


BC 

UNEQ,UCBCH 

BR IF NOT 

001234 

47 10 

F 

598 


BC 

ALL,CDMIX 

BR IF YES* 

001166 

91 09 

F 

798 


TM 

PGSW,X*09* 

SEE IF READING DATA CDS. 

001238 

91 08 

F 

798 

UCB4 

TM 

PGSW,X*08* 

SEE IF DATA CDS READ. 

00116A 

47 50 

F 

5FC 


BC 

ANY,UCBER1 

BR IF YES. 

00123C 

47 80 

F 

248 


BC 

NONE,INITE 

BR. IF NOT ON 

001166 

96 20 

F 

798 


01 

PGSW,X*20* 

TURN ON CNTRL 1ST CARD SWITCH 

001240 

41 77 

0 

001 


LA 

R7,1(R7) 

ADD 1 TO CHAIN CD COUNTER. 

001172 

D2 03 

F 

774 F 63F 


MVC 

WORK!41fRDAR+5 

MOVE DEV ADDR TO CONV AREA. 

001244 

47 FO 

F 

252 


BC 

UNC, LCT 

BR TO TEST CHN CARD COUNT 

001118 

D2 03 

F 

778 F B44 


MVC 

WQRK+4C4) ,RDAR+10 

MOVE CTRL DATA TO CONV AREA. 

001248 

96 08 

F 

798 

IN1TE 

01 

PGSW*X*08 * 

SET CHN CARDS READ SWITCH 

00117E 

0 A DC 




SVC 

X 8 DC * 

CONV BINARY TO HEX. 

00124C 

D2 03 

F 

C7C F 76C 


MVC 

CHNOf4),ONE 

PUT CHAIN NO. 1 IN COUNTER. 

001180 

0008 




DC 

AL2(8) 

EIGHT BYTES 





*********************************************************************** 

001182 

0774 




DC 

AL2f WORK—SECNOI 

FROM HERE 





♦ 

SET 

UP CHAIN CONFIGURATION 

PRINTING HERE 

001184 

0774 




DC 

AL2(WORK-SECNO) 

TO HERE 





*********************************************************************** 






001252 

OA DD 



LCT « 

SVC 

X*DD* 

CONV CHAIN NO. FOR MSG. 





m 

CHECK 

DM ASSIGNMENT AND STORE CTRL DATA HERE 

001254 

0001 




DC 

AL2( 1) 

1 BYTE 





*******.*+*******+**$**+*+*+++++*#*+++*++++**++++++++**+++++++++++4+++++ . 

001256 

0C7F 




DC 

AL2(CHINO-SECNO) 

FROM HERE 

001186 

41 30 

0 

OOA 

PRC 

LA 

R3,10 

PUT 10 IN REG 3. 

001258 

0892 




DC 

AL2(CHN1-SECN0) 

TO HERE 

001ISA 

IB BB 




SR 

Rll iRU 

ZERO REG 11. 

00125A 

91 01 

F 

007 


TM 

SNSW+3,X*01* 

TEST SSW 31. 

00118C 

41 88 

F 

OEO 

CTA8 

LA 

R8»UNIT1(II11I 

PICK UP START ADDR OF UNIT TABLE. 

00125E 

47 80 

F 

28E 


BC 

NONE,PCP 

BR IF NOT ON. 

DATE 
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! 001262 

91 02 

F 

798 

TM 

PGSW,X*02« 

TEST CHN HEADING SW. 

j 001266 

47 10 

F 

280 

BC 

ALL,BHD 

BR IF ON. 

i 00126A 

OA DO 



SVC 

X *D0 • 

PRINT A BLANK 

00126C 

8001 



DC 

X•8001• 


\ 00126E 

F784 



DC 

AL2(BLNK-BASE+REG) 


j 0012T0 

OA DO 



SVC 

X 'DO* 

PRINT CHAIN NO. 

] 001272 

8008 



DC 

X *8008 * 

NORMAL MSG -8 BYTES- 

;• 001274 

F88C 



DC 

AL2 t MSG2-BASE+REG) 

MSG ADDR. 

j 001276 

96 02 

F 

798 

01 

PGSW,X’02« 

TURN ON CHN HD SW. 

j 00127A 

OA DO 



SVC 

X *D0 • 

PRINT A BLANK 

00127C 

8001 



DC 

X * 8001• 


00127E 

F784 



DC 

AL2(BLNK-BASE+REG) 


j 001280 

95 61 

F 

B3A 

BHD CL I 

RDAR,C•/• 

SEE IF CUSTOMER CARD 

001284 

47 80 

F 

5AA 

BC 

EQ,PCCD 

BR IF YES. 

001288 

OA DO 



SVC 

X *D0 * 

PRINT CHAIN CARD. 

00128A 

804 A 



DC 

X 9 804A 1 

-72 BYTES- 

00128C 

FB3A 



DC 

AL21RDAR-BASE+REGI 

FROM HERE 


************************************************************ 
♦ SET UP LOAD UCB HERE 

************************************************************ 


00128E 

95 

61 

F 

B3A 

PCP 

CLI 

RDARtC• / • 

SEE IF READING CUSTOMER CDS. 

j 001292 

47 

80 

F 

2D2 


BC 

EQfCAD 

BR IF YES. 

001296 

41 

20 

F 

B3A 


LA 

R2,RDAR 

PICK UP ADDR OF READ AREA. 

00129A 

41 

10 

F 

B3F 


LA 

RlyRDAR+5 

PICK UP ADDR OF DATA READ IN. 

00129E 

D2 

03 

2 

000 1 000 

MDA 

MVC 

0(4,R2) ,0(RU 

MOVE DATA TO CONTINUOUS LOCATIONS 

’ 0012A4 

41 

22 

0 

004 


LA 

R2,4(R2> 

ADD 4 TO REG 2 

0012A8 

41 

11 

0 

005 


LA 

Ri,5CRl) 

ADD 5 TO REG 1. 

i 0012AC 

D5 

03 

1 

000 F 784 


CLC 

0(4,R1)«BLNK 

SEE IF ANY MORE DATA 

0012B2 

47 

60 

F 

29E 


BC 

UNEQ,MDA 

BR IF YES. 

0012B6 

40 

90 

F 

2C4 


STH 

R9,CVD 

PUT PRINT BUFFER ADDR IN CONV INSTRS 

0012BA 

94 

OF 

F 

2C4 


NI 

C VD , X • OF 1 

AND OUT THE 4K BLOCK. 

i 00128E 

OA 

DC 




SVC 

X'DC' 

CONV BINARY TO HEX 

0012C0 

0020 




DC 

AL2(32) 

-32 BYTES- 

! 0012C2 

0B3A 




DC 

AL2(RDAR-SECNO) 

FROM HERE 

0012C4 

02C4 



CVD 

DC 

AL2(CVD-SECNO) 

TO HERE 

! 0012C6 

41 

99 

0 

010 


LA 

R9,16(R9) 

ADD 16 TO PRINT AREA ADDRESS. 

0012CA 

55 

70 

F 

768 


CL 

R7tONE5 

SEE IF 15 CARDS READ. 

0012CE 

47 

60 

F 

14C 


BC 

UNEQ,UCB3 

BR IF NOT 

! 0012D2 

94 

FD 

F 

798 

CAD 

NI 

PGSW,X«FD # 

TURN OFF CHAIN HEAO SW. 

0012D6 

41 

30 

0 

OOA 


LA 

R3,10 

PUT 10 IN REG 3. 

0012DA 

41 

80 

F 

C84 


LA 

R8,CTLSV 

PUT ADDR OF CTRL SAVE AREA IN REG 8. 

0012DE 

D5 

00 

8 

003 F C7F 

CHKD 

CLC 

3C1,R8)fCHNO+3 

SEE IF ANY DEVICES WANT THIS CHAIN. 

0012E4 

47 

60 

F 

320 


BC 

EQ,BYCP 

BR IF YES. 

0012E8 

41 

88 

0 

004 

INCR 

LA 

R8,4(R8) 

ADD 4 TO REG 8. 

| 0012EC 

46 

30 

F 

20E 


BCT 

R3,CHKD 

BR TO CHK NEXT DEV FOR THIS CHAIN. 

i 





*********************************************************************** 






* 

SET 

UP NEXT CHAIN HERE 


j 





*********************************************************************** 

j 0012F0 

58 

10 

F 

C7C 

SUNC 

L 

RltCHNO 

PICK UP CHAIN NO. 

| 0012F4 

41 

11 

0 

001 


LA 

Ri, 1(R1) 

ADD 1 TO IT. 

! 0012F8 

50 

10 

F 

C7C 


ST 

RltCHNO 

SAVE IT 

; 0012FC 

IB 

77 




SR 

R7,R7 

ZERO CONFG CARD COUNTER. 

i 0012FE 

41 

90 

F 

B8A 


LA 

R9,PAREA 

RESTORE REG 9 TO PRINT AREA ADDR. 

j 001302 

94 

BA 

F 

798 


NI 

PG$W,X'BA» 

RESET FORMAT AND DEV FOUND SWS. 

001306 

96 

10 

F 

798 


01 

PGSWtX *10• 

TURN ON RD NEW SET OF CHN CDS SW. 

i 00130A 

47 

FO 

F 

14C 


BC 

UNC,UCB3 

BR TO READ NEXT SET OF CDS. 

00130E 

91 

02 

F 

007 

THLT 

TM 

SNSW+3fX*02• 

TEST SSW 30. 

001312 

47 

80 

F 

224 


BC 

NONE.TCCS 

BR IF OFF. 

001316 

OA 

DA 




SVC 

X f DA • 

-HALT- 

001318 

96 

80 

F 

798 


01 

PGSW,X*80* 

TURN ON 1ST PASS SW. 

00131C 

47 

FO 

F 

224 


BC 

UNC,TCCS 

BR TO NXT INSTR. 


*********************************************************************** 

* LOAD UCB BUFFER HERE \ 


001320 

48 C8 

0 

000 

BYCP LH 

R12,0IR8) 

PUT DEV ADDR IN REG 12. 

001324 

92 7B 

F 

748 

MVI 

0CCCWtX*7B• 

MOVE RESET BLOCK DATA CHK CMD TO CCW 

001328 

91 80 

8 

002 

TM 

2(R8),X*80* 

SEE IF BLOCK DATA CHK DESIRED. 

00132C 

47 80 

F 

334 

BC 

NONEyCF 

BR IF NO. 

OATE 

15N0V66 
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001330 

92 

73 

F 

748 



MVI 

DCCCW,X *73 * 

MOVE BLOCK DATA CHK CMD TO CCW. 

001334 

92 

FB 

F 

750 


CF 

MVI 

DCCCW+8,X *FB• 

MOVE LOAD UCB NO FOLD CMD TO CCW. 

001338 

91 

40 

8 

002 



TM 

2(R8),X*40 * 

SEE IF FOLDING DESIRED. 

00133C 

47 

80 

F 

344 



BC 

NONE,LS 

BR IF NO. 

001340 

92 

F3 

F 

750 



MVI 

DCCCW+8,X *F3• 

MOVE F3 TO UCB CCW 

001344 

41 

AO 

F 

740 


LS 

LA 

R10»LUBCCW 

LOAD CCW ADDRESS 

001348 

50 

AD 

0 

048 



ST 

RIO,HCAW(R13) 

STORE IT IN CAW. 

00134C 

50 

AO 

F 

78C 



ST 

R10,CAWSV 

SAVE THE CAW FOR MSG. 

001350 

45 

BO 

F 

38A 



BAL 

Rll.SIO 

BR TO START I-Q ROUTINE. 

001354 

96 

01 

8 

002 



01 

2(R8),X *01• 

TURN ON BUFFER RESTORE SW. 

001358 

D2 

01 

F 

865 

F 850 


MVC 

BDM(2) *NO 

MOVE WORD NO TO MSG. 

00135E 

95 

73 

F 

748 



CLI 

DCCCW,X *73• 

SEE IF BLOCK DATA CHK USED. 

001362 

47 

60 

F 

36C 



BC 

UNEQ,CFL 

BR IF NO. 

001366 

D2 

01 

F 

865 

F 784 


MVC 

BDM(2),BLNK 

BLANK OUT WORD NO IN MSG. 

00136C 

D2 

01 

F 

87B 

F 850 

CFL 

MVC 

FOLDt2),NQ 

MOVE WORD NO TO MSG. 

001372 

95 

F3 

F 

750 



CLI 

DCCCW+8,X *F3• 

SEE IF FOLDING USED* 

001376 

47 

60 

F 

380 



BC 

UNEQ,POK 

BR IF NO. 

00137 A 

02 

01 

F 

87B 

F 784 


MVC 

FOLD(2),BLNK 

BLANK OUT WORD NO IN MSG. 

001380 

OA - 

DO 




POK 

SVC 

X *D0* 

PRINT SUCCESSFUL LOAD MSG. 

001382 

0442 





DC 

X *0442• 


001384 

F852 





DC 

AL2(CORLD-BASE+REG) 

MSG ADDR. 

001386 

47 

FO 

F 

2E8 



BC 

UNC*I NCR 

BR TO SEE IF ANY MORE DEVICES 







*********************************************************************** 






c . 

* . 

COMMON START 1-0 ROUTINE 








*********************************************************************** 

00138A 

58 

AE 

0 

198 


SIO 

L 

RIO,WAITCR14J 

PICK UP TEN SEC WAIT FACTOR 

00138E 

88 

AO 

0 

002 



SRL 

RIO,2 

DECREASE IT BY A FACTOR OF 4. 

001392 

90 

00 

C 

000 


TIO 

TIO 

0< 12) 

-TEST I-G- 

001396 

47 

80 

F 

3B4 



BC 

CC0,SI01 

BR IF AVAILABLE 

00139A 

47 

40 

F 

3D8 



BC 

CCltTFER 

BR IF CC 1. 

00139E 

47 

10 

F 

3F0 



BC 

CC3,NT0P 

BR IF NOT OPERATIONAL. 

0013A2 

46 

AO 

F 

392 



BCT 

RIOtTIO 

BR TO TEST 1-0. 

0013A6 

OA 

DO 





SVC 

X'DO* 

INDICATE CANT CLEAR DEVICE. 

0013A8 

4436 





DC 

X * 4436• 


0013 AA 

F951 





DC 

AL2(TIOTO-BASE+REG) 


Q013AC 

96 

02 

8 

002 



01 

2(R8),X*02 * 

TURN ON SIO ERR SW. 

0013 BO 

47 

FO 

F 

2E8 



BC 

UNC,INCR 

BR TO SEE IF ANY OTHER DEVICES. 

0013B4 : 

D7 

07 

D 

040 

D 040 

SIOI 

xc 

HCSW(8,R13)tHCSW(RlB) 

ZERO THE CSW AREA. 

0013BA 

94 

FI 

F 

79A 



NI 

PRSWtX«Fl« 

RESET SNS PRINT SW AND SNS ERR SWS. 

0013BE 

9C 

00 

C 

000 



SIO 

0( R12) 

-START I-Q- 

0013C2 

47 

20 

F 

38A 



BC 

CC2,SIQ 

BR IF COND CODE 2. 

0013C6 

47 

70 

F 

40E 



BC 

NCCO,SIOERR 

BR IF NOT CC 0. 

0013CA 

9D 

00 

C 

000 


TI01 

TIO 

0(12) 

-TEST I-G- 

0013CE 

47 

40 

F 

3FE 



BC 

CC1,CONDI 

BR IF COND CODE 1 

0013D2 

47 

70 

F 

3CA 



BC 

NCCO,TI01 

BR IF NOT CC 0. 

0013D6 

07 

FB 





BCR 

UNC «Rll 

RETURN TO MAIN ROUTINE. 







*********************************************************************** 







* . 

COME 

HERE IF CC l ON ENTRY 

TEST 1-0 







*********************************************************************** 

0013D8 

95 

02 

D 

044 


TFER 

CLI 

HCSW+4CR13)*X'02 * 

SEE IF UNIT CHK.ALONE. 

0013DC 

47 

80 

F 

3E4 



BC 

EQ,SUS 

BR IF YES. 

0013E0 

47 

FO 

F 

392 



BC 

UNC,TIO 

BR TO TEST 1-0 

0013E4 

OA 

DO 




SUS 

SVC 

X^O* 

TELL OPERATOR TO MAKE DEV ROY 

0013E6 

040F 





DC 

X•040F• 


0013E8 

FA79 





DC 

AL2(IR-BASE+REG) 


0013EA 

OA 

DA 





SVC 

X *DA • 

-HALT- 

0013EC 

47 

FO 

F 

344 



BC 

UNCtLS 

BR TO TRY AGAIN. 







*********************************************************************** 







* . 

COME 

HERE IF DEVICE NOT OPERATIONAL 







*********************************************************************** 

0013F0 

OA 

DO 




NTOP 

SVC 

X *D0* 

PRINT DEV NOT OPERATIONAL 

0013F2 

4416 





DC 

X«4416» 


0013F4 

FA88 





DC 

AL2IDNT-BASE4REG) 


0013F6 

96 

02 

8 002 



01 

2(R8),X *02• 

TURN ON SIO ERROR SW. 

0013FA 

47 

FO 

F 

2E8 



BC 

UNC,INCR 

BR TO GET NEXT DEVICE. 


*********************************************************************** 
♦ COME HERE IF COND CODE 1 ON TIO AFTER SIO 

*********************************************************************** 
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j 

1 

0013FE 

91 02 

D 

044 


CONDI TM 

HCSW+4(R13)*X *02 9 

TEST FOR UNIT CHECK. 


0014C8 

0008 




DC 

AL2C8) 

( 

001402 

47 10 

F 

40 E 


BC 

ALL,SIOERR 

BR IF YES. 


0014CA 

04CA 



CNV2 

DC 

AL2(CNV2-SECN0) 

1 

001406 

91 FF 

D 

045 


TM 

HC S W+ 5 (R13) ,X 9 FF * 

SEE IF ANY CHANNEL STATUS. 


0014CC 

07AF 




DC 

AL2(CCWD—SECNQ) 


00140A 

47 80 

F 

3CA 


BC 

NONE,TI01 

BR IF NONE. 


0014CE 

D2 07 

F 

790 F 7B7 


MVC 

81S(8),CCWD+8 

MOVE CCW TO WORK AREA. ! 






**********:^ 4^**4 ^******^ j^jm********^***^^****^********************* 

0014D4 

D2 07 

F 

7B8 F 790 


MVC 

CCWD+9(8),81S 

MOVE IT BACK SHIFTED OVER 1. 






* COME 

HERE SIO NOT ACCEPTED 



0014DA 

92 40 

F 

7B7 


MVI 

CCWD+8,X *40 9 

INSERT A BLANK. 






*************$***♦**$*********«♦***♦****♦♦♦**************************** 

0014DE 

OA DO 




SVC 

X 9 D0 9 

PRINT CCW 

00140E 

06 07 

F 

77C D 

040 

SIOERR OC 

CSWSV(B),HCSW(R13) 

SAVE THE CSW. 


0014E0 

A016 




DC 

X' A016 9 


001414 

90 00 

C 

000 


TI02 T10 

0(R12) 

-TEST 1-0- 


00I4E2 

F7AA 




DC 

AL2(CCWP-BASE+REG) 


001418 

47 40 

F 

40E 


BC 

CC1, SIOERR 

BR TO SAVE CSW IF CC 1. 


0014E4 

91 CO 

1 

004 


TM 

4( Rl),X 9 C0• 

SEE IF CHAINING 

00141C 

47 70 

F 

414 


BC 

NCC0,TI02 

BR IF NOT CC 0. 


0014E8 

47 80 

F 

4F4 


BC 

NONE,RRGS 

BR IF NOT. 

001420 

91 01 

F 

780 


TM 

C SWSV+4,X *01• 

TEST FOR UNIT EXCEPTION. 


0014EC 

41 11 

0 

008 


LA 

R1,8(R1) 

ADD 8 TO CCW ADDR. 

001424 

47 10 

F 

38A 


BC 

ALL,SIO 

RETURN TO EXECUTE SIO AGAIN. 


0014F0 

47 FO 

F 

4BE 


BC 

UNC,AGAIN 

BR TO PRINT NEXT CCW. 

001428 

91 02 

F 

780 


TM 

CSWSV+4,X *02• 

SEE IF UNIT CHECK. 


00I4F4 

58 10 

F 

774 

RRGS 

L 

Rl,WORK 

RESTORE REG I. 

00142C 

47 10 

F 

4FA 


BC 

ALL »CF12 

BR IF YES. 


0014F8 

07 F5 




BCR 

UNC,R5 

RETURN TO REST OF MSGS. 

001430 

0A 00 




CNVRST SVC 

X*DD * 

CONVERT THE CSW FOR PRINTING. 






******4^*************************************************************** 

001432 

0008 




DC 

AL2(8) 

EIGHT BYTES. 






* 

SENSE 

SIO 


001434 

077C 




DC 

AL2ICSWSV-SECNOI 







ft********************]^************************************************ 

] 001436 

07E4 




OC 

AL2(CSWAD-SECNQ) 

TO HERE 


0014FA 

41 AO 

F 

758 

CF12 

LA 

RIO,SNS 

PICK UP ADDR OF SENSE CMD. 

j 001438 

02 07 

F 

790 F 

TEC 

MVC 

BIS(8),CSWAD+8 

MOVE ACTUAL DATA TO WORK AREA. 


0014FE 

50 AD 

0 

048 


ST 

R10,HCAW(R13I 

PUT IT IN THE CAW. 

1 00143E 

02 07 

F 

TED F 

790 

me 

CSWAD+9!8),BIS 

RETURN THE DATA SHIFTED OVER 1 

POS. 

001502 

58 5E 

0 

198 


L 

R5,WAIT!R141 

PUT WAIT FACTOR IN REG 5. 

1 001444 

92 40 

F 

TEC 


M VI 

CSWAD+8,X *40• 

INSERT A BLANK 


001506 

88 50 

0 

002 


SRL 

R5,2 

DIVIDE IT BY 4. 

001448 

OA DO 




SVC 

X *DD * 

CONV EXP CSW FOR MSG. 


00150A 

92 00 

F 

79C 


MVI 

SNSDAT,X *00 * 

ZERO THE SENSE BYTE AREA. j 

00144A 

0008 




DC 

AL2(8) 



00150E 

9C 00 

C 

000 

SI02 

SIO 

0(R12) 

-START 1-0- 

00144C 

0760 




DC 

AL2CCSWEX-SECNO) 



001512 

47 70 

F 

52A 


BC 

NCC0,TI03 

BR IF SIO NOT ACCEPTED. J 

00144E 

07C5 




DC 

AL2(CSWED-SECNO) 



001516 

9D 00 

C 

000 

TI04 

TIO 

0(R12) 

TEST 1-0 

001450 

02 07 

r- 

790 F 

7CD 

me 

BXSJ8J,CSWED+8 

MOVE EXP CSW TO WORK AREA 


00151A 

47 80 

F 

532 


BC 

CCO,CHKSNS 

BR IF AVAILABLE. 

001456 

02 07 

F 

7C6 F 

790 

me 

CSWED+918),BIS 

MOVE IT BACK SHIFTED OVER ONE. 


0015IE 

46 50 

F 

516 


BCT 

R5,TI04 

BR UNTIL AVAILABLE OR TIMEOUT. 

00145C 

92 40 

F 

7CD 


M VI 

CSWED+8,X*40* 

INSERT A SINK. 


001522 

96 04 

F 

79A 


01 

PRSW,X 9 04 9 

SET TIME OUT SW. 

001460 

0A 00 




SVC 

X *DD * 

CONV THE CAW FOR MSG. 


001526 

47 FO 

F 

430 


BC 

UNC,CNVRST 

BR TO MSG. 

j 001462 

0004 




DC 

AL2(4) 



00152A 

96 02 

F 

79A 

TI03 

01 

PRSW,X *02 9 

TURN ON SNS SIO ERR SW. 

] 001464 

078C 




DC 

AL2ICAWSV-SECNOJ 



00152E 

47 FO 

F 

430 


BC 

UNC,CNVRST 

BR TO MSG. 

j 001466 

07A2 




DC 

AL2(CAWD-SECN0I 



001532 

91 01 

F 

79C 

CHKSNS 

TM 

SNSDAT,X *01 9 

SEE IF CHANNEL 9 ON CARRIAGE. 

\ 001.468 

0A DO 




SVC 

X*D0* 

PRINT A BLANK. 


001536 

47 10 

F 

344 


BC 

ALL,LS 

BR TO TRY SIO AGAIN. 

| 00146A 

8001 




DC 

X * 8001 * 



00153A 

96 08 

F 

79A 


01 

PRSW,X*08 • 

TURN ON THE PRINT SW. 

j 00146C 

F784 




DC 

AL2(BLNK-BASEVRES $ 



00153E 

OA DD 




SVC 

X *DD * 

CONV SNS DATA FOR PRINTOUT. 

1 00146E 

0A 00 




SVC 

X ®D0* 

PRINT CAW 


! 001540 

0001 




DC 

AL2(1 ) 


| 001470 

6400 




DC 

X *640D * 



! 001542 

079C 




DC 

AL2lSNSDAT-SECNO) 


| 001472 

F79D 




DC 

AL2 JCANP-BASE+REG) 



001544 

0811 




DC 

AL2 ( SNSAD—SECNO) 

! 

| 001474 : 

45 50 

F 

486 


BAL 

R5,PCCWS 

BR TO PRINT CCWS. 


! 001546 

47 FO 

F 

430 


BC 

UNC,CNVRST 

RETURN FOR REST OF DATA. 

! 001478 

0A DO 




SVC 

X ? D9 • 

PRINT CSW EXP. 


j 00154A 

OA DO 



SER 

SVC 

X *D0* 

PRINT SNS SIO ERR. 1 

| 00147A 

A01F 




DC 

X * A01F * 



00154C 

802D 




DC 

X * 802D 9 

t 

\ 00147C 

F7C0 




DC 

AL2(CSWEP-BASE+REG) 



! 00154E 

FAB4 




DC 

AL2 ( SNER-BASE+REG) 

1 

j 00147E 

OA DO 




SVC 

X *D0* 

PRINT CSW ACT. 


t 001550 

47 FO 

F 

2E8 


BC 

UNC,I NCR 

BR TO GET NEXT DEV. 

! 001480 

AGIO 




DC 

X’AOID® 



001554 

OA DO 



TOM 

SVC 

X 9 D0* 

PRINT SNS SIO TIME OUT. 

001482 

F70F 




DC 

AL2ICSWAP-BASE+REG) 



001556 

8045 




DC 

X *8045 9 


I 001484 ! 

96 02 

8 

002 


01 

2CR8),X • 02 • 

TURN ON SIO ERROR SW. 


001558 

FAE1 




DC 

AL2(STO-BASE+REGJ 


j 001488 

91 08 

F 

79A 


TM 

PRSW,X *08 • 

TEST SENSE PRINT SW. 


00155A 

47 FO 

F 

2E8 


BC 

UNC, I NCR 

BR TO GET NEXT DEV. 

| 00148C 

47 80 

f 

49C 


BC 

NONE,PUCER 

BR IF NOT ON. 






*******^************ 4 ^************************************** 

j 001490 

OA DO 




SVC 

X *D0* 

PRINT SENSE DATA EXP. 






* 

COME 

HERE IF CUSTOMER CHAIN 

CARDS USED 

| 001492 

AO 10 




DC 

X *A010* 







*****♦♦♦**♦♦*♦*♦♦******♦****♦♦♦♦♦♦♦**♦***♦*♦*********♦****** 

} 001494 

F7FC 




DC 

AL2 ( SNSEP-BASE^-REGJ 



00155E 

91 20 

F 

798 

LCC 

TM 

PGSW,X*20 9 

SEE IF CTRL CDS READ BEFORE 

| 001496 

OA DO 




SVC 

X *D0* 

PRINT SENS DATA ACT. 


001562 

47 80 

F 

5FC 


BC 

NONE tUCBERl 

BR IF NOT. 

001498 

AOOE 




DC 

X • AOOE * 



001566 

91 04 

F 

798 


TM 

PGSW,X *04 9 

SEE IF SHLD BE READING CHAIN CDS. 

00149A 

F80C 




DC 

AL2(SNSAP~BAS£+REGJ 



00156A 

47 10 

F 

598 


BC 

ALL,CDMIX 

BR IF YES. 

] 00149C 

OA 00 




PUCER SVC 

X *D0* 

PRINT SIO TROUBLE 


00156E 

91 80 

F 

799 


TM 

CCSWyX'BO* 

SEE IF BYPASS SW ON. 

| 00149E 

8016 




DC 

X *8016 9 



001572 

47 10 

F 

57E 


BC 

ALL,64 

BR IF ON. 

! 0014A0 

FA9E 




DC 

AL2(TBL-BASE+REG1 



001576 

96 80 

F 

799 


01 

CCSWrX 9 80 • 

TURN ON BYPASS SW. 

! 0014A2 

91 02 

F 

79A 


TM 

PRSW,X *02 9 

TEST SIO ERR SW. 


00157A 

41 20 

0 

004 


LA 

R2,4 

PUT 4 IN REG 2. 

! 0014A6 

47 10 

F 

54A 


BC 

ALLySER 

BR IF ON. 


00157E 

96 01 

F 

798 

\ 64 

01 

PGSW,X 9 01 9 

TURN ON CUST CD SW. 

\ 0014AA 

91 04 

F 

79A 


TM 

PRSW,X*04 9 

TEST SNS TIME OUT SW. 


001582 

D2 3B 

9 

000 F B4E 


MVC 

0(60,R9)yRDAR+20 

MOVE DATA TO BUFFER ADDR. 

{ 0014AE 

47 10 

F 

554 


BC 

ALL,TOM 

BR IF ON. 


001588 

41 99 

0 

03C 


LA 

R9,60(R9) 

ADD 60 TO BUFFER ADDR. 

| 0014B2 

47 FO 

F 

2E8 


BC 

UNC,I NCR 

BR TO GET NEXT DEVICE IF ANY. 


00158C 

46 20 

F 

14C. 


BCT 

R2,UCB3 

BR TO READ 4 CUSTOMER CARDS 

I 00i486 

50 10 

F 

774 


PCCMS ST 

RlyWORK 

SAVE REG 1. 


001590 

94 :7F 

F 

799 


NI 

CCSW,X*7F 9 

TURN OFF BYPASS SW. 

. 0014BA 

58 10 

F 

78C 


l 

RltCAWSV 

PICK UP CCW ADDR. 


001594 

47 FO 

F 

238 


BC 

UNC *UCB4 

BR TO CONTINUE 

| 0014BE 

40 10 

F 

4CA 


AGAIN STH 

Ri,CNV2 

PUT ADDR OF CCW INTO CONV INSTR. 





************************************************************ 

{ 0014C2 

94 OF 

F 

4CA 


HI 

CNV2yX«0F* 

AND OUT THE BASE REGISTER. 


i t 




♦ . 

COME 

HERE IF CUSTOMER CARDS 

AND HEX CARDS MIXED 

| 0014C6 

i 

OA DO 




SVC 

X 9 DD* 

CONV CCW FOR MSG 






4^********************************************************** 

l 

j DATE 

15N0V66 
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001598 

91 08 

F 

799 

CDMIX 

TM 

CCSW,X*08• 

SEE IF PASS SW ON. 

00159C 

47 10 

F 

14C 


BC 

ALL »UCB3 

BR IF YES. 

0015 AO 

OA DO 




SVC 

X *D0' 

INDICATE MIXED CDS. 

0015A2 

6045 




DC 

X•6045• 


0015A4 

F90C 




DC 

AL2(CAC-BASE+REG) 

MSG ADDRESS. 

0015A6 

47 FO 

F 

60A 


BC 

UNC,SPC 

BR TO PASS CARDS. 





************************************************************ 





* 

SET 

UP CUSTOMER CARD DATA 

HERE 





************************************************************ 

0015AA 

41 90 

F 

B 8 A 

PCCD 

LA 

R9« PAREA 

PICK UP ADDR OF CUST DATA. 

0015AE 

41 40 

0 

OOF 


LA 

R4* 15 

PUT 15 IN REG 4. 

0015B2 

D2 03 

F 

B3A F B40 


MVC 

RDARC4)«RDAR +6 

PUT CHAIN TYPE IN START OF PRNT LINE 

0015B8 

92 40 

F 

B3E 


MV1 

RDAR+4 ,C• • 

MOVE A BLANK TO PRINT AREA. 

0015BC 

D2 2C 

F 

B3F F B3E 


MVC 

RDAR+5I43I*RDAR+4 

BLANK REST OF AREA. 

00I5C2 

41 30 

0 

008 

SUB 

LA 

R3t 8 

PUT 8 IN REG 3. 

0015C6 

41 10 

F 

B3F 


LA 

RltRDAR+5 

PICK UP ADDR OF CUST CD PRINT AREA. 

0015CA 

40 90 

F 

5DE 

STIT 

STH 

R9»B1 

PUT IT IN CONV INSTR. 

00I5CE 

40 10 

F 

5E0 


STH 

R1 * B2 

PUT IT IN CONV INSTR. 

0015D2 

94 OF 

F 

50E 


NI 

B1,X*0F * 

AND OUT THE 4K BLOCK 

0015D6 

94 OF 

F 

5E0 


NI 

B2, X*OF• 

AND OUT THE 4K BLOCK 

0015DA 

OA DD 




SVC 

X *DD' 

CONV HEX TO BINARY 

0015DC 

0002 




DC 

AL2(2) 

2 BYTES TO 4 BYTES. 

0015DE 

05DE 



81 

DC 

AL2(Bl-SECNO) 

FROM HERE 

0015E0 

05E0 



82 

DC 

AL2(B2-SECN0) 

TO HERE 

0015E2 

41 11 

0 

005 


LA 

R1 9 5(R1) 

ADD 5 TO REG 1. 

0015E6 

41 99 

0 

002 


LA 

R9,2CR9) 

ADD 2 TO REG 9. 

0015EA 

46 30 

F 

5CA 


BCT 

R3tSTIT 

BR TO SET UP 16 BYTE LOGOUT. 

0015EE 

OA DO 




SVC 

X *D0 • 

PRINT CUST CARD IN OUR FORMAT. 

0015F0 

802C 




DC 

X*802C * 

44 BYTES 

0015F2 

FB3A 




OC 

AL2(RDAR-BASE+REG> 

FROM HERE 

0015F4 

46 40 

F 

5C2 


BCT 

R4» SU3 

BR TO REINITIALIZE FOR NXT LOG LINE. 

0015F8 

47 FO 

F 

2 D 2 


BC 

UNC 9 CAD 

BR TO CHK LOAD BUFFER 





*********************************************************************** 





* 

CONTROL CARDS MIXED WITH 

DATA CARDS 





*********************************************************************** 

0015FC 

91 08 

F 

799 

UCBER1 

TM 

CCSW,X *08 * 

SEE IF PASS SW ON. 

001600 

47 10 

F 

14C 


BC 

ALL 9 UCB 3 

BR IF YES. 

001604 

OA DO 




SVC 

X*DO* 

PRINT CTRL CD ERROR. 

001606 

4027 




DC 

X *4027* 


001608 

F894 




DC 

AL 2 (MI X—BASE+RE 6 I 

MSG ADDR. 

00160A 

96 08 

F 

799 

SPC 

01 

CCSW,X*08• 

TURN ON PASS CD SW. 

00160E 

96 20 

F 

798 


01 

PGSW 9 X*20 9 

TURN ON CTRL 1ST CD SW. 

001612 

47 FO 

F 

14C 


BC 

UNC 9 UCB 3 

RETURN FOR NEXT CD. 





************************************************************ 





♦ 

SUPERVISOR CALL INTERRUPT 

HANDLER 





************************************************************ 

001616 

91 04 

F 

007 

DATINT 

TM 

SNSW+3,X *04 * 

TEST SSW 29. 

00161A 

47 10 

F 

66 A 


BC 

ALL 9 FFEX 

BR IF ON. 

00161E 

91 08 

F 

799 


TM 

CCSW,X*08* 

TEST PASS CD SW. 

001622 

47 10 

F 

66 A 


BC 

ALL,FFEX 

BR IF ON. 

001626 

91 20 

F 

798 


TM 

PGSW 9 X *20 * 

TEST CTRL 1ST CD SW. 

00162A 

47 10 

F 

636 


BC 

ALL,CCHN 

BR IF ON. 

00162E 

OA DO 




SVC 

X*D0* 

PRINT NO CTRL OR CHN CDS 

001630 

4019 




DC 

X *4019• 

ERROR -25 BYTES 

001632 

F 8 BB 




DC 

AL2(MCC-BASE+REG) 

MSG. ADDRESS 

001634 

OA D 6 




SVC 

X *06 • 

-ROUTINE EXIT- 

001636 

91 80 

F 

79A 

CCHN 

TM 

PRSW,X *80 9 

SEE IF ANY DEVICES HAVE UCS. 

00163A 

47 80 

F 

66 C 


BC 

NONE 9 TBS 

BR IF NOT. 

00163E 

91 08 

F 

798 


TM 

PGSW,X *08• 

SEE IF DATA CARDS WERE READ. 

001642 

47 10 

F 

64E 


BC 

ALL,TRCC 

BR IF YES. 

001646 

OA DO 




SVC 

X •DO* 

PRINT CHAIN CDS MISSING 

001648 

4014 




DC 

X *4014 * 

ERROR MSG -20 BYTES- 

00164A 

F804 




DC 

AL2(MAG—BASE+REG) 

MSG. ADDRESS 

00164C 

OA 06 




SVC 

X*D 6 * 

-ROUTINE EXIT- 

00164E 

91 10 

F 

798 

TRCC 

TM 

PGSMrXHO* 

SEE IF START SW ON. 

001652 

47 80 

F 

65E 


BC 

NONE,PCM 

BR IF NOT ON. 

001656 

91 05 

F 

798 


TM 

PGSW,X*05• 

TEST CUSTOMER AND HEX CD SMS. 

00165A 

47 80 

F 

66 C 


BC 

NONE,TBS 

BR IF NONE ON. 
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00165E 

OA DO 

PCM 

SVC 

X»DO* 

PRINT CHAIN CDS MISSING 

001660 

6010 


DC 

X'6010 1 

ERROR MSG -16 BYTES- 

001662 

F 8 D 8 


DC 

AL2 C CCM-BASE+REG) 

MSG ADDR. 

001664 

OA DO 


SVC 

X»DO* 

PRINT ANY RESTORED BUFFERS 

001666 

A024 


DC 

X • A024• 

MAY BE IN ERROR DUE TO 

001668 

F 8 E 8 


DC 

AL2(RME-BASE+RE 6 ) 

MISSING CARDS. 

00166A 

OA D 6 

FFEX 

SVC 

X'D 6 * 

EXIT 


*********************************************************************** 
* SEE IF BUFFERS RESTORED 


00166C 

41 

80 

F 

C84 

TBS 

LA 

R 8 ,CTLSV 

PICK UP CTRL TABLE AODRESS. 

001670 

41 

30 

0 

OOA 


LA 

R3,10 

PUT 10 IN REG 3. 

001674 

D5 

03 

8 

000 F 770 

TBRS 

CLC 

0(4,R 8 ),ZERO 

SEE IF ANY ENTRY IN TABLE. 

00167 A 

47 

80 

F 

692 


BC 

EQ,TUCS 

BR IF NO. 

00167E 

91 

01 

8 

002 


TM 

2<R8),X*0l» 

SEE IF BUFFER RESTORED. 

001682 

47 

80 

F 

710 


BC 

NONE V NRES 

BR IF NOT. 

001686 

96 

80 

F 

79B 


01 

RESW,X*80® 

TURN ON BUFFER RESTORED PROG SW 

00168A 

41 

88 

0 

004 

CABU 

LA 

R 8 ,4(R 8 I 

ADD 4 TO CTRL TABLE ADDR. 

00168E 

46 

30 

F 

674 


BCT 

R3,TBRS 

BR TO CHECK WHOLE TABLE. 


*********************************************************************** 
* SEE IF ANY UCS DEVICES THAT SHOULD BE CONSIDERED FOR RESTORATION 

*********************************************************************** 


001692 

41 

30 

0 

OOA 



TUCS 

LA 

R3,10 

PUT 10 IN REG 3. 

001696 

41 

80 

F 

OEO 




LA 

R 8 ,UNIT 1 

PICK UP UNIT TABLE ADDRESS. 

00169A 

91 

10 

8 

001 



TFU 

TM 

1CR8),X*10* 

SEE IF UCS OPTION ON PRINTER. 

00169E 

47 

10 

F 

6 BC 




BC 

ALL,CHKTB 

BR IF YES. 

0016A2 

41 

88 

0 

004 



BMP 

LA 

R8,4(R 8 ) 

ADD 4 TO UNIT TABLE ADDRESS. 

0016A6 

46 

30 

F 

69A 




BCT 

R3,TFU 

CHECK REST OF UNIT TABLE. 

0016AA 

91 

40 

F 

798 




TM 

PGSW,X *40 8 

SEE IF ANY UNITS MENTIONED. 

0016AE 

47 

10 

F 

6 FC 




BC 

ALL,WATE 

BR IF YES. 

0016B2 

91 

80 

F 

79B 




TM 

RESW,X *80 * 

SEE IF ANY BUFFERS RESTORED. 

0016B6 

47 

80 

F 

738 




BC 

NONE,NBRM 

BR IF NOT. 

0016BA 

OA 

06 






SVC 

X *D 6 * 

ROUTINE EXIT 

0016BC 

41 

40 

0 

OOA 



CHKTB 

LA 

R4,10 

PUT 10 IN REG 4. 

0016 CO 

41 

60 

F 

C84 




LA 

R 69 CTLSV 

PICK UP ADDRESS OF CTRL TABLE. 

0016C4 

D2 

01 

F 

C80 

8 

002 


MVC 

A01(2),2(R 8 ) 

MOVE DEVICE ADDRESS TO WORK AREA. 

0016 CA 

94 

07 

F 

C80 




NI 

ADI,X*07* 

ZERO ASSIGNED AND REQ BITS. 

0016CE 

D5 

01 

F 

C80 

6 

000 

CTB 

CLC 

ADI(2),0(R6) 

SEE IF DEVICE ALREADY IN TABLE. 

0016 04 

47 

80 

F 

6A2 




BC 

EQ,BMP 

BR IF IT IS. 

0016D8 

41 

66 

0 

004 




LA 

R6,4(R 6 ) 

ADD 4 TO CTRL ADDR. 

0016DC 

46 

40 

F 

6 CE 




BCT 

R4,CTB 

BR TO COMPARE WHOLE TABLE* 

0016E0 

OA 

DD 






SVC 

X *DD • 

CONVERT HEX TO BINARY. 

0016E2 

0002 






DC 

AL2(2I 

2 BYTES 

0016E4 

0C80 






DC 

AL2(ADI-SECNO) 

FROM HERE 

0016E6 

098 E 






DC 

AL2(MES—SECNO) 

TO HERE 

0016E8 

OA 

DO 






SVC 

X ®D0 * 

PRINT A BLANK 

0016EA 

8001 






DC 

x'sooi® 


0016 EC 

F784 






DC 

AL2(BLNK-BASE+REG) 


0016EE 

OA 

DO 






SVC 

X *D0* 

PRINT UNUSED DEVICE FOUND 

0016F0 

203D 






DC 

X'203D• 


0016F2 

F987 






DC 

AL 2 (FND—BASE+REGI 


0016F4 

96 

40 

F 

798 




01 

PGSWrX *40• 

TURN ON DEV FOUND SW* 

0016F8 

47 

FO 

F 

6A2 




BC 

UNC,BMP 

BR TO CHK FULL TABLE. 

0016FC 

OA 

00 





MATE 

SVC 

X *D0* 

PRINT A BLANK 

0016FE 

8001 






DC 

X * 8001• 


001700 

F784 






DC 

AL2(BLNK-BASE+REG) 


001702 

OA 

DO 






SVC 

X *00* 

PRINT INSTRUCTIONS FOR UCB LOADING. 

001704 

A03B 






DC 

X'A03B * 


001706 

F9C4 






DC 

AL2UF-4BASE+RESI 


001708 

OA 

DO 






SVC 

X *00* 

CONTINUE INSTRUCTIONS. 

00170A 

8029 






DC 

X * 8029* 


00170C 

F9FF 






DC 

AL2UFI—BASE+REG) 


00170E 

OA 

06 






SVC 

X *D 6 * 

-ROUTINE EXIT- 

001710 

91 

02 

a 

002 



NRES 

TM 

2IR8t»X*02* 

TEST SIO ERROR SW. 

001714 

47 

10 

F 

68 A 




BC 

ALL,CABU 

BR IF ON. 

001718 

40 

80 

F 

724 




STH 

R 89 CVI 

PUT ADDR IN CONV INSTRUCTION. 

QG171C 

94 

OF 

F 

724 




NI 

CV1»X*GF« 

AND OUT YHE 4K BLOCK. 

001720 

OA 

DD 






SVC 

X*OD® 

CONV HEX TO BINARY. 
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001722 

0002 


DC 

AL2(2) 

2 BYTES. 

001724 

0724 

CV1 

DC 

AL2(CVl-SECNOJ 

FROM HERE. 

001726 

0A2F 


DC 

AL2(DEV1-SECNG) 

TO HERE. 

001728 

OA 00 


SVC 

X *D0 1 

INDICATE BUFFER NOT RESTORED. 

00172A 

AO 39 


DC 

X•A039 1 


00172C 

FA28 


DC 

AL2(BNR-BASE+REG) 


00172E 

OA 00 


SVC 

X *D0* 

CONTINUE MSG. 

001730 

8018 


DC 

x* 80 i 8 * 


001732 

FA61 


DC 

AL2(BNR2-BASE+RE6) 


001734 

47 FO F 68A 


BC 

UNCtCABU 

BR BACK TO CHK WHOLE TABLE. 

001738 

OA 00 

NBRM 

SVC 

X •DO* 

INDICATE NO BUFFERS RESTORED. 

00173A 

8014 


DC 

X * 8014• 


00173C 

FB26 


DC 

AL2(NORE-BASE+REG) 


00173E 

OA 06 


SVC 

X *06* 

ROUTINE EXIT. 



*****4************************,Mt*********4^***********4‘*******4':M l ****** 



♦ 

CCWS 

USED 




*********************************************************************** 

001740 

EB 001B8A 6000 0001 

LU8CCW 

CCW 

X *EB * »PAREA tX *60 • »1 

-GATE LOAD CCW. 

001748 

7B 001B8A 6000 0001 

DCCCW 

CCW 

X * 7B •tPAREA yX *60 * *1 

-DATA CHK CCW 

001750 

FB 001B8A 0000 OOFO 


CCW 

X *F8 * »PAREA f X *00•>240 

-LOAD UCS BUFFER. 

001758 

04 

SNS 

DC 

X • 04 • 

SENSE CCW. 

001759 

00179C 


DC 

AL3(SNSDAT) 


00175C 

20000001 


DC 

X*20000001* 




************************$******************♦*+*♦****************$**♦♦** 



* 

EXPECTEb CSW 




*4^******$*************«*******4^*********************4^*****4^******** 

001760 

00 

CSWEX 

DC 

X»00» 

EXPECTED CSW. 

001761 

001758 


DC 

AL3(DCCCW416J 


001764 

0C000000 


DC 

X*DC000000* 




i***^*****************************#************************************* 



* 

CONSTANTS 




j****************^***************************************************** 

001768 

OOOOOOOF 

ONE 5 

DC 

F • 15 * 


00176C 

00000001 

ONE 

DC 

F • 1 * 

,* 

001770 

00000000 

ZERO 

DC 

F *0 * 


001774 

00000000 

WORK 

DC 

2F * 0* 


001778 

00000000 





00177C 

00000000 

CSWSV 

DC 

2F * 0* 


001780 

00000000 





001784 

40404040 

BLNK 

DC 

X*40404040* 


001788 

C3E3D9D3 

CTRL 

DC 

X *C3E3D9D3• 


00178C 

00000000 

CAWSV 

DC 

F *0 * 


001790 

00000000 

BIS 

DC 

2F * 0* 


001794 

00000000 







************+****+*****+**+*+4*++*****++*#*++*++++++**+++++++++++***+++ 



* 

PROGRAM SWITCHES 




ft********************************************************************** 

001798 

00 

PGSW 

DC 

X*00* 

PROGRAM SWITCHES. 

001799 

00 

ccsw 

DC 

X*00* 

BYPASS SW. 

00179A 

00 

PRSW 

DC 

X*00* 


001798 

00 

RESW 

DC 

X*00* 

PROGRAM SWITCHES 

00179C 

00 

SNSDAT 

DC 

X»00* 




*********************************************************************** 



4 

LOAD 

UCB START 1-0 ERROR MSG AREA. 



******$**«***************************4******4*************4*********4** 

0017 9 D 

40C3C1E640 

CAWP 

DC 

C* CAW • 


0017A2 

E7E7E7E7E7E7E7E7 

CAWD 

DC 

C’XXXXXXXX* 


0017AA 

40C3C3E640 

CCWP 

DC 

C* CCW • 


0017AF 

E7E7E7E7E7E7E7E740 

CCWD 

DC 

C’XXXXXXXX • 


0017B8 

E7E7E7E7E7E7E7E7 


DC 

C*XXXXXXXX* 


0017C0 

40C3E2E640 

CSWEP 

DC 

C* CSW • 


0017C5 

E7E7E7E7E7E7E7E740 

CSWED 

DC 

C*XXXXXXXX * 


0017CE 

E7E7E7E7E7E7E7E740 


DC 

C*XXXXXXXX EXPECTS* 


0017D7 

C5E7D7C5C3E3C5 





0017DE 

C4 


DC 

C *D * 


0017DF 

40C3E2E640 

CSWAP 

DC 

C* CSW * 


0017E4 

E7E7E7E7E7E7E7E740 

CSWAD 

DC 

C’XXXXXXXX « 


0017ED 

E7E7E7E7E7E7E7E740 


DC 

C’XXXXXXXX ACTUAL* 
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0017F6 

C1C3E3E4C1D3 





0017FC 

40E2D5E240 

SNSEP 

DC 

C 

• SNS • 

001801 

F0F040C5E7D7C5C3E3 

SNSED 

DC 

C 

•00 EXPECTED* j 

00180A 

C5C4 





00180C 

40E2D5E240 

SNSAP 

DC 

C 

• SNS • 

001811 

E7E740C1C3E3E4C1D3 

SNSAD 

DC 

C 

•XX ACTUAL* 



ft********************************************************************** 



* 

MESSAGES 



*********************************************************************** 

00181A 

F2F8F2F140E4C3C240 

TITLE 

DC 

C 

•2821 UCB RESTORE’ 

001823 

D9C5E2E3D6D9C5 





00182A 

40D9E3D5 


DC 

C 

• RTN’ 

0018 2 E 

C3E3D9D340C4C1E3C1 

MSG1 

DC 

C 

•CTRL DATA AT • 

001837 

40C1E340 





00183B 

C1C4C4D940 


DC 

C 

•ADDR • 

001840 

E7E7E7E7E7E740C6D6 

ADDR 

DC 

C 

•XXXXXX FOR ALTER’ 

001849 

D940C1D3E3C5D9 





001850 

D5D6 

NO 

DC 

C 

•NO* 

001852 

40E4C3C240D9C5E2E3 

CORLD 

DC 

C 

* UCB RESTORED WI• 

00185B 

D6D9C5C440E6C9 





001862 

E3C840 


DC 

C 

•TH • 

001865 

D5D640C2D3D6C3D240 

BDM 

DC 

C 

•NO BLOCK DATA CH* 

00186E 

C4C1E3C140C3C8 





001875 

D240C1D5C440 


DC 

C 

•K AND • 

001878 

D5D640C6D6D3C4C9D5 

FOLD 

DC 

C 

•NO FOLDING • 

001884 

C740 





001886 

E4E2C9D5C740 


DC 

C 

•USING • 

00188C 

C3C8C1C9D540 

MSG2 

DC 

C 

•CHAIN * 

001892 

E7E7 

CHN1 

DC 

C 

•XX* 

001894 

C3E3D9D340C3C4E240 

MIX 

DC 

C 

•CTRL CDS MISSING* 

00189D 

D4C9 E2E2C9D5C7 





0018A4 

40D6D940D4C9E7C5C4 


DC 

C 

• OR MIXED* 

0018AD 

40E6C9E3C840C4C1E3 


DC 

c 

• WITH DATA CDS* 

0018B6 

C140C3C4E2 





0018BB 

D4C9 E2E2C9D5C740C3 

MCC 

DC 

c 

•MISSING CTRL AND* 

0018C4 : 

E3D9D340C1D5C4 





0018CB 

40C4C1E3C140C3C4E2 


DC 

c 

• DATA CDS* 

0018D4 

C1D3D340 

MAC 

DC 

c 

•ALL • 

0018D8 

C4C1E3C140C3C4E240 

CCM f 

DC 

C 

•DATA CDS MISS* 

0018El 

D4C9E2E2 





0018E5 

C9D5C7 


DC 

c 

•ING* 

0018E8 

C1D5E840D9C5E2E3D6 

RME 

DC 

c 

•ANY RESTORED BUF* 

0018FI 

D9C5C440C2E4C6 





0018F8 

C6C5D9E240D4C1E840 


DC 

c 

•FERS MAY BE IN E* 

001901 

C2C540C9D540C5 





001908 

D9D9D6D9 


DC 

c 

•RROR* 

00190C 

C5C9E3C8C5D940C3E4 

CAC 

DC 

c 

•EITHER CUSTOMER * 

001915 

E2E3D6D4C5D940 





00191C 

C1D5C440C8C5E740C3 


DC 

c 

•AND HEX CDS MI • 

001925 

C4E240D4C9 





00192A 

E7C5C440D6D940D6D5 


DC 

c 

•XED OR ONE TYPE • 

001933 

C540E3E8D7C540 





00193A 

C9E240C9D5C1C4C5D8 


DC 

c 

•IS INADEQUATE IN* 

001943 

E4C1E3C540C9D5 





00194A 

40D5E4D4C2C5D9 


DC 

c 

• NUMBER* 

001951 

40E3C9D640D3D6D6D7 

TIOTO 

DC 

c 

• TIO LOOP RECEIV* 

00195A 

40D9C5C3C5C9E5 





001961 

C5E240E2D6D3C9C440 


DC 

c 

•ES SOLID CHANNEL* 

00196A 

C3C8C1D5D5C5D3 





001971 

40C2E4E2E840C6D9D6 


DC 

c 

• BUSY FROM THIS • 

00197A 

D440E3C8C9E240 





001981 

C4C5E5C9C3C5 


DC 

c 

•DEVICE* 

001987 

C4C5E5C9C3C540 

FND 

DC 

c 

•DEVICE • 

00198E 

E7E7E7E740 

MES 

DC 

c 

•XXXX • 

001993 

C1E2E2C9C7D5C5C440 


PC 

c 

•ASSIGNED BY DM D* 

00199C 

C2E840C4D440C4 





0019 A3 

D6C5E240D5D6E340C8 


DC 

c 

•OES NOT HAVE DAT* 

0019 AC 

C1E5C540C4C1E3 
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0019B3 

0019BC 

C140C6D6D940E4C3C2 

40D9C5E2E3D6D9 


DC 

C 

•A FOR UCB RESTORE 

0019C3 

C5 


DC 

C 

E* 1 

0019C4 

0019CD 

C9C640C4C5E2C9D9C5 

C440E3D640D9C5 

IF 

DC 

C 

IF DESIRED TO RE • \ 

0019D4 

0019 DO 

E2E3D6D9C540C1D5E8 

40C4C5E5C9C3C5 


DC 

C 

STORE ANY DEVICE* 

0019E4 

0019ED 

E240E3C8C1E340C4D6 
40D5D6E340C8Cl 


DC 

C 

S THAT DO NOT HA* 

0019F4 

0019FD 

E5C540E3C8C540C4C1 

E3C1 


DC 

C 

VE THE DATA* 

0019FF 

001A08 

C3D6D5E2E4D3E340E3 

C8C540C4C5E2C3 

IF l 

DC 

C 

CONSULT THE DESC* 

001 AOF 
001A18 

D9C9D7E3C9D6D540C6 

D6D940E3C8C540 


DC 

C 

RIPTION FOR THE * 

001A1F 

D7D9D6C3C5C4E4D9C5 


DC 

C 

PROCEDURE• 

001A28 

C4C5E5C9C3C540 

BNR 

DC 

C 

DEVICE • 

001A2F 

001A38 

E7E7E7E740E4C3C240 

D5D6E340D9C5E2 

DEVI 

DC 

C 

XXXX UCB NOT RES* 

001A3F 

001A48 

E3D6D9C5C440C4E4C5 

40E3D640C9D5E2 


DC 

C 

TORED DUE TO INS* 

001A4F 

001A58 

E4C6C6C9C3C9C5D5E3 

40C4C1E3C140C3 


DC 

C 

UFFICIENT DATA C* 

001A5F 

C4E2 


DC 

C 

DS* 

001A61 

001A6A 

D6D940E6D9D6D5C740 

C3E3D9D340C4C5 

BNR2 

DC 

C 

OR WRONG CTRL DE* 

001A71 

C6C9D5C9E3C9D6D5 


DC 

C 

FINITION* 

001A79 

001A82 

D4C1D2C540C4C5E5C9 
C3C540D9C4E8 

IR 

DC 

C 

MAKE DEVICE RDY* 

001A88 

001A91 

C4C5E5C9C3C540D5D6 

E340D6D7C5D9C1 

DNT 

DC 

C 

DEVICE NOT OPERA* 

001A98 

E3C9D6D5C1D3 


DC 

C 

TIONAL* 

001A9E 
001A AT 

40C5D9D9D6D940D6D5 

40E4C3C240D3D6 

TBL 

DC 

c 

ERROR ON UCB LO* 

001AAE 

C1C440E2C9D6 


DC 

c 

AD SIO* 

001AB4 
001ABO 

40E2D5E240E2C9D640 

C1C6E3C5D940E4 

SNER 

DC 

c 

SNS SIO AFTER U* 

001AC4 

001ACD 

C3C240D3D6C1C440C1 

E3E3C5D4D7E360 


DC 

c 

CB LOAD ATTEMPT-* 

001AD4 
001ADD 

40D5D6E340C1C3C3C5 

D7E3C5C4 


DC 

c 

NOT ACCEPTED* 

001AE1 

001AEA 

40E2D5E240E2C9D640 

C1C6E3C5D940E4 

STO 

DC 

c 

SNS SIO AFTER U* 

001AF1 
001AFA 

C3C240D3D6C1C440C1 

E3E3C5D4D7E340 


DC 

c 

CB LOAD ATTEMPT • 

001 BO 1 
001 BOA 

C4C9C440D5D6E340D9 

C5C3C5C9E5C540 


DC 

c 

DID NOT RECEIVE * 

001B11 

001B1A 

CIE5C1C9D3C1C2D3C5 
40C6D9D6D440C4 


DC 

c 

AVAILABLE FROM D* 

001B21 

C5E5C9C3C5 


DC 

c 

EVICE* 

001B26 

001B2F 

40D5D640C2E4C6C6C5 

D9E240D9C5E2E3 

NORE 

DC 

c 

NO BUFFERS REST* 

001B36 

D6D9C5C4 


DC 

c 

•ORED 1 


414141 ******************************* 41 ************************************ 

♦ VARIABLE AREA 

4t*4‘4'**4i4'4i*4uMt4‘4'4****4'******4‘**4t4^4t****4'4‘4'*4*4u»*4t*4t4^**4‘4Mt4'*4'4'*4>****4'4‘4‘4' 


001B3A 000000000000000000 ROAR DC BXLIO’OO* READ IN AREA 

001B43 00 

001844 000000000000000000 

001B4D 00 

001B4E 000000000000000000 

001B57 00 

001B58 000000000000000000 

001B61 00 

001B62 000000000000000000 

001B6B 00 

00IB6C 000000000000000000 

001875 00 
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001B76 000000000000000000 

001B7F 00 

001BB0 000000000000000000 

001B89 00 


001B8A 


PAREA 

DS 

240C 


001C7C 

00000001 

CHNO 

DC 

F * 1 * 


001C80 

00000000 

ADI 

DC 

F *0* 


001C84 

00000000 

CTLSV 

DC 

1 OF * 0 * 

CTRL TABLE 


001C88 00000000 

001C8C 00000000 

001C90 00000000 

001C94 00000000 

001C98 00000000 

001C9C 00000000 

001CAO 00000000 

001CA4 00000000 

001CA8 00000000 

001CAC BUFEND DS C 

**4^******4‘*******4t**************4>**4‘********«*4*******4*************** 

* EQUATES * 

**4‘*4'*******4<4>4>4c*************«****4'*4>4‘***#4t*****4‘*4>**********4'********* 

♦ 

♦ GENERAL'REGISTER EQUATES 

♦ 


000000 

RO 

EQU 

0 






000001 

R1 

EQU 

1 






000002 

R2 

EQU 

2 






000003 

R3 

EQU 

3 






000004 

R4 

EQU 

4 






000005 

R5 

EQU 

5 






000006 

R6 

EQU 

6 






000007 

R7 

EQU 

7 






000008 

R8 

EQU 

8 






000009 

R9 

EQU 

9 






OOOOOA 

RIO 

EQU 

10 






OOOOOB 

Rll 

EQU 

11 






OOOOOC 

R12 

EQU 

12 






OOOOOD 

R13 

EQU 

13 






OOOOOE 

R14 

EQU 

14 






OOOOOF 

R15 

4 

EQU 

15 







* 

4c 

CONDITION CODE EQUATES 






000008 

NONE 

EQU 

8 

ALL OFF 

0 




000005 

ANY 

EQU 

5 

ANY ON 


1 


3 

000001 

ALL 

EQU 

1 

ALL ON 




3 

000004 

SOME 

EQU 

4 

MIXED 


1 



000009 

NMIXED 

EQU 

9 

NOT MIXED 

0 



3 

000008 

EQ 

EQU 

8 

EQUAL 

0 




000006 

UNEQ 

EQU 

6 

NOT EQUAL 


1 

2 


000004 

LO 

EQU 

4 

LOW 


1 



000002 

HI 

EQU 

2 

HIGH 



2 


000008 

Z 

EQU 

8 

ZERO 

0 




000002 

POS 

EQU 

2 

GREATER ZERO 



2 


000008 

CCO 

EQU 

8 

AVAILABLE 

0 




000004 

CC1 

EQU 

4 

CSW STORED 


1 



000002 

CC2 

EQU 

2 

BUSY 



2 


000001 

CC3 

EQU 

1 






OOOOOF 

UNC 

EQU 

15 

UNCONDITIONAL 

0 

1 

2 

3 

000007 

NCCO 

EQU 

7 

NOT CC 0 


1 

2 

3 

OOOOOB 

NCC1 

EQU 

11 

CSW NOT STORED 

0 


2 

3 

OOOOOD 

NCC2 

EQU 

13 

NOT BUSY 

0 

1 


3 

000004 

NOTZRO 

EQU 

4 

NOT ZERO - AND 

- 


1 


OOOOOC 

M1XN0N 

4c 

EQU 

12 

MIXED OR NONE 

0 

1 




♦ . 

4c 

GENERAL EQUATES 






000040 

HCSW 

EQU 

64 

HARDWARE CSW LOCATION 
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POST ASSEMBLY DATA* 


REFERENCES TO DEFINED SYMBOLS. 


1 8 Z 


2 

15DE 

B1 

15CA, 

15D2, 

15DE 





2 

15E0 

B2 

15CE» 

15D6, 

15E0 





4 

1334 

CF 

132C 







1 

8 

EQ 

HAOf 

1228, 

1284, 

1292, 

12E4, 

13DC , 

167A 




16D4 







4 

157E 

G4 

1572 







1 

2 

HI 








16 

19C4 

IF 

1706 







15 

1A79 

IR 

13E8 







1 

4 

LO 








4 

1344 

LS 

133C, 

13EC, 

1536 





2 

1850 

NO 

1358, 

136C 






1 

0 

RO 








1 

1 

R1 

129A, 

129E, 

12A8, 

12A8, 

12AC, 

12F0, 

12F4 




12F4, 

12F8, 

14B6, 

14BA, 

14BE, 

14E4 ,' 

14EC 




14EC, 

14F4, 

15C6, 

15CE, 

15E2, 

15E2 


1 

2 

R2 

1296, 

129E, 

12A4, 

12A4, 

157A, 

158C 


1 

3 

R3 

1186, 

11A8, 

12D6, 

12EC , 

15C2 , 

15EA, 

1670 




168E, 

1692, 

16A6 





1 

4 

R4 

15AE, 

15F4, 

16BC, 

16DC 




1 

5 

R5 

1474, 

14F8, 

1502, 

1506, 

151E, 



1 

6 

R6 

16C0, 

16CE, 

16D8, 

16D8 




1 

7 

R7 

1144, 

1240, 

1240, 

12CA, 

12FC, 

12FC 


1 

8 

R8 

118C, 

1190, 

11B0, 

11EC, 

12DA , 

12DE, 

12E8 




12E8, 

1320, 

1328, 

1338, 

1354, 

13AC, 

13F6 




1484, 

166C , 

1674, 

167E, 

168A , 

168A, 

1696 




169A, 

16A2, 

16A2, 

16C4, 

1710, 

1718 


1 

9 

R9 

1148, 

12B6, 

12C6, 

12C6, 

12FE, 

1582, 

1588 




1588, 

15AA, 

15CA, 

15E6, 

15E6 



4 

1C80 

ADI 

1190, 

1196, 

119A, 

11CA , 

16C4, 

16CA, 

16CE 




16E4, 

1CAD 






4 

1C81 

AD2 

11F8 







1 

1 

ALL 

me, 

1154, 

1102 , 

1218, 

1234# 

1266 « 

1402 




1424, 

142C, 

14A6, 

14AE# 

1536, 

156A, 

1572 




159C, 

1600, 

161A, 

1622, 

162A, 

1642, 

169E 




16AE, 

1714 






1 

5 

ANY 

116A 







16 

1865 

BDM 

1358, 

1366 






4 

1280 

BHD 

1266 







4 

1790 

BIS 

1438, 

143E, 

1450, 

1456, 

14CE, 

14D4 : 


4 

' 16A2 

BMP 

16D4* 

16F8 






7 

1A28 

BNR 

172C 







16 

190C 

CAC 

15A4 







4 

1202 

CAD 

1292, 

15F8 






4 

1048 

CAW 








1 

8 

cdo 

1396, 

151A 






1 

4 

CC1 

139A, 

13CE, 

1418 





1 

2 

CC2 

13C2 







1 

1 

CC3 

139E 







13 

18D8 

CCM 

1662 







6 

136C 

CFL 

1362 







4 

UCE 

CSU 

11AC, 

11B4 






8 

1040 

CSW 








6 

16CE 

CTB 

16DC 







2 

1724 

CV1 

1718, 

171C, 

1724 





2 

12C4 

CVD 

12B6, 

12BA, 

12C4 





16 

1A88 

DNT 

13F4 







7 

1987 

FND 

16F2 







2 

100A 

1CM 1 








16 

19FF 

I FI 

170C 
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1 4 ' 

155E 

LCC 

1228 [ 

1 2 

1252 

LCT 

1244 | 

i 4 

18D4 

MAC 

164A [ 

16 

188B 

MCC 

1632 

) 6 

129E 

MDA 

1282 

f 5 

198E 

MES 

16E6 

i 16 

1894 

MIX 

1608 

' 4 . 

176C 

ONE 

1144, 124C 

1 2 

1202 

PBK 

11F0 

2 

165E 

PCM 

1652 

4 

128E 

PCP 

125E 1 

2 

1380 

POK 

1376 

1 

2 

POS 


4 . 

1186 

PRC 



1 

A 

RIO 

1344, 

14FE 

1348, 

134C, 

138A, 

138E, 

13A2 , 

14FA 

1 

B 

Ril 

118A, 

118A, 

118C, 

11A4, 

11A4 , 

11BC, 

11BC 




11C0, 

11C6, 

11C6, 

11CA, 

1350, 

13D6 


1 

C 

R12 

1320, 

13BE, 

1414, 

150E , 

1516 



1 

D 

R13 

HOC, 

110C, 

1116, 

1348, 

13B4, 

1384, 

13D8 




13FE, 

1406, 

140E , 

14FE 




1 

E 

R14 

110E, 

138A, 

1502 





1 

F 

R15 

1116 







1 

FOOO 

REG 

112C, 

11E2, 

1200 , 

1206, 

126E, 

1274, 

127E 




128C, 

1384, 

13AA, 

13E8, 

13F4* 

146C, 

1472 




147C, 

1482, 

1494, 

149A , 

14A0* 

14E2, 

154E 




1558, 

15A4, 

15F2, 

1608, 

1632, 

164A, 

1662 




1668, 

16EC, 

16F2, 

1700, 

1706, 

170C, 

172C 




1732, 

173C 






16 

18E8 

RME 

1668 







2 

154A 

SER 

14A6 







4 

138A 

SIO 

1350, 

13C2, 

1424 






1 1758 SNS 14FA 

4 I60A SPC I5A6 

16 1AEI STO 1558 

4 15C2 SU3 15F4 

2 13E4 SUS 13DC 

16 1A9E TBL 14A0 


4 

166C 

TBS 

163A, 

165A 






4 

169A 

TFU 

16A6 







4 

1392 

TIO 

13A2, 

13E0 






2 

1554 

TOM 

14AE 







1 

F 

UNC 

11AC, 

1208, 

1244, 

130A, 

me. 

1386, 

13B0 




13D6, 

13E0, 

13EC, 

13FA , 

1482, 

14F0, 

14F8 




1526, 

152E, 

1546, 

1550, 

155A, 

1594, 

15A6 




15F 8, 

1612, 

16F8, 

1734 




16 
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4 
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11E2, 
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1384, 
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13E8, 

13F4, 
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1472 
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1482, 
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14A0, 
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154E 
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16 
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BNR2 
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4 

1320 
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12E4 







4 
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CABU 
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4 1636 CCHN 162A 
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160A, 161E 
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4 14FA CF12 142C 
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137A 
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48 
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HCSW 

13B4, 
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1 
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1 

8 
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1184, 
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1312, 
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133C, 
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1166, 
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1582, 
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[ 

1 
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16 
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4 
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4 15CA ST IT 15EA 

4 12F0 SUNC 

6 1674 TBRS 168E 

4 1224 TCCS 1312, 131C 
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5 

180C 

SNSAP 

149A 








11 1801 SNSED 

5 17FC SNSEP 1494 

16 1951 TIOTO 13AA 
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1 10F4 UNIT6 
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8 1038 IOOPSW 
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Y9 
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ZY 8 9QYY9-9QY 9QY R 
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9 
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7DACAB+ADAAA0GGA1FAB 

9 Y9+ 

Y9 

Y9 9QY 
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9 
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9 
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Y9 
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Y9 08-Y9 Y-9 -8-Y9 0 
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Y9 

Y9YYQY 
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9 

9 

9 9999 

9 9 99 
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DDNAACD7GA3JAHADFA2F 

9 Y9 

Y9 

Y9Y8ZY 

QO YY9Q8ZY YZ0Y9ZQ Q 

9 

9 

9 99 

19 1 9 9 Z 9 

BTXT.ALA. 
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•AAOGGA 

2UBBFA7HG02UHHAAB37H 

9 Y9Q 

Y9 

Y9 9ZY 

98Q-Y -Z 91 YY-8 Z 

9 9 

9 

9 

99 99 
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• A8. 
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Z 9 0Z9 0 Z 999 0 0 Z 

GA1AACADFA1DG01FAAAA GA1FFA7BACDD83700008 
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9 
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BTXT.APB. 

• AS. 

•AABOAM 

CWB0LALB-AAA3ALB-AAA 

9 Y99 

Y9 

Y98-Y9 

Q98 YY8Y YY98Y8Y YY9 

9 

9 

9 9 

Z 9 999 99 99 99 

BTXT•APO. 

. A8 . 

•AAAAAA 

AAAAAAAAAAAAAAAA.••• 

9 Y9-f 

Y9 

Y9VYYY 

YYYYYYYYYYYYYYYY 

9 - 

9 

9 9999 

9999999999999999 

BTXT.APQ. 

• A8. 

•AAXX.C 

CW.XXXXXXXX.XXXXXXXX 

9 Y90 

Y9 

Y9 


9 

9 

9 


BTXT.APS. 

. A8 . 

•AACSH. 

XXXXXXXX.XXXXXXXX.AC 

9 Y98 

Y9 

Y9 


9 

9 

9 


BTXT.AQQ. 

. A8. 

•AAAL28 

2UUCB. RESTORE. RTNCT 

9 Y99 

Y9 

Y9 


9 

% 

9 


BTXT.AQ+. 

• A8. 

•AANO.U 

cb.restqreo.hith.no. 

9 Y9 

Y9 

Y9 


9 

9 

9 


BTXT.AQH. 

• A8« 

•AAING. 

CHAIN.XXCTRL.CDS*MIS 

9 Y90 

Y9 

Y9 


9 

9 

9 


BTXT.AQO. 

. A8. 

•AANG.C 

TRL.AND.DATA.CDSALL• 

9 Y9+ 

Y9 

Y9 


9 

9 

9 


BTXT.AQ8. 

• A8. 

•AAFERS 

•MAY.BE.IN.ERROREITH 

9 Y9 

Y9 

Y9 


9 

9 

9 


BTXT.AJA* 

• A8 • 

•AA.ONE 

.TYPE.IS.INADEQUATE. 

9 Y8Q 

Y9 

Y9 


99Z 

9 

9 


BTXT.AJQ. 

• A8* 

.AAD.CH 

ANHEL.BUSY.FROM.THIS 

9 Y8Z 

Y9 

Y9 


99 

9 

9 


BTXT.AJJ. 

• A8. 

•AAM.DO 

ES.NOT.HAVE.DATA.FOR 

9 Y8Y 

Y9 

Y9 


99 

9 

9 


BTXT.AJQ. 

• A8. 

•AAE.AN 

Y.DEVICES.THAT.DO.NO 

9 Y8 

Y9 

Y9 


99 

9 

9 


BTXT*AKA. 

• A8. 

•AA1PTI 

ON.FOR.THE.PROCEDURE 

9 Y8Q 

Y9 

Y9 


999 

9 

9 


BTXT.AKH. 

• A8. 

•AA.TO. 

INSUFFICIENT.DATA.CD 

9 Y8Z 

Y9 

Y9 


99 

9 

9 


BTXT*AKA. 

• A8 . 

• AAV ICE 

•RDYDEVICE.NQT.OPERA 

9 Y8Y 

Y9 

Y9 


99 

9 

9 


BTXT.AKH. 

• A8 . 

•AA.SIO 

•AFTER.UCB.LOAD.ATTE 

9 Y80 

Y9 

Y9 


99- 

9 

9 
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CAL8AAA0DAPDJAAAAAPH 0AAAAAAGAAAA83700034 

QY0YYYY 9Y9QYYY9YY9R 8YYYYYY8YYY9 

299 999 9 999 99 99999999999 

CTRLAAAAAAAAAAAAAAAA A.CAW.XXXXXX83700035 

YYYYYYYYYYYYYYYY Y 

9999999999999999 9 

.CSW.XXXXXXXX.XXXXXX XX.EXPECTED.83700036 

TUAL.SNS.00.EXPECTED .SNS.XX.ACTU83700037 

RE* DATA.AT.ADDR.XXXX XX.FOR.ALTER83700038 

BLOCK.DATA.CHK.AND.N 0.FOLDING.US83700039 

SING.OR.MIXED.WITH.0 ATA.CDSMISS183700040 

DATA.CDS.MISSINGANY* RESTORED.BUF83700041 

ER.CUSTOMER.AND*HEX. CDS.MIXED.0R83700042 

IN.NUMBER.TI0.LOOP.R ECEIV ES.SOL 183700043 

•DEVICEDEVICE.XXXX.A SSIGNED.BY.D83700044 

•UCB.RESTOREIF.DESIR ED.T0.REST0R83700045 

T.HAVE.THE.DATACONSU LT.THE.DESCR83700046 

DEVICE.XXXX.UCB.NOT. RESTORED.DUE83700047 

SOR.WRONG.CTRL.DEFIN ITIONMAKE•DE83700048 

TIONAL.ERROR.ON.UCB. LOAD.SI0.SNS83700049 

MPT-.NOT.ACCEPTED.SN S.S10.AFTER.83700050 


DATE 

EC 


15N0V66 

125655 


ID F837-0 
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P/N 840541 I 
PAGE 12A ) 


BTXT.AKO.oA8.•AAUCB. LOAD.ATTEMPT.DID.NOT .RECEIVE.AVAILABLE.F R0M.DEVICE.N83700051 

9 Y8 Y9 Y9 

99 9 9 

BTXT.ALY..A8..AAO.BU FFERS.RESTOREDAAAAAA AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAA83700052 

9 Y89 Y9 Y9 YYYYYY YYYYYYYYYYYYYYYYYYYY YYYYYYYYYYYY 

99 9 9 999999 99999999999999999999 999999999999 

BTXT.AL~*« AS..AAAAAA AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAA.. •..••..•••••83700053 

9 Y8 Y8 Y9YYYY YYYYYYYYYYYYYYYYYYYY YYYYYYYYYYYYYYYYYY 

99 99 9 9999 99999999999999999999 999999999999999999 

BTXT.AM2..A2..AAAAAA AAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAA AAAAAA...•..83700054 

9 Y88 Y9 Y9YYYY Y9YYYYYYYYYYYYYYYYYY YYYYYYYYYYYYYYYYYYYY YYYYYY 

99 9 9 9999 9 999999999999999999 99999999999999999999 999999 

BRLD.AJ*•••AAAA AAANAAANAAPAAAPAAAPA ... .•••••••••••83700055 

9 YY Y9Y9 8YQ98YQZ8Y9Z8Y988Y9R 8Y989Y9 

99 99 999 999 99 99 99 99 9 

BEND..........AA•«.. ••.•.••..••...•••..• .••...••••••••••••.. «••••...•...83700056 

9 Y9 

9 

BOAT*.. . ..... •••••.•••••.83700057 

9 

CT RL. 000 E. 0001. .... •••••••••••••••••••• ..•••..83700058 

CTRL.000F.0001.. ... .... ••••••••••••83700059 

CTRL.0010.0001*•.••• .. •••••••••••••••••••• •••••••••••.83700060 

AN1. .F1F2. F3F4.F5F6. F7F8.F9F0.7B7C.61E2. E3E4...... •••83700061 

AN2..E5E6.E7E8.E950. 6B6C.D1D2.D3D4.D5D6. D7D8...... •••••••••••.83700062 

AN3..D960.5B5C.C1C2. C3C4.C5C6.C7C8.C94E. 4B4C................ •••••••••••.83700063 

AN4. .F1F2. F3F4.F5F6. F7F8.F9F0.7B7C.61E2. E3E4.. ........ •••••••••••.83700064 

AN5..E5E6.E7E8.E950. 6B6C.DID2.D3D4.D5D6. D7D8.....••••. 83700065 

AN6..D960.5B5C.C1C2. C3C4.C5C6.C7C8.C94E. 4B4C.. 83700066 

AN7 • .F1F2. F3F4.F5F6. F7F8.F9F0.7B7C.61E2. .. ..83700067 

AN8..E5E6. E7E8.E950. 6B6C.D1D2.D3D4.D5D6. D7D8.... •••83700068 

AN9..D960.5B5C.C1C2. C3C4.C5C6.C7C8.C94E. 4B4C... ••••.83700069 

AN10.F1F2.F3F4.F5F6. F7F8.F9F0.7B7C.61E2. E3E4....... ••••83700070 

AN11.E5E6.E7E8.E950. 6B6C.D1D2.D3D4.D5D6. D7DB...••••. •••••83700071 

AN12.D960.5B5C.CIC2. C3C4.C5C6.C7C8.C94E. ... ..83700072 

AN13.F1F2.F3F4.F5F6. F7F8.F9F0.7B7C.61E2. E3E4.... ••••••••••••83700073 

AN14.E5E6.E7E8.E950. 6B6C.D1D2.D3D4.D5D6* D7D8.... ••••••••••••83700074 

AN15•D960.5B5C.C1C2* C3C4.C5C6.C7C8.C94E. 4B4C................ ••••••••••••83700075 

HN1••F1F2.F3F4.F5F6. F7F8wF9F0.7E7D.61E2. E3E4................ •••••••..••.83700076 

HN2..E5E6. E7E8.E950. 6B4D.D1D2.D3D4.D5D6. D7D8................ ••••••••••••83700077 

HN3.*D960.5B5C.C1C2* ^C3C4.C5C6.C7C8.C94E« 4B5D..••••••........ ••••••••••••83700078 
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HN4..F1F2.F3F4.F5F6. 
HN5..E5E6.E7E8.E950. 
HN6..D960.5B5C.C1C2. 
HN7•.F1F2.F3F4.F5F6. 
HN8..E5E6.E7E8.E950. 
HN9..D960.585C.C1C2. 
HN10.F1F2.F3F4.F5F6. 
HNll.E5Efe.E7E8.E950. 
HN12.D96Q.585C.C1C2. 
HN13.F1F2.F3F4.F5F6. 
HN14.E5E6.E7E8.E950. 
HN15.0960.585C.C1C2. 
PN1..F1F2.F3F4.F5F6. 
PN2.•E5E6.4F7 A.feD7F. 
PN3..0960.E940.C1C2. 
PN4..6C5B.5C7B.507C. 
PN5..F5F6.F7F8.F9F0. 
PN6*.fe0TF.6B7E.D102. 
PN7..C1C2.C3C4.C5C6. 
PN8..507C.4C5E.5F7D. 
PN9..F9F0.E7E8.61E2. 
PN10.D1D2.D3D4.D5D6. 
PN11.C5C6.C7C8.C94E. 
PN12.5F7D.6F6E.F1F2. 
PN13.61E2.E3E4.E5E6. 
PN14.D50fe.D708.D960. 
PN15.C94E.4B5D.6C5B. 
QN1..F1F2.F3F4.F5F6. 
QN2..E56fe.feD7F.5B5C. 
QN3..D960.E940.C1C2. 
QN4..F1F2.F3F4.F5F6. 
QN5..E5Efe.4C5E.7B5C. 
QN6..D9feO.E94D.ClC2* 
QN7..F1F2.F3F4.F5F6. 

DATE 15NOV66 

EC 125655 


F7F8.F9F0.7E70.61E2. 
6B40.D1D2.D3D4.0506. 
C3C4.C5Cfe.C7C8.C94E. 
F7F8.F9F0.7E70.61E2. 
6B4D.D1D2.D3D4.D5D6. 
C3C4.C5Cfe.C7C8.C94E. 
F7F8.F9F0.7E70.61E2. 
6B4D.D1D2.0304.0506. 
C3C4.C5C6.C7C8.C94E. 
F7F8.F9F0.7E7D.61E2. 
feB4D.DlD2.D3D4.0506. 
C3C4.C5Cfe.C7C8.C94E. 
F7F8.F9F0.E7E8.61E2. 
feB7E.DlD2.D3D4.D5D6. 
C3C4.C5C6.C7C8.C94E. 
4C5E.5F7D.6F6E.F1F2. 
E7E8.61E2.E3E4.E5E6. 
D3D4.D5D6.D7D8.D960. 
C7C8.C94E.4B5D.6C5B. 
6F6E.F1F2.F3F4.F5F6. 
E3E4.E5E6.4F7A.6D7F. 
D7D8.D960.E94D.C1C2. 
4B5D.6C5B.5C7B.507C. 
F3F4.F5Ffe.F7F8.F9F0. 
4F7A.6D7F.6B7E.D1D2. 
E94D.C 1C2.C3C4.C 5C6. 
5C7B.507C.4C5E.5F7D. 
F7F8.F9F0.E7E8.61E2. 
6B7E.D1D2.D3D4.D5D6. 
C3C4.C5Cfe.C7C8.C94E. 
F7F8.F9F0.E7E8.61E2. 
6B7E.D1D2.D3D4.D5D6. 
C3C4.C5C6.C7C8.C94E. 
F7F8.F9F0.E7E8.61E2. 


E3E4 

D7D8 

4B50 

E3E4 

D7D8 

4B5D 


...83700079 
...83700080 
...83700081 
...83700082 
...83700083 
...83700084 
...83700085 
*••83700086 
...83700087 
...83700088 
...83700089 
...83700090 
...83700091 
**.83700092 
...83700093 
...83700094 
...83700095 
...83700096 
...03700097 
...83700098 
...83700099 
...83700100 
...83700101 
...83700102 
...83700103 
...83700104 
...83700105 
...83700106 
...83700107 
...83700108 
...83700109 
*..83700110 
...83700111 
...83700112 

ID 

PAGE 
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. 1403 CARRIAGE FUNCTION TEST 


1403 CARRIAGE FUNCTION TEST 
DESCRIPTION 


TABLE OF CONTENTS t 

PAGE 


1. PURPOSE. 1 

2. PREREQUISITES . 1 

3. USE PROCEDURE.. • 1 

4. PRINTOUTS . 2 

5* COMMENTS. 4 

6* APPENDIX. 5 


l* PURPOSE 


1.1 INTENT. 

CHANNEL 9 AND 12 TEST— ( RTN 162) WILL TEST THE ABILITY OF THE SENSE 
START I/O TO DETECT CHANNEL 9 AND 12 HOLES IN THE DIAGNOSTIC CARRIAGE 
TAPE* AND TO CHECK THAT CHANNEL 12 TURNS ON UNIT EXCEPTION, AND CHANNEL 
9 TURNS ON UNIT CHECK* A SKIP AND TWO SPACE 1 OPERATIONS WITH COMMAND 
j CHAINING IS USED TO DETERMINE TEST RESULTS ON THE PRINTER UNDER TEST. 

FORMS SPACE AND SKIP TEST— < RTN 3 ) WILL TEST THE FUNCTIONS OF THE 
CARRIAGE* 


2* PREREQUISITES 

2*1 PROGRAM REQUIREMENTS* A DM 1S REQUIRED TO RUN THIS PROGRAM. 
THE EXCLUSIVE CPU FLAG IS ON 
THE PROGRAM IS RELOCATABLE 

*************************** NOTE ***************************** 

♦ FOR UCS PRINTERS, THE UCS BUFFER SHOULD BE LOADED. * 

♦ TO LOAD THE UCS BUFFER, USE PROGRAM ID F837 * 

************************************************************** 


THIS TEST WILL BE BYPASSED FOR ANY 1403 WHICH HAS SELECTIVE TAPE 
LIST DEFINED IN THE DM UNIT DEFINITION TABLE. 


THE UNIT DEFINITION TABLE-UDT—ENTRY MUST BE PUNCHED AS FOLLOWS. 


♦ UNIT CODE * * * 

- * optional FEATURE DIGIT 1* OPTIONAL FEATURE DIGIT 2 * 

* * * * 


* UNIT *ZZ»BIT 0* BIT 1* BIT 2♦ BIT 3# BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8» HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 

♦- - —— -- *—*-—*-—-*--—*-*—-*——---* —~<—.-* 

* 1403 PRINTER*83»ASCII*SEL * *UNIV. * HI- * 120 * * 2821 * 

* OR * * *TAPE * *CHAR. *SPEED *PRINT * *2 CHNL * 

* 1404 PRINTER* * *LISTER* *BUFF. *PTR* *POS. * *SWITCH * 

* CONTINUOUS ********* * 

* FORMS *** * * * * * * * 


DATE 10JUN65 22JUN65 15JUL69 

EC 124255 124249 124265 


04NQV65 15MAR66 01JUN66 15N0V66 

125611 125632 125653 125655 


ID F838-* 
PAGE 1 
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2.2 EQUIPMENT REQUIREMENTS. 

INPUT DEVICE 

STORAGE SIZE — 4K PLUS STORAGE REQUIRED BY DM. 

I/O CHANNEL 
1403 PRINTER 
2821 CONTROL UNIT 

DIAGNOSTIC CARRIAGE TAPE. SEE 5.2 


3. USE PROCEDURE 

3.1 LOADING. STANDARD AS DESCRIBED IN THE USERS GUIDE. 

3.2 OPERATING. 

3.2.1 DIAGNOSTIC CARRIAGE TAPE MUST BE INSERTED 

3: 2 .1. SEC??SS D SENSE SE SwfTcl!ES CHES ° ESCRIBE0 ™ USERS GUIDE. 


READV SUTUS FR0M BEING: 




I SENSE I - 

I SECTION I BYTE 


1 S “* 1 function , 0R , AND 

j-1- _- I ROUTINE I BIT 

I 0 I OFF—PROCEED NORMALLY \~~~~ 

ON—LOOP ON CURRENT START I/O, TEST I/O { F838 I 0 

{_j_W ITH NO ERROR PRINTOUTS OR CHECKING I * j 

I 2 I OFF—PRQCEEO NORMALLY !~SFr77nN~!“ynnI 

I ON—LOOP ON CURRENT I/O COMMAND, OUTPUT ON J F038 1 2 

j I oS^; T ER OEiIcE! RR ° R PRINT ° UTS ° N C ‘ E * \ "TN 3 I 

j Ts j looped'on. * «| E Ktt? I 2Ii C0M "* H0 ' C0DE T ° BE | 

- I RTN 3 I 


fp TE 22JUN65 I5JUL65 04N0V65 * SHAR66 01JUN66 15N0V66 

EC 124255 124249 124265 12561 125632 125653 llsfsf 10 F ®38-* 

S PAGE 1* 
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- GOT UNEXPECTED UNIT CK WHILE TESTING CHAN 12- ERROR CONDITION 

- SNS ACT 81- SENSE INDICATES COMM REJ AND CHAN 9 

- NO CHAN 12 DETECTED- DID NOT DETECT CHAN 12 DUE TO COMM REJ* 


ERROR PRINTOUTS ROUTINE 03 


-DEVICE NOT OPERATIONAL-SET SS 0 TO LOOP ON SIO- SEE SENSE SWITCHES* 
-DEVICE / CHANNEL BUSY TOO LONG AFTER SIO- 
-NO CHANNEL END- 
-COMMAND REJECT- 

-INTRV REQUIRED- INTERVENTION REQUIRED 
-BUS OUT CHECK- 
—EQUIPMENT CHECK- 

—SKIP X FAILED- CHANNEL NUMBER WILL BE FILLED IN* 

-BUSY TOO LQNG- 

-NO DEVICE END- 

—UN IT BUSY AFTER DEVICE END- 

-NO CSW AFTER IMMEDIATE OPERATION- 

-DATA CHECK- 

-BUFFER CHECK- UCB PARITY CHECK 


DATE 10JUN65 22JUN65 15JUL65 04N0V&5 15MAR66 01JUN66 15N0V66 ID F838-* 
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4.3 PRINTOUTS ON DEVICE UNDER TEST 

WRITE SPACE I EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEE6EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / E 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EE 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEE 

WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEE 

WRITE SPACE 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEE 

WRITE SPACE 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEE 

WRITE SPACE 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEE 

WRITE SPACE 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEE 

WRITE SPACE 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEE 


WRITE SPACE 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEE 


WRITE SPACE 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEE 


WRITE SPACE 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEE 

IMMED SPACE l EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE /EEEEEEEEEEEEEEEEEEEEEEEEEE 

IMMED SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEE EEEEEEEEEEEEEEEEE 

IMMED SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

IMMED SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEE EEEE 

IMMED SPACE 2 EEEEEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 2 EEEEEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 2 EEEEEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 2 EEEEEEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 3 EEEEEEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 3 EEEEEE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 3 EE / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


IMMED SPACE 3 / EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


DATE 10JUN65 22JUN65 15JUL65 04N0V65 15MAR66 01JUN66 15N0V66 
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WRITE SKIP TO 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

CHANNEL 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 4 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 4 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
WRITE SKIP TO 5 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 5 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
WRITE SKIP TO 6 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 6 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 7 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 7 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 6 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 8 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 10 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 10 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

WRITE SKIP TO 11 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


DATE 10JUN65 22JUN65 15JUL65 04N0V65 15MAR66 Q1JUN66 15N0V66 
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CHANNEL 11 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
WRITE SKIP TO 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


CHANNEL 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


j IHHED SKIP TO 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 3 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO A EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 5 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 6 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

IMMED SKIP TO 7 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 

i 

IMMED SKIP TO 8 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
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IMMED SKIP TO 9 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 10 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 11 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 


IMMED SKIP TO 12 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
SPACE SUPPRESS OK XXXXXX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / 
WRITE SPACE l EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / E 

SPACE SUPPRESS OK XXXXXX EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EE 
WRITE SPACE 1 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE / EEE 

NOTE... XXXXXX IN ABOVE SAMPLE PRINTOUT IS NORMALLY OVERPRINTED. 

5. COMMENTS 

5.1 DETAILS ON SECTION FUNCTIONS. 

F838 — CHANNEL 9 AND 12 TEST RTN 1 AND 2 

THE SENSE CHANNEL 9 AND 12 ROUTINE PRINTS SET-UP 
INSTRUCTIONS ON THE C.E. OUTPUT DEVICE AND GOES INTO THE WAIT 
STATE TO ALLOW TIME TO EXECUTE THE INSTRUCTIONS. THE PRINTOUT 
SAYS TO RESTORE THE DIAGNOSTIC CARRIAGE TAPE TO CHANNEL l AND TO 
BE SURE THAT THE CHANNEL l BRUSH IS RESTING IN THE CHANNEL 1 
HOLE WHEN THE TEST IS STARTED. THIS SYNCHRONIZES THE CARRIAGE TAPE 
WITH THE PROGRAM. THE PROGRAM IS RESTARTED BY MAKING THE PRINTER READY 
AND PUSHING THE EXTERNAL INTERRUPT KEY. 

A SKIP TO CHANNEL 1 FOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE 
ARE ISSUED. AFTER THE FIRST OF THE TWO SPACE 1 COMMANOS IS EXECUTED A 
CHANNEL 9 HOLE SHOULD BE DETECTED ON THE CARRIAGE TAPE AND BREAK COMMAND 
CHAIN WITH UNIT CHECK INDICATED. 

A SKIP TO CHANNEL 4 FOLLOWED BY TWO SPACE 1 IMMEDIATE COMMANDS ARE 
ISSUED. AFTER THE FIRST OF THE TWO SPACE 1 COMMANDS IS EXECUTED A 
CHANNEL 12 HOLE SHOULD BE DETECTED ON THE CARRIAGE TAPE AND BREAK 
COMMAND CHAIN WITH UNIT EXCEPTION. 

F838 — FORMS SPACE AND SKIP TEST RTN 3 

THE PROGRAM TESTS SPACE, SKIP, SPACE SUPPRESS, AND IMMEDIATE 
OPERATIONS. A TABLE HAS BEEN SET UP IN STORAGE -CCTAB- WHICH 
DICTATES THE SEQUENCE OF OPERATIONS. THIS ORDER MAY BE CHANGED 
WITH REP —REPLACE— CARDS, OR MANUALLY AT RUN TIME. 

ALL SPACE OPERATIONS MAY BE CHECKED BY SIGHTING ALONG THE 
DIAGONAL SLASH LINE. IF IT IS STRAIGHT, NO ERROR OCCURED. 

SKIP OPERATIONS ARE CHECKED BY THE PROGRAM. A NINE OR TWELVE IS 
SENSED AFTER EACH SKIP. 

TO REPEAT A SPECIFIC TYPE OF OPERATION, ENTER THE COMMAND IN THE 
PROGRAM SECTION PREFACE BYTE 005. SEE CHART 6.1 . 

THE LETTER IS PLACED IN THE PRINT AREA TO PROVIDE A GUIDE FOR 
PRINT ALIGNMENT. IF ANOTHER CHARACTER IS DESIRED PUT THIS 
CHARACTER IN THE MVI INSTRUCTION AT ADDRESS -NOREST-. 

SUPPRESS PRINTING IS CHECKED BY X-ING OUT THE WORD -FAILED-, AND 
ADDING THE WORD -0K-. 
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5*2 CARRIAGE TAPE —r F838 


CCCCCCCCC 

i.l l ll — -„ ivjmmtt . —W—«M~—. - . ' .. ... .. . .. . . . . 


P/N 840212 
PAGE 5 



LENGTH 96 SPACES 


LINE NO -HOLE 

LINE NO.-HOLE 

LINE NO.-HOLE 

01 - 01 

33 - 05 

65 - 09 

02 - 09 

34 - 12 

66 - 12 

09 - 02 

41 - 06 

73 - 10 

10 - 09 

42 - 12 

74 - 09 

17 - 03 

49 - 07 

81 - 11 

18 - 09 

50 - 12 

82-09 

25 - 04 

57 - 08 

89 - 12 

26 - 12 

58-12 

90 - 09 


6* APPENDIX 

6.1 1403 COMMAND CODES* 

************************************************************************ 


* COMMAND CODE BITS HEX 

* FUNCTION 0123 4567 CODE 

* 

* NO OP 0000 0011 . . . 03 

* SENSE . . .. 0000 0100 . . . 04 

* TEST I/O.. . 0000 0000 . . . 00 

* PR SP SUP.. . 1000 0001 . . . 81 

* PR SP 1 . 0000 1001 . . . 09 

* PR SP 2 . . « ... . . . 0001 0001 . . . 11 

* PR SP 3 .. . 0001 1001 . . . 19 

* IMMEO SP1 . . .. 0000 1011 . . . OB 

* IMMED SPX. OOOX X011 ... — 

* IMMED SKIP 1. ••*•• 1 0 0 0 1 0 1 1 ... 8B 

* IMMED SKIP 2.1 001 0011 ... 9B 

* IMMED SKIP X... . 1 X X X X011 ... — 

* PR SKIP 1 .... 1 0 0 0 100 1 ... 89 

* PR SKIP 2 .. 1001 0001 ... 91 

* PR SKIP X .....1 X X X X001 ... — 

* I I I I I I 

* SKIP BIT—I I III I—WRITE BIT 

* I-1 I I 

* I I I-r-IMMEDIATE 

* SPACE— SKIP VALUE 8 4 2 1—I I 

* I-SENSE 


4 WHERE X HAKES UP THE TOTAL NUMBER OF LINES 

* SPACED OR SKIPPED 

* i NOTE...LOOPING ON ANY IMMEDIATE SKIP COMMAND 

* WILL PRODUCE NO CARRIAGE MOTION. NO INDICATION OF THIS WILL BE GIVEN 

* TO THE PROGRAM. J 

* 

************************************************************************ 
6.2 1403 SENSE BYTE 



************************************************************************ 

♦ ONE SENSE BYTE 

♦ BIT MEANING STATUS 

♦ 

4 0 COMMAND REJECT UNIT CHECK 

4 1 INTERVENTION REQUIRED t« ti 

4 2 BUS OUT CHECK 11 *» 

4 3 EQUIPMENT CHECK *« »» 

4 4 DATA CHECK 9 , »« 

4 5 BUFFER CHECK n *t 

4 6 NOT USED 

4 7 CHANNEL 9 SENSED UNIT CHECK 

*******************************************44444444444444444444444444444 
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r I 


8383 TITLE 

4444444444444444444444444444444444444444444444444444444444444444444444 

4 MODIFICATIONS * 

4 

4 REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS FOLLOWS... 
4 1. THIS PROGRAM NO LONGER RESTORES THE UCS BUFFER. USE PROGRAM 

4 ID F837 TO RESTORE THE UCS BUFFER. 

4 2. THE PROGRAM HAS BEEN MODIFIED TO INCLUDE TESTING OF THE 

4 CHANNEL 9 AND 12 LATCHES WHICH WAS PREVIOUSLY DONE ON THE 

4 NOW OBSOLETE PROGRAM ID F839. 

4 3. TESTING OF INVALID COMMANDS HAS BEEN REMOVED AND IS NOW BEING 

4 DONE IN PROGRAM ID F831 

4 4. BUFFER RESTORE FUNCTION HAS BEEN REMOVED AND IS NOW BEING 

4 DONE BY PROGRAM ID F837. 

4 E.C. PREREQUISITES 

4 MACHINE • • . 2821 MUST BE AT EC 125655 OR LATER 

4 PROGRAM • . . NONE 

* 

4444444444444444444444444444444444444444444444444444444444444444444444 
4 VERSION 2 4 

* EC 125632 THE PROGRAM HAS BEEN MODIFIED TO RESET BLOCK DATA * 

4 CHECK LATCH, ON UCS PRINTERS, DURING IN ITIALI2ATI0N4 

4 OF THE SECTION. 4 

4 

4 USE DESCRIPTION F8384 AT EC 125655, DATED NOV 15, 1966 OR LATER. 
4444444444444444444444444444444444444444444444444444444444444444444444 
44444444444444444444444444444444444444444444444444444444444444444444444 
XF8383 START 4096 

001000 USING 4,15 

4444444444444444444 4444444444444444444 

♦ SECTION PREFACE 44444444444444444444444444444444444 SECTION PREFACE 4 

4444444444444444444 4444444444444444444 


001000 

F8383000 

SECNO 

DC 

XL4'F8383000* 

PROGRAM,SECTION AND REVISION 

NOS. 

4 

001004 

00000000 

SNSW 

DC 

XL4'00• 

SECTION SENSE SWITCHES 


4 

001008 

0000 


DC 

XL2'00• 

jr 


4 

00100A 

0000 

ICM 

DC 

XL2'00' 

INTERRUPTION CONDITION MASK 


4 

00100C 

00 

SDMF 

DC 

XL1* 00 * 

SECTION DM FLAGS 


4 

00100D 

01 

NIOU 

DC 

XLl'Ol* 

NUMBER OF UNIT TABLE ENTRYS 


4 

00I00E 

CO 

FLAG1 

DC 

X 'CO' 

EXCLUSIVE CPU 


4 

00100F 

00 

FLAG2 

DC 

X'OO' 

I/O INT ARE ERR, EXT INT TO 

PROG 

4 

001010 

0104000000 

INPSW 

DC 

X *0104000000 * 

DISABLED, SPVSR STATE, NO PGM MASK 

4 

001015 

0011FC 


DC 

AL3(BEGXN) 

ADR OF 1ST ROUTINE PREFIX 


4 

001018 

0000000000000000 

EXOPSW 

DC 

XLB'O* 

SECTION OLD EXTERNAL PSW 


4 

001020 

0000000000000000 

SVOPSW 

DC 

XL8'00 • 

CLEAR ALL OLD PSWS 


4 

001028 

0000000000000000 

PGOPSW 

DC 

XL8'00 * 

PROGRAM OLD PSW 


4 

001030 

0000000000000000 

MCQPSW 

DC 

XL8'00' 

MACHINE CHECK OLD PSW 


4 

001038 

0000000000000000 

XOGPSW 

DC 

XLB'OO' 

I/O OLD PSW 


4- 

001040 

0000000000000000 

CSW 

DC 

XL8 *00' 

CHANNEL STATUS WORD 


4 

001048 

00000000 

CAW 

DC 

XL4'00' 

CAW 


4 

00104C 

000000000000000000 


DC 

XL12•00* 

RESERVED FOR DM USE 


4 

001055 

000000 







001058 

0004000000 

EXNPSW 

DC 

X*0004000000' 

EXTERNAL NEW PSW 


4 

00105D 

000000 

SRET 

DC 

XL3'0' 

ADR OF EXT INTRPT ROUTINE 


4 

001060 

0000000000000000 

SVNPSW 

DC 

XL8'00' 

SUPERVISOR NEW PSW 


4 

001068 

0000000000000000 

PGNPSW 

DC 

XL8'00 * 

PROGRAM NEW PSW 


4 

001070 

0000000000000000 

MCNPSW 

DC 

XL8 *00* 

MACHINE CHECK NEW PSW 


4 

001078 

01040000 

IONPSW 

DC 

XL4*01040000* 

I/O NEW PSW 


4 

00107C 

00000000 


DC 

XL4'0« 




001080 



DS 

96C 

96 BYTE REG DUMP AREA FOR DM 

USE 

4 

0010E0 

83 

UNIT1 

DC 

X'83' 

UNIT TYPE - 


4. 

0010E1 

00 

U10P 

DC 

X'OO* 

OPTIONAL FEATURES BYTE 


4 

0010E2 

8000 

U1ADDR 

DC 

X *8000* 

FLAGS AND CHAN/UNIT ADDRESS 


4 


44444444444444444444444444444444444444444444444444444444444444444444444 

4*44444444444444444444444444444444444444444444444444444444444444444444 

* 

♦ INITIALIZE ROUTINE 4 
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0010E4 
0010E8 
0010EC 
0010EE 
0010EF 
0010F0 
0010F2 
0010F4 
0010F6 
0010F7 
0010F8 
0010FA 
, 0010FC 
001100 
001104 
001106 
00110A 
00110E 
001112 
001116 
00111 A 
00111C 
0011ID 
00111 E 
001120 
001122 
001123 
001124 
001126 
001128 
001129 
00112A 
00112C 
00112E 
00112F 
001130 
001132 
001134 
001138 
00113 A 
001143 
00114A 
001153 
001155 
00115E 
001165 
00116 E 
001171 
00117 A 
001181 
00118 A 
001191 
00119 A 
00119C 
0011A5 
0011AC 
0011B5 
0011BC 
0011BC 
0011BE 
0011C2 
0011C6 
0011CA 
0011CE 
0011D2 
001106 


91 40 F 0E1 
47 80 F 0F4 


4 

444444444444444444444444444444444444444444444444444444444444444*444444 
INITAL TM U10P,X*40• CHECK FOR STL FEATURE 

Rf MDMC _ Tnnu ~ ~ ___ 


20 


DC 

15 


DC 

FB2C 


DC 

OA D6 


SVC 

OA DO 

ZOOM 

SVC 

AO 


DC 

01 


DC 

F2F0 


DC 

IB DD 


SR 

91 40 E 196 


TM 

47 80 F 106 


BC 

18 OF 


LR 

58 CO F OEO 

BLOOP 

L 

54 CO F C90 


N 

49 CO F 1BC 


CH 

47 80 F 134 


BC 

40 CO F 1BC 


STH 

OA DO 


SVC 

34 


DC 

IB 


DC 

F13 A 


DC 

OA DO 


SVC 

AO 


DC 

1C 


DC 

F155 


DC 

OA DO 


SVC 

AO 


DC 

2B 


DC 

F171 


DC 

OA DO 


SVC 

80 


DC 

IF 


DC 

F19C 


DC 

OA DA 


SVC 

92 00 F 98C 

GITOUT 

MVI 

07 FB 


BCR 

40C9D5E2C5D9E340E3 

TEL 1 

DC 

C5E2E340C3C1D9 

D9C9C1C7C540E3C1D7 


DC 

C56B 

40D9C5E2E3D6D9C540 

TEL2 

DC 

C3C1D9D9C9C1C7 

C540E3D640C3C8C1D5 


DC 

4B40F1 

40C3C8C5C3D240C6D6 

TEL 3 

DC 

D940C3C8C1D54B 

F140C8D6D3C56B40F1 


DC 

40D3C9D5C540D7 

C1E2E340C2D9E4E2C8 


DC 

C5E2 

40D4C1D2C540D7D9D5 

TEL4 

DC 

E3D940D9C4E86B 

40D7E4E2C840C9D5E3 


DC 

C5D9D9E4D7E3 



CNOP 

FFFF 

SAVDEV 

DC 

92 40 F CB4 

LOOP 

MVI 

41 AO F CBO 


LA 

91 80 F 004 

STRTIO 

TM 

47 80 F 1E2 


BC 

50 AD 0 048 


ST 

9D 00 C 000 


TIO 

47 70 F 1C6 


BC 


BC NONE,ZOOM 

SVC X'DO * 

DC X•20• 

DC X'15 * 

DC AL2(STL-BASE+REG) 

SVC X *D6• 

SVC X'DO' 

DC X *A0 ® 

DC X'Ol' 

DC AL2(BLANK-8ASE+REG) 

SR R13,R13 

TM 406(14),X*40* 

BC NONE,BLOOP 

LR R13,R15 

L R12,UNIT1 

N R12,MOD50 

CH R12,SAVOEV 

BC EQ,GITOUT 

STH R12 tSAVDEV 

SVC X'DO * 

DC X *34* 

DC X'IB' 

DC AL2ITEL1-BASE+REG) 

SVC X'DO* 

DC X'AO* 

DC X'lC* 

DC AL2CTEL2-BASE+REG) 

SVC X'DO' 

DC X'AO* 

DC X *2B * 

DC AL2CTEL3-BASE+REGI 

SVC X'DO' 

DC X'80* 

DC X•IF' 

DC AL2(TEL4-BASE+REG) 

SVC X'DA' 

MVI OUTSNS+9,X*00' 

BCR UNC,Ril 

DC C INSERT TEST CAR' 

DC C'RIAGE TAPE,' 

DC C RESTORE CARRIAG* 

DC C'E TO CHAN. 1« 

DC C' CHECK FOR CHAN.' 

DC Cl HOLE, 1 LINE P« 

DC CAST BRUSHES' 

DC C MAKE PRNTR RDY,' 

DC C PUSH INTERRUPT' 

DNOP 0,4 

DC X'FFFF' 

HVI CCW1+4,X*40 » 

LA R10.CCW1 

TM SNSW,X *80 * 

1C NONE,SQUARE 

ST R10,HCAW(R13) 

riO 0(R12) 

1C NCCO,STRTIO 


BR. IF NOT DEFINED IN UDT 
PRINT —STL—SECT ION BYPASSED- 

EXIT FROM ROUTINE 


SET UP FOR SUPERVISOR STATE 
CHECK FOR FORCED PROBLEM STATE » 
BR. IF NOT 

SET UP FOR PROBLEM STATE 
LOAD REG 12 FROM UNIT TABLE 
AND OUT BITS FOR MODEL 50 
COMPARE FOR SAME DEVICE ADDRESS 
BR. IF EQUAL 

PLACE CURRENT DEVICE ADDR IN AREA 
PRINT OPERATOR INSTRUCTIONS 
INSERT CARRIAGE TAPE 


RESTORE CARRIAGE TO 1 


CHECK POS OF BRUSHES 


MAKE PRINTER READY 


WAIT FOR INTERRUPT TO CONTINUE 
CLEAR SENSE 

RETURN VIA#REGISTER 11 


SET UP TO CHAIN COMMANDS 
SET UP CAW 

SEE IF SENSE SWITCH 0 STILL ON 

BR. IF SS 0 OFF 

SET UP CAW 

ISSUE TIO 

LOOP UNTIL CLEAR 
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1 1403 CARRIAGE 

1 

FUNCT JON TEST 





1 

! 00IIDA 

9C 

06 

c 

000 


SIO 

0(R12) 

ISSUE START 1-0 f 


| 001IDE 

47 

FO 

F 

1C6 


BC 

UNC ,STRTI0 

BR« TO TIO 


1 001IE2 

58 

90 

0 

198 

SQUARE 

L 

R9,WT«R13) 

LOAD WAIT FACTOR 


1 0011E6 

88 

90 

0 

005 


SRL 

R9,5 

ADJUST 


! 0011EA 

9D 

00 

C 

000 

TT 

TIO 

0(R12) 

ISSUE TEST I-Q 


f DO11EE 

46 

90 

F 

1EA 


BCT 

R9*TT 

LOOP UNTIL CLEAR 


| Q011F2 

92 

00 

F 

CB4 ' 


MVI 

CCW1+4 ,X*00 * 

RESTORE CCW TO NO CHAIN COMMAND 


0011F6 

47 

FO 

F 

5F4 

♦ 

* 

BC 

UNC * SI OS! 0 

BACK TO MAIN PROGRAM 


j 

! 

| 





* 

■ * 


/ 

1 

j 





* 

* 


ROUTINE 1 

- CHANNEL 9 TEST * 


i 

! 001IFA 





* I 







CNOP 

Of 4 



{ 0011FA 

07 00 



BCR 

OfO 



0011FC 

01 




BEGIN 

DC 

X*01* 



1 OOllFD 

000308 



DC 

AL3(BEGIN2-BASE) 



001200 

45 

BO 

F 

0E4 


BAL 

RllvINITAL 

BR. TO INITIALIZER ROUTINE 


j 001204 

58 

9E 

0 

198 


L 

R9fWTCR14) 

LOAD WAIT FACTOR 


001208 

88 

90 

0 

003 


SRL 

R9,3 

ADJUST 


l 00120C 

9D 

00 

C 

000 

TSTCLR 

TIO 

0(R12) 

CLEAR PENDING INTERRUPT 


j 001210 

47 

70 

F 

236 


BC 

NCCOfITRY 

LOOP UNTIL CLEAR 


001214 

92 

8B 

F 

440 

DO 9 

MVI 

GOSKP,X*8B 9 

INSURE SKIP TO CHAN 1 IN CCW 


( 001218 

92 

OF 

F 

BAS 


MVI 

SWITCH,X *0F 1 

SET UP SIO SWITCH 


00121C 

92 

CO 

F 

BA9 


MVI 

SWITCH+1,X *C0 * 


\ 001220 

92 

09 

F 

424 


MVI 

NSWCH,X*09 * 

ROUTINE SWITCH 


J 001224 

41 

AO 

F 

440 


LA 

RIO,GOSKP 

SET UP CAW 


001228 

50 

AD 

0 

048 


ST 

R10,HCAW(R13) 



i 00122C 

45 

60 

F 

5DC 


BAL 

R6 f SI01 

BR. TO SIO ROUTINE 


| 001230 

47 

FO 

F 

20C 


BC 

UNC,TSTCLR 

BR. TO START AGAIN 


i 001234 

OA 

D6 



END9 

SVC 

X *D6 * 

EXIT ROUTINE 


001236 

46 

90 

F 

20C 

ITRY 

BCT 

R9,TSTCLR 

LOOP UNTIL CLEAR OR TIME OUT 


[ 00123A 

47 

FO 

F 

214 


BC 

UNC,D09 

TRY AGAIN FOR CLEAR DEVICE 


00123E 

95 

01 

F 

982 

CKIT 

CLI 

SAVSNS,X*01* 

COMPARE FOR CHAN 9 IN SENSE 


001242 

47 

60 

F 

286 


BC 

UNEQ,DECIDE 

BR. IF NO UNIT CK CHAN 9 


! 001246 

91 

01 

D 

044 


TM 

HCSW+4CR13),X*01* 

TEST FOR UNIT EXCEPTION 


l 00124A 

47 

80 

F 

27A 


BC 

NONE,REWORK 

BR. IF NO UNIT EXCEPTION 


! 00124E 

OA 

DO 




SVC 

X *D0 * 


001250 

AO 





DC 

X 1 AO 1 



i 001251 

01 





DC 

X*01* 

• 


j 001252 

F2F0 




DC 

AL2(BLANK-BASE+REG) 



! 001254 

OA 

DO 




SVC 

X'DO* 



] 001256 

64 





DC 

X '64* 



001257 

33 





DC 

X*33* 



001258 

F3F1 




DC 

AL2(UNEXUE-BASE+REG) 



00125A 

OA 

DO 




SVC 

X •DO* 



00125C 

EO 





DC 

X*EO® 



00125D 

OB 





DC 

X *0B * 


t 

00125E 

F983 




DC 

AL2(OUTSNS-BASE+REG) 


! 

001260 

OA 

DO 



BACK9 

SVC 

X *D0 • 


j 

!■ 001262 

CO 




BK9 

DC 

X*CO* 



* 001263 

10 




BK91 

DC 

X*10* 


s 

| 001264 

F2F2 




DC 

AL2(BUTYFL-BA$E+REG) 



i 001266 

92 

CO 

F 

262 


MVI 

BK9,X *C0 * 

RESTORE MESSAGE PARAMETER 

j 00126 A 

92 

10 

F 

263 


MVI 

BK91,X , -10 V 

RESTORE MESSAGE PARAMETER > 

! 00126E 

91 

80 

F 

004 


TM 

SNSW,X *60 9 

TEST FOR LOOP SW 

j 001272 

47 

10 

F 

214 


BC 

ALL,D09 

BR. TO LOOP 

! 001276 

47 

FO 

F 

2BE 


BC 

UNC,CLR9 

EXIT ROUTINE 

| 00127A 

92 

04 

F 

262 

REWORK 

MVI 

BK9,X*04* 

SET UP MESSAGE PARAMETERS 

00127E 

92 

13 

F 

263 


MVI 

BK91,X*13 • 

SET UP MESSAGE PARAMETERS 


1 001282 

47 

FO 

F 

260 


BC 

UNC,BACK9 

GO PRINT OUT CHAN 9 OK 


001286 

91 

01 

F 

982 

DECIDE 

TM 

SAVSNS,X*01« 

SEE IF CHAN 9 IN SENSE 

00128A 

47 

10 

F 

2C6 


BC 

ALLtVARY9 

ALTER MESSAGE TO SAY—HAVE CHAN 9 


DATE 

10JUN65 


22JUN65 

15MAR66 15N0V66 
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00128E 

91 01 D 044 

DEC1 

TM 

HCSW+4CR13I»X*Ol» 

SEE IF UNIT EXCEPTION 

001292 

47 80 F 2A0 


BC 

NONE,BACK10 

BR. IF NO UNIT EXCEPTION 

001296 

’ 92 EO F 2A2 


MV! 

BK10»X®E0 9 

MODIFY MESSAGE PRINTOUT 

00129A 

OA DO 


SVC 

X *D0* 


00129C 

64 


DC 

X * 64 * 


00129D 

33 


DC 

X * 33 * 


001296 

F3F 1 


DC 

AL2(UNEXUE-BASE+REG) 


0012A0 

OA DO 

BACK10 

SVC 

X *D0* 


0012A2 

64 

BK10 

DC 

X * 64 * 


0012A3 

20 


DC 

X * 20* 


0012A4 

F2D0 


DC 

AL2«BLAB~8A$E+REG) 


0012A6 

OA DO 


SVC 

X *D0 * 


0012A8 

CO 


DC 

X*C0* 


0012A9 

OB 


DC 

X * OB * 


0012AA 

F983 


DC 

AL2(OUTSNS-BASE+REG) 


0012AC 

92 64 F 2A2 


MVI 

BK10,X*64• 


0012BO 

D2 01 F 2D1 F 305 


MVC 

BLAB+l(2),N0 

RESTORE CHAN 9 MESSAGE 

0012B6 

91 80 F 004 


TM 

SNSW,X *80 * 

TEST SS 0 FOR LOOP OPTION 

0012BA 

47 10 F 214 


BC 

ALL «D09 

BR. TO LOOP 

0012BE 

92 00 F 424 

CLR9 

MVI 

NSWCH,X *00• 

RESET ROUTINE SWITCH 

0012C2 

47 FO F 234 


BC 

UNC,END9 

BR. TO EXIT ROUTINE 

0012C6 

.02 01 F 2D1 F 2F0 

VARY9 

MVC 

BLAB+1(2),BLANK 

REMOVE N 0 FROM MESSAGE 

0012CC 

47 FO F 28E 


BC 

UNCtDECI 

BR. TO GET REST OF PRINTOUTS 

0012 DO. 

40D5D640C3C8C1D540 

BLAB 

DC 

C* NO CHAN 9 DETEC» 


0012D9 

F94QC4C5E3C5C3 





0012E0 

E3C5C440C9D540E2C5 


DC 

C *TED IN SENSE BYT* 


0012E9 

D5E2C540C2E8E3 





0012F0 

4040 

BLANK 

DC 

C* • 


0012F2 

40C3C8C1D540F940C4 

BUTYFL 

DC 

C* CHAN 9 DETECTED* 


0012FB 

C5E3C5C3E3C5C4 





001302 

40D602 

OK 

DC 

C* OK* 


001305 

D5D6 

NO 

* 

DC 

C *N0* 

1 

\ 



* 

*************************************************************,****♦♦$** 

♦ 



♦ 

♦ 

* 


ROUTINE 2 

- CHANNEL 12 TEST * 



■ # | 

**+*++*+*+**+***+*+**+++++*+++*++*++*++*+++++****++#+++++*++**+* 111 %*++# 

001308 



CNOP 

0,4 

f 

001308 

02 

BEGIN2 

DC 

X *02 * 

ROUTINE PREFIX 

001309 

000458 


DC 

AL3(BEGIN3-BASE) 

ROUTINE PREFIX 

00130C 

45 BO F 0.E4 


BAL 

Rll,INITAL 

BR. TO INITIALIZER ROUTINE 

001310 

9D 00 C 000 

BACKUP 

TIO 

0CR12) 

CLEAR PREVIOUS UNIT CHECK 

001314 

92 A3 F 440 

DO 12 

MVI 

GOSKP,X*A3* 

INSURE SKIP TO CHAN 4 IN CCW 

001318 

92 12 F 424 


MVI 

NSWCH,X*12* 

ROUTINE SWITCH 

00131C 

92 OF F BAS 


MVI 

SWITCH,X*0F* 

SET UP SIO SWITCH 

001320 

92 CO F BA9 


MVI 

SWITCH+l ,X *C0 * 


001324 

41 AO F 440 


LA 

RIO,GOSKP 

SET UP CAW 

001328 

50 AD 0 048 


ST 

R10,HCAW(R13) 

SET UP CAW 

00132C 

45 60 F 5DC 


BAL 

R6,$I01 

BR. TO SIO ROUTINE 

001330 

47 FO F 310 


BC 

UNC,BACKUP 

BR. TO TRY AGAIN 

001334 

OA D6 

END12 

SVC 

X *D6 • 

ROUTINE EXIT 

001336 

91 01 D 044 

GOTST 

TM 

HCSW+4IR13),X *01 * 

TEST FOR UNIT EXCEPTION 

00133A 

47 10 F 370 


BC 

ALL,1SGQOD 

BR. IF NO ERROR 

00133E 

91 40 F BA8 


TM 

SWITCH,X*40 * 

WAS THERE UNIT CHECK 

001342 

47 80 F 356 


BC 

N0NE,TEL1M 

BR. IF NO UNIT CHECK PREVIOUSLY 

001346 

92 CO F 358 

SAY1 

MVI 

TE,X*CO* 

MODIFY MESSAGE PRINTOUT 

00134A 

OA DO 


SVC 

X *00* 


00134C 

64 


DC 

X *64* 


00134D 

2D 


DC 

X*20' 


00134E 

F3C4 


DC 

AL2(UNEXUC-BASE+REG) 


001350 

OA DO 


SVC 

X *D0* 


001352 

EO 


DC 

X *E0* 


001353 

OB 


DC 

X*OB • 
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001354 

F983 


DC 

AL2(OUTSNS-BASE+REG) 



001356 

OA DO 

TEL1M 

SVC 

X'OO' 



001358 

44 

TE 

DC 

X *44 • 



001359 

14 


DC 

X • 14 • 



00135A 

F3B0 


DC 

AL2(BLAB1-BASE+REG) 



00135C 

92 44 F 358 


MVI 

TE »X'44• 

MODIFY MESSAGE PRINTOUT 


001360 

91 80 F 004 

SPHERE 

TM 

SNSVIyX *80 • 

TEST FOR SS 0 ON 


001364 

47 10 F 314 


BC 

ALL • DQ12 

BR. TO LOOP IF SS 0 ON 


001368 

92 00 F 424 

CLR12 

MVI 

NSWCH,X'OO * 

RESET ROUTINE SWITCH 


00136C 

47 FO F 334 


BC 

UNC yEND12 

EXIT 


001370 

91 40 F BAS 

ISGOOD 

TM 

SWITCH,X'40 • 

UNIT CHECK PREVIOUSLY 


001374 

47 80 F 394 


BC 

NONEyNOPROB 

BR. IF NO UNIT CK PREVIOUS 


001378 

92 CO F 396 


MVI 

NQPByX'CO * 

MODIFY MESSAGE 


00137C 

D2 01 F 437 F 2F0 


MVC 

L0VLY1+2C2)yBLANK 

INSURE ERROR MESSAGE 


001382 

OA 00 


SVC 

X'DO* 



001384 

AO 


DC 

X'AO' 



001385 

01 


DC 

X'Ol' 



001386 

F2F0 


DC 

AL2(BLANK-BASE+REG) 



001388 

OA DO 


SVC 

X'DO' 



00138A 

64 


DC 

X *64* 



00138B 

2D 


DC 

X '20' 



00138C 

F3C4 


DC 

AL2(UNEXUC-BASE+REG) 



00138E 

OA DO 


SVC 

X'DO* 



001390 

EO 


DC 

X'EO* 



001391 

OB 


DC 

X 'OB • 



001392 

F983 


DC 

AL2(0UTSNS-BA$E+REG) 



001394 

OA DO 

NOPROB 

SVC 

X 'DO' 



001396 

14 

NOPB 

DC 

X' 14 * 



001397 

14 


DC 

X' 14 * 



001398 

F425 


DC 

AL2(LOVLY-BASE+REG) 



00139A 

D2 02 F 436 F 302 


MVC 

LQVLY1+1(3)yOK 

INSURE CORRENT PRINTOUT 


0013AO 

92 14 F 396 


MVI 

N0PB,X'14' 

MODIFY MESSAGE PRINTOUT 


0013A4 

91 40 F BAS 


TM 

SWITCHyX *40• 



0013A8 

47 10 F 360 


BC 

ALL,SPHERE 

BR. TO SEE IF LOOP SW IS ON 


0013AC 

47 FO F 368 

j|| 

BC 

UNC yCLR12 

EXIT ROUTINE 


0013BO 

40D5D640C3C8C1D540 

BLAB1 

DC 

C* NO CHAN 12 DETE' 



0013B9 

F1F240C4C5E3C5 






0013C0 

C3E3C5C4 


DC 

C'CTED' 



0013C4 

40C7D6E340E4D5C5E7 

UNEXUC 

DC 

C* GOT UNEXPECTED • 



0013CD 

D7C5C3E3C5C440 






0013D4 

E4D5C9E340C3D240E6 


DC 

C'UNIT CK WHILE TE' 



0013DD 

C8C9D3C540E3C5 






0013E4 

E2E3C9D5C740C3C8C1 


DC 

C'STING CHAN 12* 



0013ED 

D540F1F2 






0013FI 

40C706E340E4D5C5E7 

UNEXUE 

DC 

C' GOT UNEXPECTED • 



0013FA 

D7C5C3E3C5C440 






001401 

E4D5C9E340C5E7C3C5 


DC 

C'UNIT EXCEPTION W« 



00140A 

D7E3C9D6D540E6 






001411 

C8C9D3C540E3C5E2E3 


DC 

CHILE TESTING CHA» 



00141A 

C9D5C740C3C8C1 






001421 

D540F9 


DC 

C'N 9* 



001424 

00 

NSWCH 

DC 

X'OO* 



001425 

40C3C8C10540FIF240 

LOVLY 

DC 

C CHAN 12 DETECTE' 



00142E 

C4C5E3C5C3E3C5 






001435 

C440D6D2 

LOVLYl 

DC 

CD OK* 



001440 

8B 001BAA 4000 0001 

GOSKP 

CCW 

X *8B'yPRINT yX *40 * y1 



001448 

OB Q01BAA 4000 0001 


CCW 

X'OB'yPRINTyX'40'yl 



001450 

08 001BAA 0000 0001 

* 

CCW 

X*OB*yPRINT,X'OO* yl 





4 

**********♦***♦*♦*♦♦«♦♦♦**♦♦♦♦**♦****♦*♦*♦«*♦*♦♦♦♦*******♦*♦*«♦*♦♦*♦*♦ 



* 


ROUTINE 3 - FORMS 

SPACE AND SKIP TEST 

4 



*********************************************************************** 

001458 



CNOP 

0,4 



DATE 
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001458 

03 






BEG1N3 

DC 

X' 03 * 

ROUTINE PREFIX 

001459 

OOFFFF 





DC 

X»OOFFFF• 

ROUTINE PREFIX 

00145C 

45 

BO 

F 

0E4 




BAL 

llyINITAL 

BR. TO INITIALIZE THE PROGRAM 

001460 

IB 

77 





T2B 

SR 

R7,R7 

CLEAR CONTROL COUNTER 

001462 

41 

50 

F 

C2C 




LA 

R5, PRINT+130 

RESET REG 5 SLASH POSITION 

001466 

IB 

44 





NEXT 

SR 

R4,R4 

CLEAR CONTROL CHARACTER 

001468 

91 

FF 

F 

005 



NEXT1 

TM 

SNSW+1,X'FF * 

CHECK FOR CONSTANT CCW - SS OPTION 

00146C 

47 

80 

F 

478 




BC 

NONE *NEXT2 


001470 

43 

40 

F 

005 




IC 

R4,SNSW+1 

GET CCW FROM SWITCHES 

001474 

47 

FO 

F 

47C 




BC 

UNC,NEXT3 

BYPASS NEXT CCW FETCH 

001478 

43 

47 

F 

B59 



NEXT2 

IC 

R4 »CCTAB(R7) 

GET NEXT CCW FROM TABLE 

00147C 

42 

40 

F 

CBO 



NEXT3 

STC 

R4,CCW1 

STORE INST IN CCW 

001480 

92 

40 

F 

BAA 




MVI 

PRINT,C' ' 

CLEAR THE PRINT AREA 

001484 . 

D2 

82 

F 

BAB 

F 

BAA 


MVC 

PRINT+1C131)* PRINT 

CLEAR THE PRINT AREA 

00148A 

94 

00 

F 

BA9 




NI 

SWITCH+1,X'00• 

CLEAR SWITCH 

00148 E 

91 

02 

F 

CBO 



TWRITE 

TM 

CCW1,X'02 * 

TEST FOR WRITE 

001492 

47 

10 

F 

4A0 




BC 

ALL,IMMED 

BR. IF AN IMMEDIATE COMMAND 

001496 

D2 

05 

F 

BAA 

F 

AFB 


MVC 

PRINT!6)yCWRITE 

MOVE 'WRITE' TO PRINT 

00149C 

47 

FO 

F 

4AA 




BC 

UNC,TSPACE 


0014AO 

D2 

05 

F 

BAA 

F 

ABE 

IMMED 

MVC 

PRINT(6),CIMMED 

MOVE 'IMMED' TO PRINT OUT 

0014A6 

96 

40 

F 

BA9 




01 

SWITCH+1,X'40 # 

SET UP IMMEDATE SPACE SWITCH 

0014AA 

91 

80 

F 

CBO 



TSPACE 

TM 

CCW1,X *80 * 

TEST SPACE 

0014AE 

47 

10 

F 

512 




BC 

ALL,SKIP 

BR. IF A SKIP COMMAND 

0014B2 

02 

05 

F 

BBO 

F 

BOl 


MVC 

PRINT+6C61yCSPACE 

MOVE 'SPACE' TO PRINT 

0014B8 

88 

40 

0 

003 




SRL 

R4,3 

SHIFT BITS RIGHT TO GET SPACE 

0014BC 

42 

40 

F 

BB7 




STC 

R4,PRINT+13 

NUMBER. STOR SPACE NO. IN PRINT 

0014C0 

96 

FO 

F 

BB7 




01 

PRINT+13,X *FO f 

AREA. OR IN -FO- TO PRINT OUT 

0014C4 

91 

02 

F 

CBO 




TM 

CC W1 ,X *02 • 

CHECK FOR IMMEADATE SPACE 

0014C8 

47 

80 

F 

4E8 




BC 

NONE,STOSP 

BR. IF A SPACE COMMAND 

0014CC 

l.B 

54 






SR 

R5,R4 

STOR CURRENT / POS IN REG 4 

0014CE 

41 

60 

F 

BC8 




LA 

R6, PRINT+30 


0014D2 

91 

04 

F 

0E1 




TM 

U10PyX'04* 

120 POSITION PRINTER 

0014D6 

47 

80 

F 

4DE 




BC 

NONE,BZ 

BR. IF NOT 

0014DA 

41 

60 

F 

BBC 




LA 

R6,PRINT+18 

CHECK SLASH COUNTER 

0014D.E 

19 

56 





BZ 

CR 

R5 ,R6 

SEE IF SLASH IN MESSAGE AREA. BR. NO 

0014E0 

47 

20 

F 

4FE 




BC 

HI,NOREST 

DO NOT RESET THE SLASH COUNTER 

0014E4 

47 

FO 

F 

4EE 




BC 

UNC,RESETS 


0014E8 

18 

04 





STOSP 

LR 

RQ,R4 

STORE SPACE COUNT 

0014EA 

47 

FO 

F 

4FE 




BC 

UNC,NOREST 

RESET ^LASH POSITION 

0014EE 

41 

50 

F 

C2C 



RESETS 

LA 

R5,PRINT+130 

0014F2 

91 

04 

F 

0E1 




TM 

U10P y X * 04 * 

CHECK IF 120 POS PRINTER 

0014F6 

47 

80 

F 

4FE 




BC 

NONE,NOREST 

BR. IF NOT 

0014FA 

41 

50 

F 

C20 




LA 

R5,PRINT+118 


0014FE 

92 

C5 

F 

BBC 



NOREST 

MVI 

PRINT+18,C'E' 

SET E TO PRINT 

001502 

02 

71 

F 

BBD 

F 

BBC 


MVC 

PRINT+19!114)yPRINT+18 MOVE E TO ALL LOCATIONS 

001508 

D2 

02 

5 

000 

F 

CAA 


MVC 

0(3,5)yCSLASH 

INSERT SLASH 

00150E 

47 

FO 

F 

55C 




BC 

UNC,SETCAW 


001512 

02 

07 

F 

BBO 

F 

AF3 

SKIP 

MVC 

PRINT+6(8),CSKIP 

MOVE 'SKIP • TO PRINT 

001518 

96 

80 

F 

BA9 




01 

SWITCH+1,X*80' 

SET UP SKIP SWITCH 

00151C 

88 

40 

0 

003 



ITEM 

SRL 

R4,3 

SHIFT BITS TO DETERMINE SKIP TO WHAT 

001520 

4B 

40 

F 

CA4 




SH 

R4,CX19 

SUBTRACT 19 

001524 

47 

20 

F 

542 




BC 

HI,GRTER 


001528 

4A 

40 

F 

CAO 




AH 

R4,CX9 


00152C 

42 

40 

F 

BBA 




STC 

R4,PRINT+16 

STORE SKIP TO NUMBER 

001530 

96 

FO 

F 

BBA 




01 

PRINT+16,X'F0* 

LOAD IN FO TO PRINT OUT 

001534 

92 

40 

F 

A66 




MVI 

CSKFAL+5,X # 40 * 


001538 

02 

00 

F 

A67 

F 

BBA 


MVC 

CSKFAL+6C1),PRINT+16 

PUT CHAR IN FAIL MESSAGE 

00153E 

47 

FO 

F 

4EE 




BC 

UNC,RESETS 


001542 

4B 

40 

F 

CAB 



GRTER 

SH 

R4,CX1 

SUBTRACT 1 FROM SKIP TO INFO 

001546 

42 

40 

F 

BBA 




STC 

R4,PRINT+16 

MOVE SKIP TO INFO TO PRINT 

00154A 

96 

FO 

F 

BBA 




0! 

PRINT+16,X *F0' ’ 

ADJUST FOR PRINTOUT 

00154E 

92 

FI 

F 

BB9 




MVI 

PRINT+15,X*P1* . 

MOVE HIGH ORDER DIGIT TO PRINT 

001552 

02 

01 

F 

A66 

F 

889 


MVC 

CSKFAL+SI2),PRINT+15 

PUT CHAR IN FAIL MESSAGE 

001558 

47 

FO 

F 

4EE 




BC 

UNCyRESETS 

RESET SLASH COUNTER 

00155C 

41 

40 

F 

CBO 



SETCAW 

LA 

R4,CCH1 

SET UP 

001560 

50 

40 

0 

048 




ST 

R4»HCAW(R13) 

CAW 

001564 

95 

01 

F 

CBO 




CLI 

CCW1*X'01* 

CHECK FOR SPACE SUPPRESS 

001568 

47 

60 

F 

576 




BC 

UNEQyBSIO 
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0Q156C 

96 

20 

F 

BA9 

01 

SWITCH+11X *20 * 

j 

001570 

D2 

18 

F 

BAA F 807 

MVC 

PRINTC25)tCSPSUP 

SPACE SUPPRESS TO PRINT 

001576 

45 

60 

F 

5D8 

BSIO BAL 

R6 v SIOBEG 

SIO 

00157A 

95 

01 

F 

CBO 

CLI 

CCW1,X*01* 

CHECK FOR SPACE SUPPRESS j 

00157E 

47 

80 

F 

590 

BC 

EQ,IMDATA 

1 

001582 

91 

02 

F 

CBO 

TM 

CCW1»X*02 * 

CHECK FOR IMMEDIATE SPACE 1 

001586 

47 

10 

F 

590 

BC 

ALLtlMDATA 

| 

00158A 

IB 

50 



SR 

R5,R0 

SUBTRACT SLASH COUNT 

00158C 

47 

FO 

F 

594 

BC 

UNC »LRED6 


001590 

5B 

50 

F 

C94 

IMDATA S 

R5,C1 

UP DATE SLASH COUNTER j 

001594 

41 

60 

F 

BC8 

LRE06 LA 

R6,PRINT+30 

SET UP FOR MAX 

001598 

91 

04 

F 

0E1 

TM 

U10P *X *04 * 

CHECK FOR 120 POSITION PRINTER j 

00159C 

47 

80 

F 

5A4 

BC 

NONEyDZ 

BR. IF NOT ! 

0015AO 

41 

60 

F 

BBC 

LA 

R6,PRINT+18 

i 

0015A4 

19 

56 



02 CR 

R5,R6 

CHECK TO SEE IF SLASH IS MAX 1 

0015A6 

47 

20 

F 

5BA 

BC 

HI,NOSUP 


0015AA 

41 

50 

F 

C2C 

LA 

R5»PRINT+130 

! 

0015AE 

91 

04 

F 

0E1 

TM 

U10P»X*04 * 

CHECK FOR 120 POS PRINTER j 

0015B2 

47 

80 

F 

5BA 

BC 

NONE,NOSUP 

j 

0015B6 

41 

50 

F 

C20 

LA 

R5,PRINT+118 

j 

0015BA 

91 

FF 

F 

005 

NOSUP TM 

SNSW+1,X*FF • 

CHECK FOR CONSTANT CCW 

0015BE 

47 

50 

F 

466 

BC 

ANYyNEXT 

BR. IF CONSOLE ENTERED COMMAND j 

0015C2 

91 

20 

F 

004 

TM 

SNSWyX *20 * 

TEST SENSE SWITCH 2 

0015C6 

47 

10 

F 

466 

BC 

ALL,NEXT 

BR. TO LOOP CURRENT SIO COMMAND 

0015CA 

5A 

70 

F 

C94 

A 

R7,C1 

UP DATE CONTROL TABLE 

0015CE 

55 

70 

F 

C98 

CL 

R7,C54 

PROGRAM FINISHED 

0015D2 

47 

40 

F 

466 

BC 

LOyNEXT 

NOT. FINISHED 

0015D6 

OA 

D6 



EXIT1 SVC 

X *06 • 

ROUTINE FINISHED 

0015D8 





CNOP 

* 

0,4 

PROGRAM ALIGN 






* 

*********************************************$*********************£*** 






* 

* 

***** sio 

ROUTINE ***** * 






*****iM****>M****************************************** ****««**#«*$***$ 

0015D8 

94 

00 

F 

BA8 

SIOBEG NI 

SWITCH,X'OO* 

RESET SWITCH 

0015DC 

92 

00 

F 

CC5 

SI01 MVI 

CCW3+5 ,X *00 * 

CLEAR SENSE DATA 

0015E0 

92 

00 

D 

044 

MVI 

HCSW+4IR13)tX , 00* 

CLEAR STATUS 

0015E4 

58 

9E 

0 

198 

L 

R9,WT CR14) 

LOAD WAIT FACTOR 

0015E8 

88 

90 

0 

003 • 

SRL 

R9»3 

ADJUST 

0015 EC 

91 

80 

F 

004 

TM 

SNSWyX*80 1 

TEST SENSE SWITCH 0 

0015F0 

47 

10 

F 

61E 

BC 

ALL,WHICH 

BR. TO LOOP SIO TIO 

0015F4 

9C 

00 

C 

000 

SIOSIO SIO 

0(R12) 

START I/O 

0015F8 

47 

10 

F 

62A 

BC 

CC3,SNOTOP 

NOT OPERATIONAL 

0015FC 

47 

20 

F 

640 

BC 

CC2,SBUSY 

DEVICE / CHANNEL BUSY 

001600 

47 

40 

F 

656 

BC 

CC1,SCSWST 

CSW STORED 

001604 

91 

40 

F 

BA9 

TM 

SWITCH+l,X *40 * 

CHECK FOR IMMEDATE OPERATION 

001608 

47 

80 

F 

65E 

BC 

NONE »TIOBEG 

GO TO WAIT FOR I/O SIGNAL 

00160C 

91 

FF 

F 

BA8 

TM 

SWITCH,X*FF* 

CHECK FOR SECOND TIME IN LOOP 

001610 

47 

50 

F 

65E 

BC 

ANYyTIOBEG 

BR. IF SECOND TIME THROUGH 

001614 

OA 

DO 



SVC 

X *D0* 

PRINT - NO CSW AFTER IMMEDATE 

001616 

4021 



DC 

XL2 *4021 * 

OPERATION 

001618 

FAC4 



DC 

AL2(N0CSW-BASE+RE6I 


00161A 

47 

FO 

F 

65E 

BC 

UNCyTIOBEG 

SIO OK 

00161E 

91 

IB 

F 

424 

WHICH TM 

NSWCHyX'lB* 

SEE IF FROM RTN 1 OR 2 

001622 

47 

70 

F 

1C6 

BC 

MIXED,STRTIO 

BR. TO LOOP 

001626 

47 

FO 

F 

1BE 

BC 

UNC,LOOP 







****** 








* SIO 

NOT OPERATIONAL ROUTINE 






****** 



00162A 

OA 

DO 



SNOTOP SVC 

X •DO* 

PRINT-DEVICE NOT OPERATIONAL 

00162C 

AO 




DC 

X*AO« 


00162D 

01 




DC 

X*01* 


0Q162E 

F2F0 



DC 

AL2(BLANK~BASE+REG) 


001630 

OA 

DO 



SVC 

X *D0* 


001632 

4430 



DC 

XL2 *4430* 


DATE 

10JUN65 


22JUN65 

15MAR66 15N0V66 


ID F838-3 

EC 

124255 


124249 

125632 125653 


PAGE 4 


3 O O 0 3 0 3 0 0 0 0 0 0 0 0 0 



IBM MAINTENANCE DIAGNOSTIC PROGRAM 

1403 CARRIAGE FUNCTION TEST 


P/N 340213 
PAGE 4A 


001634 

F990 



DC 

AL2(CNOTOP—BASE+RE61 



001636 

91 80 

F 

004 

TM 

SNSW.X'BO 1 

TEST FOR SENSE 

SWITCH 0 TO LOOP 

0016 3 A 

47 10 

F 

1BE 

BC 

ALL,LOOP 

BR* TO LOOP IF 

SS 0 IS ON 

00163E 

07 F6 



BCR 

UNC,R6 







******* 








* SIO 

BUSY ROUTINE 







******* 



"3 ■ 

001640 

46 90 

F 

5F4 

SBUSY BCT 

R9,SIOSIO 

BUSY TOO LONG 

' % 

001644 

OA DO 



SVC 

X *D0 * 


%, 

001646 

AO 



DC 

X * AO * 


% 

001647 

01 



DC 

X»01* 



001648 

F2F0 



DC 

AL2(BLANK~BA$E+REG) 



00164A 

OA DO 



SVC 

X 'DO' 

PRINT-BUSY TOO 

LONG 

00164C 

4429 



DC 

XL2 *4429* 

AFTER SIO 


00164E 

F9C0 



DC 

AL2(CSBUSY-BASE+REGH 



001650 

9D 00 

C 

000 

TIO 

0CR12) 



001654 

07 F6 



BCR 

UNC,R6 







******* 








* SIO 

CSW STORED ROUTINE 







******* 




001656 

91 CO 

F 

BA9 

SCSWST TM 

SWITCH+1,X *C0• 

CHECK FOR IMMEDATE COMMAND | 

00165A 

47 50 

F 

68E 

BC 

* 

* 

ANY,TCSWST 




♦ 

********************************************************************* 1 a 
* 


♦ TIO ROUTINE 







* 

********************************************************************** 1 

00165E 

91 

60 

F 

BA8 

TIOBEG 

TM 

SWITCH,X«60 t 

CHECK FOR SENSE COMMAND 

001662 

47 

50 

F 

82C 


BC 

ANY»TIOSEN 


001666 

58 

9E 

0 

198 


L 

R9* WT(R14) 

LOAD WAIT FACTOR 

00166A 

88 

90 

0 

003 


SRL 

R9,3 

ADJUST 

00166E 

9D 

00 

C 

000 

TIOTIO 

TIO 

0(R12) 

TEST I/O 

001672 

47 

10 

F 

62A 


BC 

CC3,SNOTOP 

CHECK NOT OPER 

001676 

47 

20 

F 

682 


BC 

CC2,TBUSY 

CHECK FOR BUSY 

00167 A 

47 

40 

F 

68E 


BC 

CC1,TCSWST 

CHECK CSW STORED 

00167E 

47 

80 

F 

6EE 


BC 

CC0,TDVEND 

CHECK FOR ERRORS 






******* 








* 

TIO 

TBUSY 







******* 



001682 

46 

90 

F 

66E 

TBUSY 

BCT 

R9,TIOTIO 


001686 

OA 

DO 




SVC 

X *D0* 

PRINT-BUSY TOO LONG 

001688 

4410 




DC 

XL2 *4410• 

AFTER TIO 

0016 8 A 

FA81 




DC 

AL2(CTBUSY-BASE+REG) 


00168C 

07 

F6 



****** 

BCR 

UNC,R6 

BACK TO PROGRAM 






* 

****** 

TIO 

CSW STORED ROUTINE 


00168 E 

91 

02 

D 

044 

TCSWST 

TM 

HCSW+4IR13),X *02 * 

TEST FOR UNIT CHECK 

001692 

47 

80 

F 

69 E 


BC 

NONE,TCSW 

BR. IF NO UNIT CHECK 

001696 

96 

40 

F 

BA8 


01 

SWITCH,X«40« 

SET UNIT CHECK SWITCH 

00169A 

47 

FO 

F 

6FA 


BC 

UNC,MISSDE 


00169E 

91 

IB 

F 

424 

TCSW 

TM 

NSWCH,X•IB• 

TEST IF FROM RTN 9 OR 12 

0016A2 

47 

70 

F 

6EE 


BC 

MIXED,TDVEND 

BR. IF FROM RTN 9 OR 12 

0016A6 

91 

80 

F 

BA8 


TM 

SWITCH,X*80 # 

CHECK FOR FIRST TIME THRU 

0016AA 

47 

10 

F 

6EE 


BC 

ALL »TDVEND 

CHECK FOR DEVICE END 

0016AE 

96 

80 

F 

BA8 


01 

SWITCH,X*80* 

SET SWITCH 

0016B2 

91 

08 

D 

044 


TM 

HCSW+4CR13),X *08• 

TEST FOR CHANNEL END 

0016B6 

47 

10 

F 

6D6 


BC 

ALL,CECDE 

; 

0016BA 

D2 

07 

F 

9EA D 040 


MVC 

CSCSW(8),HCSW(R13) 

SAVE CSW 

0016C0 

OA 

DO 




SVC 

X *00* 


0016C2 

AO 





DC 

X*A0* 

/ 

0016C3 

01 





DC 

X«01* 


0016C4 

F2F0 




DC 

AL2(BLANK-BASE+REG} . 


0016C6 

OA 

DO 




SVC 

X *D0 * 

PRINT-NO CHANNEL END 

0016C8 

440 F 




DC 

XL2*440F* 
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0016CA 

FA11 





DC 

A,L2 (CNCE-BASE+REG) 


0016CC 

D2 

07 

D 

040 

F 

9EA 

MVC 

HCSWt 8 ,R13),CSCSW 

RESTORE CSW 

0016D2 

47 

FO 

F 

6EE 



BC 

UNC tTDVEND 

. * 

0016D6 

91 

04 

D 

044 



CECDE TM 

HCSW+41R13),X®04®. 

TEST FOR DEVICE END 

0016DA 

47 

80 

F 

66E 



BC 

NONEtTIOTIO 


0016DE 

OA 

DO 





SVC 

X • DO • 


0016E0 

AO 






DC 

X • AO * 


0016E1 

01 






DC 

X®01® 


0016E2 

F2F0 





DC 

AL2(BLANK-BASE+REG) 


0016E4 

OA 

DO 





SVC 

X ®D0 * 

PRINT-DEVICE END 

0016E6 

440 F 





DC 

XL2 *440F 1 


0016E8 

FA71 





DC 

AL2(CDEERR-BASE+REG) 


0016EA 

47 

FO 

F 

66E 



BC 

UNC fTIOTI0 


0016EE 

91 

02 

D 

044 



TDVEND TM 

HCSW+4CR13),X*02• 

TEST FOR UNIT CHECK 

0016F2 

47 

80 

F 

706 



BC 

NONE »TDVE 

BR. IF NO UNIT CHECK 

0016F6 

96 

40 

F 

BA8 



01 . 

SWITCH,X®40® 

SET UNIT CHECK SWITCH 

0016FA 

91 

IB 

F 

424 



MISSDE TM 

NSWCHvX'lB 1 

SEE IF FROM RTN 9 OR 12 

0016FE 

47 

70 

F 

8E2 



BC 

MIXED,DOSNS 

GO ISSUE SENSE 

001702 

47 

FO 

F 

764 



BC 

UNC,TIOOK 

GO ON IF NOT 

001706 

02 

01 

F 

98C 

F 

98E 

TDVE MVC 

0UTSNS+9(2J,XX 

CLEAR SENSE PRINTOUT 

00170C 

92 

00 

F 

982 



MVI 

SAVSNS,X *00 * 

CLEAR SENSE SAVE AREA 

001710 

91 

04 

D 

044 



TM 

HCSW+4IR13),X*04® 

TEST FOR DEVICE END 

001714 

47 

10 

F 

734 



BC 

ALL,DEDONE 

BR. IF RECEIVED DEVICE END 

001718 

46 

90 

F 

66E 



BCT 

R9,TI0TI0 


00171C 

D2 

07 

F 

9EA 

D 

040 

, NOGOT MVC 

CSCSWC8),HCSWCR13) 

SAVE CSW 

001722 

OA 

00 





SVC 

X 'DO ' 


001724 

AO 






DC 

X 'AO • 


001725 

01 






DC 

X'Ol* . 


001726 

F2F0 





DC 

AL2(BLANK-BASE+REG) 


001728 

OA 

DO 





SVC 

X 'DO' 

PRINT-NO DEVICE END 

00172A 

440 F 





DC 

XL2 ®440F * 


O0172C 

FA91 





DC 

AL2(CNDEND-BASE+REG) 


Q0172E 

D2 

07 

D 

040 

F 

9EA 

MVC 

HCSWt 8,R13),CSCSW 

RESTORE CSW 

001734 

91 

40 

F 

BA8 



DEDONE TM 

SWITCH,X'40* 

TEST TO SKIP BUSY CHECK 

001738 

47 

10 

F 

764 



BC 

ALL,TIOOK 

BR. IF SWITCH ON 

00173C 

91 

09 

F 

424 



DEBUSY TM 

. NSWCH,X*09*, 


001740 

47 

10 

F 

286 



BC 

ALL,DECIDE 

’ BR. IF FROM RTN 1 

001744 

91 

10 

D 

044 



TM 

HCSW+4(R13)*X®10® 

TEST FOR BUSY 

001748 

47 

00 

F 

764 



'• BC 

NONE,TIOOK 

BR. IF NOT BUSY 

00174C 

D2 

07 

F 

9EA 

0 

040 

MVC 

CSCSWC85 ,-HCSW(R13) 

SAVE CSW 

001752 

OA 

DO 





SVC 

X 'DO • 


001754 

AO 






DC 

X'AO* . 


001755 

01 






DC 

X'Ol' 


001756 

F2F0 





DC . 

AL2 (BLANK-BASE+REG) 


001758 

OA 

DO 





SVC 

X 'DO' 

PRINT UNIT BUSY AFTER DEVICE END 

00175A 

441C 





DC 

XL2'441C 9 


00175C 

FAA1 





DC 

AL2(CDBUSY-BASE+REG) 


00175E 

D2 

07 

D 

040 

F 

9EA 

MVC 

HCSW(8,R13) 9 CSCSW 

RESTORE CSW 

001764 

91 

40 

F 

BA8 



TIOOK TM 

SWITCH,X'40« 

TEST UNIT CHECK SWITCH 

001768 

47 

80 

F 

788 



BC 

NONE,SKI PI 

, ■ 

00176C 

41 

40 

F 

CCO 



LA 

R4,CCW3 


001770 

50 

4B 

0 

048 



ST 

R4,HCAW(R13) 


001774 

91 

09 

F 

424 



TM 

NSWCH,X*09' 

TEST IF FROM RTN 1 

001778 

47 

10 

F 

23E 



BC 

ALL ,CKIT 

BR. TO CHECK IF FROM RTN 1 

00177C 

91 

12 

F 

424 



TM 

NSWCH,X®12* 

TEST IF FROM RTN 2 

001780 

47 

10 

F 

336 



BC 

ALL,60TST 

GO TEST FOR UNIT EXCEPTION 

001784 

47 

FO 

F 

5F4 



BC 

UNC,S10SI0 


001788 

91 

12 

F 

424 



SKIP1 TM 

NSWCH,X'12* 

TEST IF FROM RTN 2 

00178C 

47 

10 

F 

336 



BC 

ALL,GGTST 

GO TEST FOR UNIT EXCEPTION 

001790 

91 

04 

F 

BAS 



TM 

SWITCH,X'04* 


001794 

47 

80 

F 

7A4 



BG 

NONE,SKIP2 

NO NINE HOLE 

001798 

OA 

DO 





SVC 

X'DO' 


00179A 

AO 






DC 

X'AO' 


00179B 

01 






DC 

X'Ol® 


00179C 

F2F0 





DC 

AL2CBLANK-BASE+REGI 


00179E 

OA 

DO 





SVC 

X'DO® 

PRINT SKIP FAILED 

0017 AO 

440 F 





DC 

X *440F• 


0017A2 

FA61 





DC 

AL2CC$KFAl-BA$E+REG) 
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0017A4 

91 

80 

F 

BA9 


SKIP2 

TM 

SWITCH+1»X *80• 

CHECK FOR SKIP FLAG j 

0017A8 

47 

80 

F 

7D6 



BC 

NONE,SPSUP 

GO TO SPACE SUPPRESS 1 

0017 AC 

95 

A1 

F 

CBO 



CLI 

CCW1*X ®A1 • 

CHECK FOR TEST HOLE j 

0017 BO 

47 

40 

F 

7BC 



BC 

LO,NITM 

' 1 

0017B4 

95 

D1 

F 

CBO 



CLI 

CCW1*,X ®D1 * 

■ ! 

0017B8 

47 

40 

F 

7C4 



BC 

LO,TWTM 


0017BC 

96 

04 

F 

BA8 


NITM 

01 

SWITCH,X ®04 ® 

SET NINE SWITCH j 

0017CO 

47 

FO 

F 

7C8 



BC 

UNC,FTE 

■ 

0017C4 

96 

08 

F 

BA8 


TWTM 

01 

SWITCH,X®08® 

SET TWELVE HOLE SWITCH 

0017C8 

91 

02 

F 

CBO 


FTE 

TM 

CCW1»X *02 • 

CHECK FOR IMMEDIATE OP 

0017CC 

47 

10 

F, 

7D6 



BC 

ALL,SPSUP 

GO TO SPACE SUPPRESS 

0017 DO 

D2 

OD 

F 

BAA 

F AE5 


MVC 

PRINT(14),CCHAN 


0017D6 

95 

01 

F 

CBO 


SPSUP 

CLI 

CCW1,X'01' 

CHECK FOR SPACE SUPPRESS 

0017DA 

47 

60 

F 

7E4 


* 

BC 

UNEQ,SPACE 

GO TO IMMEDIATE SPACE CHECK 

0017DE 

D2 

09 

F 

BB9 

F B21 


MVC 

PRINT+15110) ,COKXX 

MASK OUT FAILED i 

0017E4 

91 

EO 

F 

BA9 


SPACE 

TM 

SWITCH+1,X'EO® 

CHECK FOR SPACE IMMEDIATE j 

0017E8 

47 

80 

F 

80E 



BC 

NONE,TSTCK 


0017EC 

94 

00 

F 

BA9 



NI 

SWITCH+1,X *00 * 

CLEAR SWITCH 

0017F0 

94 

OF 

F 

BA8 



NI 

SWITCH,X'OF® 

RESET SWITCHES 

0017F4 

91 

FE 

F 

CC5 



TM 

CCW3+5 ,X *FE * 

SEE IF ANY SENSE INFO 

0017F8 

47 

80 

F 

802 



BC 

N0NE,BYBY1 


0017FC 

OA 

DO 





SVC 

X'DO' 


0017FE 

CO 






DC 

X'CO® 


0017 FF 

01 






DC 

X'Ol 9 


001800 

F2F0 





DC 

AL2(BLANK-BASE+REG) 


001802 

41 

40 

F 

CB8 


BYBY1 

LA 

R4,CCW2 

SET UP CAW 6 

001806 

50 

4D 

0 

048 



ST 

R4,HCAW(R13) 


00180A 

47 

FO 

F 

5DC 



BC 

UNC,SI01 

BR. TO SIO 

00180E 

91 

08 

F 

BA8 


TSTCK 

TM . 

SWITCH,X®08* 

CHECK FOR TWELVE HOLE SWITCH 

001812 

47 

80 

F 

8D2 



BC 

NONE,CHANOF 

GO PRINT BLANK 

001816 

91 

01 

D 

044 



TM 

HCSW+4(R13),X ®01 9 

TEST FOR UNIT EXCEPTION 1 

00181A 

47 

10 

F 

8D2 



BC 

ALL,CHANOF 

• 

00181E 

OA 

DO 





SVC 

X'DO* 

' 

001820 

AO 






DC 

X'AO® 

| 

001821 

01 






DC 

X'Ol* 

I 

001822 

F2F0 





DC 

AL2(BLANK-BASE+REG) 

I 

001824 

OA 

DO 





SVC 

X'DO® 

PRINT SKIP FAILED j 

001826 

440 F 





DC 

X ®440F * 

| 

001828 

FA61 





DC 

AL2ICSKFAL-BASE+REG1 

f 

00182A 

07 

F6 




SIOFIN 

* 

BCR 

UNC,R6 

BRANCH BACK TO MAIN PROGRAM j 

I 







* ! 

********************************************************************** 1 







* • 


TIO SENSE 

ROUTINE | 







*************«**************«**$*«4***#***************«****«$«4$«***** 

00182C 

58 

9E 

0 

198 


TIOSEN 

L 

R9,WT1R14) 

LOAD WAIT FACTOR j 

001830 

88 

90 

0 

004 



SRL 

R9,4 

ADJUST j 

001834 

9D 

00 

C 

000 


TS 

TIO 

0(R12) 

TEST 1-0 | 

001838 

47 

80 

F 

840 



BC 

CCO,BILLF 

BR. IF CLEAR 

00183C 

46 

90 

F 

834 



BCT 

R9,TS 


001840 

91 

FE 

F 

CCS 


BILLF 

TM 

CCW3+5,3C*FE* 

TEST FOR ANY SENSE INFO 

001844 

47 

50 

F 

85A 



BC 

ANY,HDR 

GO PRINT HEADER IF ANY SENSE ; 

001848 

91 

04 

F 

BAB 



TM 

SWITCH,X*04 * 

IS CHAN 9 EXPECTED ! 

00184C 

47 

80 

F 

788 



BC 

NONE,SKI PI 

BR. IF NO CHAN 9 EXPECTED 1 

001850 

91 

01 

F 

CCS 



TM 

CCW3+5,X *01 • 

IS CHAN 9 IN SENSE BYTE 

001854 

47 

80 

F 

85A 



BC 

NONE,HDR 

BR. IF NO CHAN 9 EXPECTED 

001858 

07 

F6 





BCR 

UNC,R6 

RETURN VIA REG 6 

0018 5 A 

OA 

DO 




HDR 

SVC 

X'DO® 


00185C 

64 






DC 

X '64® 


00185D 

01 






DC 

X®01® 


00185E 

F2F0 





DC 

AL2(BLANK-BASE+REG) 


001860 

91 

80 

F 

CCS 


TSAVBL 

TM 

CCW3+5tX®80® 


001864 

47 

80 

F 

86E 



BC 

NONE,1NTREQ 


001868 

OA 

DO 





SVC 

X'DO® 

PRINT-COMMAND REJECT j 

00186A 

EOOF 



» 


DC 

XL2 ®EOOF ® 
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00186C 

FA21 






DC 

AL2(CC0MRJ-BASE+REG) 


00186E 

91 40 

F 

CC5 



INTREQ 

TM , 

CCW3+5 ,X '40• 

s 

001872 

47 80 

F 

87C 




BC 

NONE *BUSOC 


001876 

OA DO 






SVC 

X • D 0 • 

PRI NT-1NT REQUIRED 

001878 

EOOF 






DC 

XL2'EOOF * 


00187A 

FA31 






DC 

AL2(CINTRQ-BASE+REG) 


00187C 

91 20 

F 

CCS 



BUSOC 

TM 

CCW3+5 *X *20 * 

* | 

001880 

47 80 

F 

88A 




BC 

NONE,EQCK 

‘ 

001884 

OA DO 






SVC 

X 'DO • 

PRINT-BUS OUT CHECK 

001886 

EOOF 






DC 

XL2 'EOOF* 


001888 

FA41 






DC 

AL2(CBUSOC-BASE*REG) 


00188A 

91 10 

F 

CCS 



EQCK 

TM 

CCW3+5 *X•10• 


00188E 

47 80 

F 

898 




BC 

NONE,DTACK 

BR. IF NO DATA CHECK 

001892 

OA DO 






SVC 

X 'DO • 

PRINT-EQUIPMENT CHECK 

001894 

E010 






DC 

XL2 *EOl0 * 


001896 

FA51 






DC 

AL2(CEQPCK-BASE+REG) 


001898 

91 08 

F 

CCS 



DTACK 

TM 

CCW3+5,X*08• 

TEST FOR DATA CHECK | 

00189C 

47 80 

F 

8A6 




BC 

NONE,BUFCK 

BR* IF NO DATA CHECK 

0018 AO 

OA DO 






SVC 

X 'DO • 


0018A2 

EO 






DC 

X'EO* 


0018A3 

OB 






DC 

X * OB' 


0018A4 

FB41 





« i 

DC 

AL2(DATQUT-BASE+REG) 


0018A6 

91 04 

F 

CCS 



BUFCK 

TM 

CCW3+5,X'04• 

TEST FOR BUFFER CHECK 

0018AA 

47 80 

F 

884 




BC 

NONE,SENOK 

BR. IF NO BUFFER CHECK 

0018AE 

OA DO 






SVC 

X 'DO* 

1 

0018BO 

EO 






DC 

X'EO* 


0018B1 

OD 






DC 

X * OD * 


0018B2 

FB4C 






DC 

AL2(BUFOUT-BASE+REG) 


0018B4 

91 04 

F 

BA8 



SENOK 

TM 

SWITCH,X'04' 

CHECK FOR NINE HOLE SWITCH 1 

0018B8 

47 80 

F 

788 




BC 

NONE,SKI PI 

i 

0018BC 

91 01 

F 

CC5 




TM 

CCW3+5,X'01• 

; 

0018C0 

47 10 

F 

8D2 




BC 

ALL,CHANOF 

GO PRINT BLANK AND CLEAR CHAIN FLAG 

Q018C4 

OA DO 






SVC 

X 'DO• 


0018C6 

EO 






DC 

X'EO' 

.... 

0018C7 

01 






DC 

X'Ol' 


0018C8 

F2F0 






DC 

AL2(BLANK-BASE*REG) 


0018CA 

OA DO 






SVC 

X 'DO' 

PRINT-SKIP FAILED 

0018CC 

COOF 






DC 

XL2'COOF * 


0018CE 

FA61 






DC 

AL2(CSKFAL-BASE+REG) 


0018 DO 

07 F6 






BCR 

UNC,R6 


0018D2 

91 FE 

F 

CCS 



CHANOF 

TM 

CCW3+5 ,X'FE * 

SEE IF ANY SENSE INFO 

0018D6 

47 80 

F 

8E0 




BC 

NONE,BYBY 


0018DA 

OA DO 






SVC 

X'DO' 

i 

0018 DC 

CO 






DC 

X»CO» 

t ] 

0018 DD 

01 






DC 

X'Ol* 

| 

0018DE 

F2F0 






DC 

AL2(BLANK-BASE*REG) 

1 

0018E0 

07 F6 





BYBY 

4 

BCR 

UNC »R6 


0018E2 

02 07 

F 

9EA 

D 

040 

DOSNS 

MVC 

CSCSW(8),HC$W(R13) 

1 

SAVE CSW 1 

0018E8 

41 40 

F 

CCO 



HOPE 

LA 

R4,CCW3 

SET UP TO DO SENSE 

0018EC 

50 4D 

0 

048 




ST 

R4,HCAW(R13) 

SET UP TO DO SENSE COMMAND ) 

0018F0 

9C 00 

C 

000 


* 

START 

SIO 

0(R12) 

DO SENSE 

0018F4 

47 10 

F 

954 




BC 

CC3,1 SNOOP 

BR. IF NOT OPERATIONAL 

0018F8 

47 20 

F 

95C 




BC 

CC2,ISBSY 

BR. IF BUSY l 

0018FC 

47 40 

F 

936 




BC 

CC1,OHNO 

BR. IF CSW STORED 

001900 

58 9E 

0 

198 




L 

R9,WT(R14) 

LOAD WAIT 

001904 

88 90 

0 

004 




SRL 

R9,4 

ADJUST | 

001908 

9D 00 

C 

000 



TSTIO 

TIO 

0(R12) 

DO TIO SENSE 

00190C 

47 80 

F 

914 




BC 

CCO,GOTIT 


001910 

46 90 

F 

908 




BCT 

R9,TSTIO 

TRY AGAIN I 

001914 

92 00 

F 

982 



GOTIT 

MVI 

SAVSNS»X*00® 

CLEAR SENSE SAVE AREA i 

001918 

D2 00 

F 

982 

F 

CCS 


MVC 

SAVSNM1) ,CCW3+5 

MOVE SENSE BYTE TO SAVE ! 

00191E 

D2 00 

F 

98C 

F 

CCS 


MVC 

0UTSNS+9C1),CCW3+5 

MOVE SENSE TO MESSAGE ■ 

001924 

OA DO 






SVC 

X'DD' 


001926 

0001 






DC 

AL2(1) 


001928 

098C 






DC 

AL2(0UTSNS+9-BASE) 

CONVERT FOR MESSAGE OUTPUT 

00192A 

098C 






DC 

AL2I0UTSNS+9-BASE) 

CONVERT FOR MESSAGE OUTPUT 

00192C 

02 07 

D 

o 

# 

o 

F 

9E& 


•MVC ' 

BC$WC8,R13),CSCSW 

RESTORE CSW 

DATE 
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001932 

47 FO F 734 

BC 

UNC tDEOONE 

BR. 



001936 

91 02 D 044 

OHNO TM 

HCSW+4CR13),X'02 * 

IS IT UNIT CHECK 


i 

00193A 

47 10 F 942 

BC 

ALL,IMWEAK 

BR. IF UNIT CHECK 



00193E 

47 FO F 948 

BC 

UNC,PLEASE 




001942 

OA DO 

IMWEAK SVC 

X'DO* 




001944 

44 

DC 

X '44 * 




001945 

IE 

DC 

X * IE ' 




001946 

F964 

DC 

AL2(SICK-BASE+REG) 




001948 

9D 00 C 000 

PLEASE TIO 

0IR12) 

CLEAR 



00194C 

47 70 F 948 

BC 

NCCO,PLEASE 

TRY AGAIN 


j 

001950 

47 FO F 8E8 

BC 

UNC,HOPE 



t 

001954 

45 60 F 62A 

I SNOOP BAL 

R6,SNQTQP 

GO PRINT NOT OPERATIONAL 


, I 

001958 

47 FO F 8E8 

BC 

UNC,HOPE 



■ 

00195C 

45 60 F 640 

I SBSY BAL 

R6,SBUSY 

GO PRINT DEVICE BUSY 


i: 

001960 

47 FO F 8E8 

BC 

UNC,HOPE 



J 

001964 

40C7D6E340E4D5C9E3 

SICK DC 

C« GOT UNIT CHECK • 



j 

00I960 

40C3C8C5C3D240 






001974 

D6D540C9E2E2E4C540 

DC 

C'ON ISSUE SENSE' 




00197D 

E2C5D5E2C5 






001982 

00 

SAVSNS DC 

X'OO' 



i 

001983 

40E2D5E240C1C3E340 

OUTSNS DC 

C' SNS ACT XX' 




00198C 

E7E7 





■ 

00198E 

E7E7 

XX DC 

* 

C'XX* 



• i 



* . 1 

********************************************************************>$** | 

- 



♦ 

CONSTANTS AND COMMENTS 


* 1 

1 



********************************************************************** 1 

001990 


CNOP 

0,4 




001990 

40C4C5E5C9C3C540D5 

CNOTOP DC 

C DEVICE NOT OPER' 

COMMENT NOT OPER 



001999 

D6E340D6D7C5D9 






0019 AO 

C1E3C9D6D5C1D360E2 

DC 

C'ATIONAL-SET SS O' 




0019A9 

C5E340E2E240F0 






00I960 

40E3D640D3D6D6D740 

DC 

C' TO LOOP ON SIO 0 




0019B9 

D6D540E2C9D640 






0019C0 

40C4C5E5C9C3C 54061 

CSBUSY DC 

C® DEVICE / CHANNE' 

COMMENT BUSY 



0019C9 

40C3C8C1D5D5C5 






0019 DO 

D340C2E4E2E840E3D6 

DC 

CL BUSY TOO LONG • 

COMMENT BUSY 



0019D9 

D640D3D6D5C740 






0019E0 

C1C6E3C5D940E2C9D6 

DC 

C'AFTER SIO ® 




0019E9 

40 






0019 E A 

404040404040404040 

CSCSW DC 

c • . 

COMMENT CSW 



0019F3 

40404040404040 






0019FA 

4060C3E2E640E2E3D6 

DC 

C -CSW STORED AFT 9 




001A03 

D9C5C440C1C6E3 






001 AOA 

C5D940E2C9D640 

DC 

C'ER SIO • 

,, 



001A11 

40D5D640C3C8C1D5D5 

CNCE DC 

C» NO CHANNEL END 9 

COMMENT 



001A1A 

C5D340C5D5C440 






001A21 

40C3D6D4D4C1D5C440 

CCOMRJ DC 

C COMMAND REJECT « 

COMMENT 


j 

001A2A 

D9C5D1C5C3E340 





I 

001A31 

40C9D5E3D9E540D9C5 

CINTRQ DC 

C' INTRV REQUIRED « 




001A3A 

D8E4C9D9C5C440 






001A41 

40C2E4E240D6E4E340 

CBUSOC DC 

C BUS OUT CHECK ' 

9 9 



001A4A 

C3C8C5C3D24040 






001A51 

40C5D8E4C9D7D4C5D5 

CEQPCK DC 

C EQUIPMENT CHECK' 

* 9 


i 

001A5A 

E340C3C8C5C3D2 





! 

001A61 

E2D2C9D740404040C6 

CSKFAL DC 

C * SKIP FAILED • 

, 9 


! 

001A6A 

C1C9D3C5C44040 





1 

001A71 

40C4C5E5C9C3C540C5 

CDEERR DC 

C DEVICE END ' 

COMMENT 


1 

001A7A 

D5C44040404040 





• 

001A81 

40C2E4E2E840E3D6D6 

CTBUSY DC 

C BUSY TOO LONG « 

COMMENT 


j 

001A8A 

40D3D6D5C74040 






001A91 

40D5D640C4C5E5C9C3 

CNDEND DC 

C NO DEVICE END « 

COMMENT 


1 

001A9A 

C540C5D5C44040 






001AA1 

. 40E4D5C9E340C2E4E2 

CDBUSY DC 

C UNIT BUSY AFTER' 

COMMENT 



001AAA 

E840C1C6E3C5D9 
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000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

EQU 

10 

OOOOOB 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 

OOOOOD 

R13 

EQU 

13 

OOOOOE 

R14 

EQU 

14 

OOOOOF 

R15 

EQU 

15 

0001A0 

DMSS 

EQU 

416 

000198 

WT 

EQU 

408 

001000 

BASE 

EQU 

SECNO 

OOFOOO 

REG 

EQU 

X'FOOO* 

0001B4 

DMOUT 

EQU 

436 

OOOOOF 

UNC 

EQU 

15 

000008 

NONE 

EQU 

8 

000007 

MIXED 

EQU 

7 

000005 

ANY 

EQU 

5 

000001 

ALL 

EQU 

1 

000008 

CCO 

EQU 

8 

000004 

CC1 

EQU 

4 

000002 

CC2 

EQU 

2 

000001 

CC3 

EQU 

1 

000007 

NCCO 

EQU 

7 

000040 

HCSW 

EQU 

X *40* 

000048 

HCAW 

EQU 

X *48 • 

000008 

EQ 

EQU 

8 

000004 

LO 

EQU 

4 

000002 

HI 

EQU 

2 

000006 

UNEQ 

EQU 

END 

6 
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j 

POST ASSEMBLY DATA* 

REFERENCES TO DEFINED SYMBOLS 


J 

5 


I 4 

1 2 

; i 

i i 

i i 

2 
3 
1 
1 
1 
1 

\ 1 

| 


l 


1 

1 

I 


1 

4 

4 

1 

2 

1 


1 

1 

4 

4 

1 

1 

1 

1 
8 

2 
2 

■» 4 

1 4 

f 2 

2 
l 
i 
1 


i 


i i 


14DE 

BZ 

14D6 

1C94 

Cl 

1590, 

15A4 

DZ 

159C 

8 

EQ 

1112, 

2 

HI 

14E0, 

4 

LO 

15D2, 

1305 

; NO 

12B0 

1302 

OK 

139A 

0 

RO 

14E8, 

1 

R1 


2 

R2 


3 

R3 


4 

R4 

1466, 



14CC, 

1546, 

18E8, 

5 

R5 

1462, 

15A4, 

6 

R6 

122C, 



15A0, 

18D0, 

7 

R7 

1460, 

8 

R8 


9 

R9 

11E2, 

15E8, 

1830, 

1358 

TE 

1346, 

1834 

TS 

183C 

11EA 

TT 

11EE 

198 

WT 

11E2, 

198E 

XX 

1706 

1 

ALL 

1272, 

14AE, 

1714, 

181A, 

5 

ANY 

15BE, 

1262 

BK9 

1266, 

1C98 

C54 

15CE 

1048 

CAW 


8 

CCO 

167E, 

4 

CC1 

1600, 

2 

CC2 

15FC, 

1 

CC3 

15F8, 

1040 

CSW 


1CA8 

CXI 

1542 

ICAO 

CX9 

1528 

1214 

D09 

123A, 

17C8 

FTE 

17C0 

185A 

HDR 

1844, 

100A 

I CM 


A 

RIO 

11C2, 

B 

RU 

1138, 

C 

R12 

1106, 

120C, 

1908, 

D 

R13 

10FA, 
128E, 
16BA, 
1744, 
18ECt 

E 

R14 

1204, 


15CA 

157E 

1524, 15A6 

17B0, 17B8 


158A 


1466, 

1470, 

1478, 

14E8, 

151C, 

1520, 

i55C» 

18EC 

1560, 

176C , 

14CC, 

15AA, 

14DE, 

15B6 

14EE, 

132C , 

14CE , 

14DA, 

15A4, 

163E, 

1654, 

18E0, 

1954, 

195C 

1460, 

1478, 

15CA, 

11E6, 

11EE, 

1204, 

1640, 

1666, 

166A, 

183C, 

135C 

1900, 

1904, 


1204, 

15E4, 

1666, 

128A, 

12BA, 

133A, 

1586, 

15C6, 

15F0, 

1738, 

1740, 

1778, 

18C0, 

193A 


1610, 

127A 

165A, 

1662, 


1838, 

190C 

167A, 

18FC 

1676, 

18F8 

1672, 

18F4 


1272, 

12BA 


1854 

1 ICE, 

1224, 

1228, 

1200, 

130C 


110A, 

110E , 

1116, 

1310, 

1948 

15F4, 

1650, 

10FA, 

1104, 

11CE , 

1328, 

1336, 

1560, 

16CC, 

16D6, 

16EE, 

174C, 

175E, 

1770, 

192C, 

1936 


15E4, 

1666, 

182C, 


147C , 
1528, 
1770, 

14B8, 

152C, 

1802, 

14BC 

1542 

1806 

14FA , 

158A, 

1590 

14DE, 
168C , 

1576, 

182A, 

1594 

1858 

15CE 



1208, 

1682, 

1910 

1236, 

1718, 

15E4 

182C 


182C, 

1900 


1364, 

13A8, 

1492 

163A, 

16AA, 

16B6 

1780, 

178C, 

17CC 

1844 




1324, 

1328 


11D2, 

11DA, 

11EA 

166E , 

1834, 

18F0 

11E2, 

1228, 

1246 

15E0, 

168E, 

16B2 

1710, 

me, 

172E 

1806, 

1816, 

18E2 

1900 




DATE 10JUN65 22JUN65 15MAR66 15N0V66 

EC 124255 124249 125632 125655 


1 

F 

R15 

1104 







1 

FOOO 

REG 

10F0, 

10F8, 

111E, 

1124, 

112A, 

1130, 

1252 




1258, 

125E, 

1264, 

129E, 

12A4, 

12AA, 

134E 




1354, 

135A, 

1386, 

138C, 

1392, 

1398, 

1618 




162E, 

1634, 

1648, 

164E, 

168A, 

16C4 , 

16CA 

f ' 



16E2, 

16E8, 

1726, 

172C , 

1756, 

175C, 

179C 




17A2, 

1800, 

1822, 

1828, 

185E, 

186C, 

187A 




1888, 

1896, 

18A4, 

18B2 , 

18C8, 

18CE, 

18DE 




1946 







16 

1B2C 

STL 

10F0 







2 

1460 

T2B 








1 

F 

UNC 

1138, 

1 IDE , 

11F6, 

1230, 

123A, 

1276, 

1282 




12C2, 

12CC, 

1330, 

136C, 

13AC , 

1474, 

149C 




14E4, 

14EA , 

150E, 

153E, 

1558, 

158C, 

161A 




1626, 

163E, 

1654, 

168C, 

169A , 

1602, 

16EA 




1702, 

1784, 

17C0, 

180A , 

182A, 

1858, 

18D0 




18E0, 

1932, 

193E , 

1950, 

1958, 

1960 


4 

1000 

BASE 

10F0, 

10F8, 

111E, 

1124, 

112A, 

1130, 

1IFD 




1252, 

1258, 

125E , 

1264, 

129E, 

12A4, 

12AA 




1309, 

134E , 

1354, 

135A , 

1386, 

138C, 

1392 




1398, 

1618, 

162E , 

1634, 

1648, 

164E , 

168A 

i 



16C4, 

16CA, 

16E2, 

16E8, 

1726, 

172C, 

1756 




17 5C, 

179C, 

17A2, 

1800, 

1822, 

1828, 

185E 

! 



I860, 

187A, 

1888, 

1896, 

18A4, 

18B2, 

18C8 

i 



18CE, 

18DE, 

1928, 

192A, 

1946 



f i 

12A2 

BK 10 

1296, 

12AC 






-■ i 

1263 

BK91 

126A, 

127E 






16 

12D0 

BLAB 

12A4, 

12B0, 

12C6 





4 

1576 

BS 10 

1568 







2 

18E0 

BYBY 

18D6 







8 

1CB0 

CCW1 

11BE, 

UC2, 

11F2, 

147C* 

148E , 

14AA, 

14C4 




155C, 

.1564, 

157 A , 

1582, 

17AC, 

17B4, 

17C8 




17D6 







8 

1CB8 

CCW2 

1802 







8 

1CC0 

CCW3 

15DC, 

176C, 

17F4, 

1840, 

1850, 

1860, 

186E 




187C, 

188A, 

1898, 

18A6, 

18BC, 

18D2, 

18E8 




1918, 

191E, 

1CC0 





4 

123E 

CKIT 

1778 







:j 4 

12BE 

CLR9 

1276 







16 

1A11 

CNCE 

16CA 







j 2 

1CA4 

CX19 

1520 







f 4 

128E 

DECI 

12CC 







I l 

1 AO 

DMSS 








! 4 

1314 

DO 12 

1364 







! 2 

1234 

END9 

12C2 







j ■ 4 

188A 

EQCK 

1880 







1 

48 

HCAW 

11CE, 

1228, 

1328, 

1560, 

1770, 

1806, 

18EC 

1 • 1 

40 

HCSW 

1246, 

128E, 

1336, 

15E0, 

168E, 

16B2, 

16BA 

j 



16CC, 

16D6, 

16EE, 

1710, 

171C, 

172E, 

1744 

! 



174C, 

175E, 

1816, 

18E2, 

192C, 

1936 


j 4 

18E8 

HOPE 

1950, 

1958, 

1960 





4 

151C 

ITEM 








{ 4 

1236 

ITRY 

1210 







4 

11BE 

LOOP 

1626, 

163A 






\ 1 

7 

NCCO 

11D6, 

1210, 

194C 





( 2 

1466 

NEXT 

15BE, 

15C6, 

15D2 





i 1 

100D 

NIOU 








4 

17BC 

NITM 

17B0 







| 1 

8 

NONE 

10E8, 

1100, 

11CA, 

124A, 

1292, 

1342, 

1374 




146C , 

1408, 

14D6, 

14F6, 

159C, 

15B2 , 

1608 




1692, 

16DA, 

16F2, 

1748, 

1768, 

1794* 

17A8 




17E8, 

17F8, 

1812, 

184C, 

1854, 

1864, 

1872 




1880, 

188E, 

189C, 

18AA, 

18B8, 

18D6 


l 

1396 

NOPB 

1378, 

13A0 






4 

1936 

OHNO 

18FC 







! • • 1 

1C40 

RDAR 








4 

1346 

SAY1 








i 1 

100C 

SDMF 
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16 

1964 

SICK 

1946 


4 

15DC 

SI01 

122C* 

132C* 

6 

1512 

SKIP 

14AE 


4 

1004 

SNSW 

11C6* 

126E* 




15C2* 

15EC* 

3 

1050 

SRET 



4 

169E 

TCSW 

1692 


6 

1706 

TDVE 

16F2 


16 

113A 

• TEL 1 

HIE 


16 

1155 

TEL2 

1124 


16 

1171 

TEL3 

112A 


16 

119C 

TEL4 

1130 


4 

17C4 

TWTM 

17B8 


1 

10E1 

U10P 

10E4* 

1402* 

1 

6 

UNEQ 

1242* 

1568* 

2 

10F4 

ZOOM 

10E8 


2 

1260 

BACK9 

1282 


1 

11FC 

BEGIN 

1015 


4 

1840 

BILLF 

1838 


16 

13B0 

BLAB1 

135A 


2 

12F0 

BLANK 

10F8* 

1252, 




16C4* 

16E2, 




185E* 

18C8* 

4 

1106 

BLOOP 

1100 


4 

18A6 

BUFCK 

189C 


4 

187C 

BUSOC 

1872 


4 

1802 

BYBY1 

17F8 


14 

1AE5 

CCHAN 

17D0 


6 

1B59 

CCTAB 

1478 


4 

1606 

CECOE 

16B6 


4 

1368 

CLR12 

13AC 

- 1 

11 

1B21 

COKXX 

17DE 


16 

19EA 

CSCSW 

16BA * 

16CC * 




192C 


8 

1AF3 

CSKIP 

1512 


1 

1B4 

DMOUT 



6 

18E2 

DOS NS 

16FE 


4 

1898 

DTACK 

188E 


2 

1334 

END12 

136C 


2 

1506 

EXIT1 



1 

100E 

FLAG1 



1 

100F 

FLAG2 



8 

1440 

GOSKP 

1214* 

1224* 

4 

1914 

GOT IT 

190C 


4 

1336 

GOT ST 

1780, 

178C 

4 

1542 

GRTER 

1524 


6 

14A0 

IMMEO 

1492 


5 

1010 

INPSW 



4 

195C 

ISBSY 

18.F8 


16 

1425 

LOVLY 

1398 


4 

1594 

LRE06 

158C 


1 

7 

MIXED 

1622* 

16A2* 

4 

1C90 

M0050 

110A 


4 

1468 

NEXT1 



4 

1478 

NEXT2 

146C 


4 

147C 

NEXT3 

1474 


16 

1AC4 

NOCSW 

1618 


6 

171C 

NOGOT 



4 

15BA 

NOSUP 

15A6* 

15B2 

1 

1424 

NSWCH 

1220* 

12BE, 




173C* 

1774, 

1 

1BAA 

PRINT 

1440, 

1448* 




1496* 

14A0, 




14EE* 

14FA * 




1530, 

1538* 




1594* 

15A0* 




1CB8 


4 

1640 

SBUSY 

15FC* 

195C 


180A 

12B6* 1360* 1468* 1470* 15BA 

1636 


14F2* 1598* 15AE 

17DA 


12C6* 137C * 1386* 162E* 1648 
1726* 1756* 179C* 1800* 1822 
18DE 


171C* 172E* 174C * 175E* 18E2 


1314* 1324 


16FE 


1318* 

177C* 

1368* 

1788 

161E* 

169E« 

16FA 

1450* 

1462* 

1480* 

1484* 

1484 

14B2* 

14BC * 

14C0 * 

14CE * 

14DA 

14FE * 

1502* 

1502* 

1512* 

152C 

1546* 

154A* 

154E * 

1552* 

1570 

15AA* 

15B6* 

1700, 

17DE, 

1CB0 
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4 

1000 

SECNO 

ICC 8 




i 

4 

18B4 

SENOK 

18AA 





4 

1788 

SKIP1 

1768, 

184C * 18B8 



1 

4 

17A4 

SKIP2 

1794 





4 

17E4 

SPACE 

17DA 




. j 

! 4 

17D6 

SP SUP 

17A8* 

17CC 




| 4 

18F0 

START 





j 

* 2 

14E8 

STOSP 

14C8 




' 

4 

1682 

TBUSY 

1676 





i 2 

1356 

TELIM 

1342 





4 

1764 

TIOOK 

1702, 

1738* 1748 




! 4 

180E 

TSTCK 

17E8 





4 

1908 

TSTIO 

1910 





i 1 

10E0 

UNIT1 

1106 





2 

1C9C 

UNTAB 






! 6 

12C6 

VARY9 

128A 





4 

16 IE 

WHICH 

15F0 





2 

12 AO 

BACK 10 

1292 





i 4 

1310 

BACKUP 

1330 





1 

1308 

BEGIN2 

11FD 





! i 

1458 

BEGIN3 

1309 





13 

1B4C 

BUFOUT 

18B2 





16 

12F2 

BUTYFL 

1264 





16 

1A41 

CBUSOC 

1888 





16 

1A21 

CCOMRJ 

186C 





8 

1B5F 

CCTAB1 






8 

1B67 

CCTAB2 






8 

1B6F 

CCTAB3 






8 

1B77 

CCTAB4 






8 

1B7F 

CCTAB5 






8 

1B87 

CCTAB6 






8 

1B8F 

CCTAB7 






8 

1B97 

CCTAB8 






8 

1B9F 

CCTAB9 






16 

1AA1 

CDBUSY 

175C 





16 

1A71 

CDEERR 

16E 8 





16 

1A51 

CEQPCK 

1896 





4 

18D2 

CHANOF 

1812, 

181A* 18C0 




6 

1 ABE 

CIMMED 

14A0 





16 

1A31 

CINTRQ 

187 A 





16 

1A91 

CNDEND 

172C 





16 

1990 

CNOTOP 

1634 





16 

19C0 CSBUSY 

164E 





16 

1A61 

CSKFAL 

1534, 

1538* 1552* 17A2* 1828* 18CE 




4 

1CAA 

CSLASH 

1508 





6 

1B01 

CSPACE 

14B2 





16 

1B07 

CSPSUP 

1570 





16 

1A81 

CTBUSY 

168A 





6 

1AFB 

CWRITE 

1496 





11 

1B41 

DATOUT 

18A4 




| 

4 

173C 

DEBUSY 





1 

4 

1286 

DECIDE 

1242* 

1740 




4 

1734 

DEDONE 

1714, 

1932 




5 

1058 

EXNPSW 






8 

1018 

EXOPSW 





i 

4 

1134 

GITOUT 

1112 




j 

4 

1590 

IMDATA 

157E, 

1586 




2 

1942 

IMWEAK 

193A 





4 

10E4 

INITAL 

1200, 

130C * 145C 



’ 

4 

186E 

INTREQ 

1864 





4 

1078 

IONPSW 






8 

1038 

IOOPSW 






4 

1370 

ISGOOD 

133A 





4 

1954 

ISNOOP 

18F4 





4 

1435 

L0VLY1 

137C, 

139A 




8 

1070 
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8 

1030 

MCOPSW 






4 

16FA 

MISSOE 
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i 

4 

14FE 
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14E0f 

14EA, 

14F6 




i 

11 

1983 

OUTSNS 

1134 9 

1256 , 

12AA , 

1354, 

1392, 

1706, 

1911 




1928# 

192A 





| 

8 

1068 

PGNPSW 







| 

8 

1028 

PGOPSW 








4 

1948 

PLEASE 

1936# 

194C 






4 

14EE 

RESET5 

14E4, 

153E, 

1558 




j 

4 

127 A 

REWORK 

124A 






| 

2 

11BC 

SAVDEV 

HOE# 

1116 





! 

1 

1982 

SAVSNS 

123E « 

1286, 

170C , 

1914, 

1918 


! 

4 

1656 

SCSWST 

1600 






| 

4 

155C 

SETCAW 

150E 






i 

4 

15D8 

SIOBEG 

1576 






j 

1 

1BA7 

SIQDIS 







j 

2 

182A 

SIOFIN 








4 

15F4 

SIOSIO 

11F6# 

1640, 

1784 





2 

162A 

SNOTOP 

15F8# 

1672, 

1954 





4 

1360 

SPHERE 

13A8 






; 

4 

11E2 

SQUARE 

11CA 






( 

4 

11C6 

STRTIO 

11D6* 

1 IDE , 

1622 




j 

8 

1060 

SVNPSW 







| 

8 

1020 

SVOPSW 







i 

2 

1BA8 

SWITCH 

1218# 

121C , 

131C, 

1320, 

133E , 

1370, 

13A4 




148 A, 

14A6, 

1518, 

156C , 

15D8 , 

1604, 

160C 
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1696, 

16A6 , 

16AE , 

16F6 # 

1734 




1764, 

1790, 

17A4, 

17BC, 

17C4, 

17E4, 

17EC 




17F0# 

180E , 

1848, 

18B4 




4 

168E 

TCSWST 

165A # 

167A 






4 

16EE 

TDVEND 

167E, 

16A2, 

16AA, 

16D2 




4 

165E 

TIOBEG 

1608, 

1610, 

161A 





4 

182C 

TIOSEN 

1662 







4 

166E 

TIOTIO 

1682, 

16DA , 

16EA , 

1718 




4 

1860 

TSAVBL 







* 

4 

14AA 

TSPACE 

149C 







4 

120C 

TSTCLR 

1230, 

1236 






4 

148E 

TWRITE 








2 

10E2 

U1A0DR 








16 

13C4 

UNEXUC 

134E, 

138C 






16 

13F1 

UNEXUE 

1258, 

129E 



* 



1 
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COLS® 1 THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 | 

3ESD.AA« 

• AAXF83 

83..AAAA.ADH. 

..840 

214.125655..83830001 

9 YQ 

Y9 

YYQY Y8 


I 

99 

9 

9999 99 



BTXT.AAA..A8. 

« AA88AA 

AAAAAAAAAAOAADAAAAJD 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA83830002 ! 

9 YQY Y9 

Y9 9QY 

YYYYYYYYY9+Y99YYYY9Q 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 

999 9 

9 Z9 

999999999 9 9999 Z 

99999999999999999999 

999999999999 

BTXT. AA8 * « A8* 

.AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

aaaaaaaaadaaaaaaaaaa 

AAAAAAAAAAAA83830003 

9 YQ9 Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYY9YYYYYYYYYY 

YYYYYYYYYYYY 

99 9 

9 9999 

99999999999999999999 

999999999 9999999999 

999999999999 

BTXT.AAO*.AA. 

.AAAAAA 

AAAAADAAAAAA. 



9 YQ+ YQ 

Y9YYYY 

YYYY99YYYYYY 



99-* 99 

9 9999 

9999 999999 



BTXT. AAS* . A8. 

•AACAAA 

A.0JGA04B0JNCU80BQJA 

20LEA.JFGA1FQGHQ0SD0 

DAA01DGA14.083830005 

9 YQ8 Y9 

Y90YYY 

- ZZY 8-tY9Q88 8-Y9 

8Q- Z-ZY 99QR+ 8R+ 

QQ8+ QZY 9 4- 

99 9 

9 9 9 

9 9 Z99 9 

99 9 

Z 0 

8TXT•AJQ®•A8® 

•AA1DB0 

4L12B0JMIEB0JT1AB0AP 

IDBBBA9DGC.INSERT.TE 

ST 4CARRIAGE.83830006 

9 Y99 Y9 

Y9 Q8— 

98 88-Y8 R8-Y8 R8-Y8 

Q8Q-Y Y9Q 


9 9 

9 09 

9 99 9 9 9 09 9 

99 9 Z 


BTXT.AJ+..A8. 

•AATAPE 

T.RESTORE.CARR IAGE.T 

O.CHANC.l.CHECK.FOR. 

CHANC1-H0LET83830007 

9 Y9 Y9 

Y9 

8 

8 

8 8 

9 9 

9 




BTXT•AJHo® A8® 

.AA.l.L 

INE.PAST.BRUSHES.MAK 

E.PRNTR.RDYT.PUSH.IN 

TERRUPTAGGB.83830008 

9 Y90 Y9 

Y9 


8 

YQQ- 

9 9 

9 



9ZZ 

BTXT.AJO.®A8. 

•AADDAJ 

DAAAODGA1S+NAHEAOAGO 

1FDA0AG01FHEAHHAAEEA 

0AFA1K8ADDG063830009 

9 Y9+ Y9 

Y9Q0ZY 

QQ-Y 9ZY YYZQY+YZ+ 

QY+YZ RQ9-0QY9QY 

4-YZQ Y-YQOZ 

9 9 

9 Z- 

ZO 9 9 9 - 

9 9 9 9 

9 9 9Z- 

BTXT.AJ8..A8. 

•AA54GA 

AACHEAOUHFAHHAACEAOA 

G026BC4.BGCQB0CRBA4U 

AJ4.+NAHE-5D83830010 

9 Y9 Y9 

Y9 9Y 

9Y99ZQ RQ9-0QY9QY+Y 

2+ 9-Y -8Q0-4-Q0-8 9 

ZY YYZZ Q 

9 9 

9 9 

9 0 9 9 9 

- 9Z Z 9 

9 9 

8TXT•AKA®•A8• 

•AAG02D 

B0FA2DG02MEA9BG-2FAA 

0DGA22B0JA20B0M331B0 

SC9CB00A228083830011 

9 Y9Q Y9 

Y9Z 8 

8 ZQ 8Z 9-9 OZ 0-9 

-ZZY 08-Y9 8-Z9 8- 

88 08-4-Q -+ 

9 Z 9 

9 9 

9 9 

9 9 9 

9 9 9 

BTXT•AKQ®•A8• 

•AA2KBA 

2LAA0DGA2MG02FBD2KBL 

2LG02-AA9BGA2FAA0DGA 

2JBS2KB0M33183830012 

9 Y9Z Y9 

Y9 Z-Q 

Z-Y 9ZQ 9Z Q-9 Z-9 

ZZ -9 OZQ -9-ZZY 

Y-8 08-Z9 

9 9 

9 9 

9 0 

9 

9 

BTXT•AKJ®•A8• 

•AABOMJ 

20B00C9CBM2KKA2J3EAA 

0DGA2MBA4UG024KA2J2Q 

G02F.NO.CHAN83830013 

9 Y9Y Y9 

Y98-ZY 

-8-4-8 0-Z 0 9 9-Y 

f 9ZQ 9—Y 92 99 

Z Y 

9 9 

9 9 9 

9 9 

9 9 


BTXT.AKQ.®A8. 

•AA.9.D 

ETECTED.IN.SENSE.BYT 

...CHAN.9.DETECTED.0 

KN0A8ADHEA0U83830014 

9 Y9 Y9 

Y9 



Y9Y9RZQ 

9 9 

9 



9 9 0 

BTXT®ALA®.A8® 

•AAEAOA 

BL4.BK4UBGCQB0CRAJ4. 

4>NAHE~5DG03AB0AA0DGA 

30A.CQGA3FB083830015 

9 Y9Q Y9 

Y9QY+Y 

-0 -9 9-8Q0-4-Q0ZY 

YYZZ QZ Q8 -9-ZZQ 

4— QOZY R-4 

9 9 9 

9 9 9 

‘ 9Z Z 

9 9 99 9 

Z 

BTXT.ALH..A8. 
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MV3DBOSC9CB0DM3AB03H 

AA00GA3MBA4UG034A.CQ 
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Y9 R0- 

Z8 8-88 08-Z9 Q-Z R 

-Y 9ZQ 9-Y 9Z 9- QO 

ZY ~r4 - 9 9 

9 9 

9 9 

9 9 9 9 0 

9 9 Z 
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BTXT*ALA* 

• A8* 

•AA20B0 

JA20B0MV3DBOSC9CB0MM 

4VKB463BBM3FA* CQGA3- 

G03Q.N0.CHAN83830017 

9 Y9Y 

Y9 

Y9 8- 

Y9 8-Z8 8-88 08-99 

9999-9 — QOZQ 

Z Z 

9 

9 

9. 9 

9 9 9 9 9 

Z 9 


BTXT*ALH* 

• A8* 

•AA*12* 

DETECTED.GOT.UNEXPEC 

TED.UNIT.CK.WHILE.TE 

STING.CHAN.183830018 

9 Y90 

Y9 

Y9 




9 - 

9 

9 




BTXT*ALO* 

• A8 • 

•AA2.G0 

T.UNEXPECTED*UNIT*EX 

CEPTION.WHILE.TESTIN 

G.CHAN.9A.CH83830019 

9 Y9 

Y9 

Y9 

1 


Y 

9 

9 

9 



9 

BTXT*AMY* 

• A8* 

•AAAN.l 

2.DETECTED.OKAAAAAAA 

CALK.AAACALK.AAACALK 

AAAACAGGEA0U8383C020 

9 Y99 

Y9 

Y9 

YYYYYYY 

YY8Y YY98Y8Y YY98Y8Y 

YYY99YQQZQ 

9 

9 

9 

9999999 

99 99 999 99 999 

999 9ZZ 0 

BTXT.AM-* 

• A8* 

* AALGA4 

OUL DAG0EGA4HC« 0EG044 

CGCJB« DAB.CKKBCLCKDA 

CRABDAGA4JKE83830021 

9 Y9 

Y9 

Y98RZ 

Q88Z-Q 9ZY RZ 9Z 8 

ZZQBZ QQ- QY OQYQY-Y 

Q0-9QQZQ Y 9 

9 

9 

9 90 

Z99 Z 0 

Z ZO Z Z Z 9 

Z ZO 9 

BTXT*AMH. 

• A8* 

•AACKBC 

G04KKECKBFF.CRAADAGA 

5KKECACAH* ACB.CGFOCG 

AB0AGA4YLDA-83830022 

9 Y9- 

Y9 

Y9QYQQ 

Z Y 9QYQQ- QO-YQQZQ 

9 9QQQ90 Y9Z QO- QO 

-9QQZY 8RZ 

9 

9 

9 l ZZ 

Z ZO Z ZO 9 

ZOZ 9 Z- Z- 

ZO 9 

BTXT*AMO* 

• A8* 

•AACHAD 

OJGA4FA-CDJFGJ4FG040 

QDG04FA+DUADOJGA4FA+ 

DJBECDKACECD8383C023 

9 Y9- 

Y9 

Y9Q -9 

ZZY QZ QQ8RZY QZ Y 

99Z QZ Q8-9 ZZY QZ 

QY- QQ RQQQQ 

9 

9 

9 Z 

9 Z09 9 Z 9 

Z Z9 Z 

Z9 ZO OZOZO 

BTXT*ANH* 

• A8* 

•AAKB+A 

DKG05MKGCA83FACRH.AC 

C.DMGJ5BB.DJB.CBF0CB 

8* BOK ABPC8GO8383CO24 

9 Y99 

Y9 

Y9 9 Y 

QYZ 8 9QQQ -YQOO Y9 

8 QOZY Z8 QYZ QQ- QQ 

- QZ YQZQQZ 

9 

9 

9 9 

Z ZOZ Z 9 

Z 9 Z ZO ZO 

Z 9Z ZO 

BTXT*AN*• 

• A8* 

•AA40C* 

DQB.CBFOCBB1CIKABOCI 

G040A.DA+EAHEADAG-5F 

FJCRKQCKCGE-83830025 

9 Y9 

Y9 

Y9 Y8 

QOZ QQ- QQ- QO 9QZQ0 

Z YZ QQ 8YZ-9QQZ R 

-YQO 9QYQ9Z 

9 

9 

9 9 

Z ZO ZO z- z z- 

9 ZO 9 ZO 0 

9Z Z Z 

BTXT*ANH. 

• A8 * 

•AA5QEA 

DAGA5AABDAGA5AL+G050 

L+DDA-CHADOJGA5MA-CD 

JFGJ5BA+DUAD83830026 

9 Y9R 

Y9 

Y9 -9 

QQZY Q-9QQZQ Q8 Z - 

8 Q-Z Q -9 ZZY OZ QQ 

8RZY QZ Q8-9 

9 0 

9 

9 

ZO ZO 9 9 

Z Z ZO 

9 9 0 Z9 

BTXT*ANA* 

* A8* 

*AAOJGA 

58A+0JAG0EG+40AJ0DGA 

40K0DDE0DHG.40B0DACQ 

BADEBAODHFAH83830027 

9 Y9Q 

Y9 

Y9 ZZY 

QZ QY-Q 9Z Z-Y 9ZQ 

Z84Q-R+Q-Z Z8 -YQO 

-YQ -Y-ZRQ9- 

9 0 

9 

9 

0 Z9 Z 99 

-Z -Z 9 9Z 

9Z 9 

BTXT*ANY* 

* AS* 

•AAHAAC 

AAODGA60DA0AGA6SGJ6* 

G.6FA.CRGA60AGCQG460 

BO./BDG060AL83630028 

9 Y9 

Y9 

Y90QY9 

-Y 9ZQ 8QY+YZQ 8ZY 

Z R- QOZY 8-QQOZ 8 

8- 9Q Z 8-8 

9 

9 

9 9 

9 9 9 9 9 9 9 

Z ZZ 

9 Z 9 

BTXT.AOJ. 

• A8* 

•AA4UG0 

1FG01F80JA20BGDA9AAA 

0DGA1FG6FA54B0JA20B0 

D/90EAOAG6AO83830029 

9 Y9Y 

Y9 

Y9 9Z4 

Z Q8-Y9 8-ZQ Q-Y 

9ZQ Q9 ZQ 8-Y9 8- 

Z8 +QY+Y9 -4 

9 9 

9 

9 

09 9 Z 

9 0 9 9 

9 9 9 

BTXT*AON* 

• A8* 

*AACRG+ 

6FA-CQG+8UHFAHHAACEA 

0AGA6SGJ6BG.6FGA60FA 

6WBODABAG6ABS3830030 

9 Y9R 

Y9 

Y9Q0Z 

Y- QOZ 8RQ9-0QY9QY 

4YZQ 8ZY OZ YZY YZQ 

88-ZQC09 -9 

9 

9 

9 Z 

Z 9 9 9 

9 9 9 9 9 

9 9Z 

BTXT.AOA. 

• A8* 

•AAODGA 

6FF.CQG06BAL4UG060AA 

CQGA60FACQAH0DGA60KG 

9K0.B0JA20B083830031 

9 Y9Q 

Y9 

Y9-ZZY 

Q- QOZ Q—8 9Z+ Y-Y 

QOZQ Y-YQ0-9-ZZQ 9 

Y- 8-Y9 8- 

9 

9 

9 

Z Z 9 - 9 

Z 9 9 Z 9 

9 9 * 9 

BTXT*AOH* 

• A8* 

•AADGBJ 

KG0.9KG060AD0DGA6WB0 

JA20B0DGBAG06WAB0DGA 

7FF.CQAL4UG083830032 

9 Y9 

Y9 

Y9Z8Q9 

9- YZ Y-9-ZZY 88- 

Y9 8-Z8QRZ 8-9-ZZY 

9- Q0-8 9Z4 

9 

9 

9 9Z 

9 9 9 

9 9Z0 

Z 9 

BTXT*APA* 

• A8« 

•AA8SG0 

7MKA9D9F8A9BAD0DGA74 

FA6WKG9K0.B0JA20B0DG 

BAKGO.9KA*CQ83830033 

9 Y9Y 

Y9 

Y9 Z 

Z 9 Y Y-Y 0-9-ZZQ 9 

ZQ 8 9 Y- 8-Y9 8-Z8 

Q“ 9- Y- QO 

9 9 

9 

9 

9 9 

9 9 9 9 

Z 9 Z 
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BTXT.AP8. 

• A8« 

•AAGA7M 

AA4UGA2FAA0DGA7MKG9K 

0*B0JA20B0DMBJKG0.9K 

A.CQGA7HA.0083830034 

9 Y99 

Y9 

Y9ZQ Z 

-8 9ZQ O-Q-ZZY Z 9 Y 

- 8-Y9 8-Z8Q0 9- Y 

• - QOZY OZ Q4 

9 

9 

9 9 

9 9 9 9 

9 9 9Z 9 

z z 

BTXT.APO. 

• A8 * 

.AA4EAH 

AA4UGA26AK4UGA36G054 

AK4UGA36ADCQGA7MB0JA 

20BODG8/AACR83830035 

9 Y94 

Y9 

Y9 8YZ 

-8 9ZQ 8-9 9ZQ 9Z 

-9 9ZQ 9-9Q0ZY 08-Y9 

8-Z8Q -YQO 

9 - 

9 

9 9 

9 9 9 9 

9 19 

9 9Z Z 

BTXT.APQ. 

• A8 • 

•AAGA70 

EJ0AG.70EJDAG* 7DFDCQ 

G07HFHCQABDAGA70KECK 

BVEA0AG-7UKA83830036 

9 Y90 

Y9 

Y9ZY 

—OQQZ Q- QQZ -9Q0 

Z -9Q0-9QQZQ 8QY 

Q -9QQZ 8 

9 

9 

9 

ZO 0 ZO Z 

Z ZO 9 9Z 

Z ZO 9 

BTXT.APS. 

• A8 • 

.AACIC/ 

ASCRGA8FDACRDGCQAFDE 

GA8BB00A20A*DH4EAHG0 

5DAHCQGA8KAA83830037 

9 Y98 

Y9 

Y9Q0Q9 

-8Q0ZY 8-YQO-8QO—QQ 

ZY 98-49 Z QO 8YZZ 

Q-9Q0ZY -9 

9 

9 

9 Z-Z 

Z 9 9Z 9Z ZZ 

9 Z- 9 

9 Z 

BTXT.AQQ. 

• A8* 

•AAODGA 

8KB0JA20B0DGB/G6HFAH 

HAADEA0AGA8* FA84AFDE 

G48KADCQGA7H83830038 

9 Y99 

Y9 

Y9-ZZQ 

8-Y9 8-Z8Q 9 RQ9- 

0QY9QY4YZY ZQ 9-QQ 

Z 8-9Q0ZY 0 

9 . 

9 

9 9 

9 9 9Z 

9 9 9 ZZ 

Z 

BTXT.AQ4. 

« A8* 

•AAAADE 

GA8KG6B0MA20AADEGA8W 

B0SGB/A.DEGA84B0SGB1 

AJDEGA8BB0SG83830039 

9 Y9 

Y9 

Y9-9Q 

ZY 89 8-Z9 -YQ ZY 8 

8-88Q9- Q ZY 88-88Q9 

-YQ ZY Y8-88 

9 

9 

9 Z 

9 1 

9 9Z Z 9 9Z 

9Z 9 9 

BTXT.AQH. 

• A8* 

•AABAAA 

0EGA8HB0SABAAHDEGA80 

BOSCCAADDEGA8D80SECO 

ADCQGA7HAADE83830040 

9 Y90 

Y9 

Y9QZ-Q 

Q ZY —8—8QQR-9Q ZY 0 

8-88QZ-9Q ZY 08-88Q8 

-9QOZY 0-9Q 

9 

9 

9 19 

Z 9 91 l 

9 9Z Z -9 9Z 

Z Z 

BTXT.AQO. 

• A8* 

•AAGA8K 

B0SA20B00GB/G6AFDEGA 

8SB00A20G6KG9K0* A.DO 

4EAHDA0AGA9D83830041 

9 Y94 

Y9 

Y9ZQ 

8-89 8-48Q 9 -QQ ZY 

88-49 9 9 Y- Z Q4 

8YZQY4YZQ R 

9 

9 

9 9 

9 9 9Z ZZ 

9 9 Z 

9 9 9 9 

BTXT.AQ8. 

• A8 • 

•AAGJ9M 

G.96HFAHHAADEA0AGA9M 

FA9HBA9BKA9BDEKA9DDE 

BEAAADADKGO*83830042 

9 Y9 

Y9 

Y9ZY 8 

Z 9RQ9-0QY9QY4YZY 9 

ZQ 9—Y 0 Y OQ Y YQ 

8QY98Y8Y 9- 

9 

9 

9 9 

9 9 9 

9 9 Z 9 Z 

999 9 9 

BTXT.AJA. 

• A8 • 

•AA9KG0 

T 4A B OOGA9BG09HBODO 9M 

EA0AG09HG08YE-6SG08Y 

E-6.G08Y.G0T83830043 

9 Y8Q 

Y9 

Y9 YZ 

9-9-ZZQ ZZ Z8-Z8 Z 

QY4YZ4 ZZ Z 8Z 

z z 

991 

9 

9 9 

9 9 9 

9 9 - 9 


BTXT.AJQ. 

. A8* 

•AA.UNI 

T.CHECK.ON*ISSUE* SEN 

SEA* SNS* ACT•XXXX* DEV 

ICE.NOT*0PER83830044 

9 Y8Z 

Y9 

Y9 


Y 


99 

9 

9 


9 


BTXT * AJJ. 

• A8* 

•AAATIO 

NAL-SET.SS.O.TO.LOOP 

• ON* SIO*•DEVICE*/*CH 

ANNEL«BUSY*T83830045 

9 Y8Y 

Y9 

Y9 




99 

9 

9 




BTXT.AJQ. 

• A8 * 

•AAOG.L 

ONG.AFTER.SIO. 

.-CSW.STQR 

ED.AFTER.S1083830046 

9 Y8 

Y9 

Y9 




99 

9 

9 




BTXT.AKA. 

« A8 * 

•AA..NO 

•CHANNEL•END..COMMAN 

D* RE JECT * • 1 NT RV • REQU 

IRED*•BUS«QU83830047 

9 Y8Q 

Y9 

Y9 




999 

9 

9 




BTXT*AKH* 

* A8* 

.AAT.CH 

ECK...EQUIPMENT.CHEC 

KSKIP* *«*FAILED*••DE 

VICE*END.*..83830048 

9 Y8Z 

Y9 

Y9 




99 

9 

9 




BTXT.AKA* 

• A8. 

«AA**BU 

SY*TOO*LONG*..NO.DEV 

ICE*END**•UNIT*BUSY* 

AFTER*DEVICE83830049 

9 Y8Y 

Y9 

Y9 




99 

9 

9 




BTXT.AKH. 

* AS* 

•AA.END 

«*IMMED**NO.CSW*AFTE 

R*IMMEDIATE*OPERATIC 

N» •«••CHANNE83830050 

9 Y80 

Y9 

Y9 




99- 

9 

9 
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F838 1403 CARRIAGE FUNCTION TEST 


BTXT.AKO* 

• A8« 

• AAL **S 

KIP*TO*WRITE*SPACE* S 

PACE*$UPPRESS««*oFAI 

9 Y8 

Y9 

Y9 



99 

9 

9 



BTXT*ALY* 

• A8* 

• AA XX** 

•STL—SECTIQN*BYPA$$E 

D. DATA. CHECK* BUFFER*, 

9 Y89 

Y9 

Y9 



99 

9 

9 



BTXT•AL-* 

• A8« 

•AAJJJJ 

JJJCCCCLLLLLLLLIAIJR 

AIAIJRJCCCLLCCCCLCTA 

9 Y8 

Y9 

Y99998 

8088888999988880—00 

00 ZY-OOYOQ Y Q 9 

99 

9 

9 9 

9999999 9999 

-0 9 9 

BTXT*ALH* 

• AK • 

•AAAAAA 

AAAA AAA AAAA AAA.. 


9 Y8- 

Y9 

Y9YYYY 

YYYYYYYYYYYYYY 


99 

9 

9 9999 

99999999999999 


BTXT *AMA* 

*A8. 

«AAAA7G 

AAAAAAA6AAGAAAGAAJGA 

AA*/*EAAAALKAAADAALK 

9 Y8Q 

Y9 

Y9YY8Q 

YYY9YYY9YY9YY89YY89Y 

Y9 YYYY8YYYY08Y8Y 

99 

9 

9 999Z 

999 999 99 999 999 9 

9 99999 999 999 

BRLD**«*« 

• AJ* 

•AAAA 

AAANAAMAAAMAAAMAAAMA 

AAMIHAMA***. 

9 

YY 

Y9Y9 

8YQ98Y9Z8Y988Y9R8Y80 

8Y809Y8 


99 

9 9 

999 99 99 99 999- 

999- 99 


BEND*••••**••* AA•••« 
9 Y9 

9 

BLOT.••*•*•*•« 

9 


LED*•OK«XXXX83630051 


CHECKAAAAAAJ83830052 
8888869 
999999 

AAAAAAAAAAAA83830053 
898YYYYYYYYY 
9 9999999999 


83830054 


AAADDAMEAAAA83830055 
YYY09Y8 YYY9 
999 99 999 


83830056 


83830057 


83830058 


{ 


i 




OATE 10JUN65 22JUN65 15MAR66 

EC 124255 124249 125632 


— LAST PAGE 



15N0V66 ID F838-3 JL 

125653 PAGE 12 



O 0 0 0 



t 


I 


4 * jr 

0OO0 0OOOOOOOOOOOO 

















